Excel VBA, ciklus probléma

Excel VBA, ciklus probléma
2015-06-23T11:07:04+02:00
2015-06-23T12:00:02+02:00
2022-10-15T23:20:16+02:00
the0li
Sziasztok!
Egy olyan ciklust szeretnék írni, ami adott oszlopból kinyerve az adatokat egy legördülő listát hozzon létre egy másik munkalapon lévő sorban, és amint végzett a ciklussal, csinálja meg a következő oszlopban is az adatok kinyerését és a másik munkalapon lévő következő sorba érvényesítse a következő oszlop értékeit egy legördülő listában (és így tovább).
A problémám az, az alábbi makróval, hogy ahogy megy végig az oszlopokon, a memóriájába marad az előző oszlop értéke, és a második sorban már az első 2 oszlop értékei vannak, hogy tudnám ezt kiküszöbölni?
Remélem érthetően letudtam írni :)
Előre is köszönöm a segítséget!

k = ""
For j = 1 To 175
For i = 1 To 65536
   If Cells(i, j) <> "" Then
       k = k & "," & Cells(i, j)
   End If
Next
With Range(Worksheets(2).Cells(j, 1), Worksheets(2).Cells(j, 175)).Validation
       .Delete
       .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
       xlBetween, Formula1:=Mid(k, 2)
   End With
       Next
Mutasd a teljes hozzászólást!
k = "" sort mozgasd az 1. (j) cikluson belülre.
Mutasd a teljes hozzászólást!

Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd