VBA HELP

Ez a téma lezárásra került a moderátor által. A lezárás oka: Légy szíves próbálj meg a témádnak normális, a problémát jól körülíró címet adni!
VBA HELP
2015-06-22T13:33:08+02:00
2015-06-22T13:33:08+02:00
2022-10-15T23:05:30+02:00
the0li
Sziasztok!

Egy kis segítségre lenne szükségem VBA-ban!

Azt szeretném megvalósítani, hogy alábbi ciklus-t hajtsa végre az utasítás 175-ször, úgyhogy ha véget ért, akkor csinálja meg újra az 1-el jobbra lévő oszlopban is és az ott keletkező legördülő listákat tegye 1 sorral lejjebb egy másik munkalapra, és így tovább :)

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

Ez a téma lezárásra került a moderátor által. A lezárás oka: Légy szíves próbálj meg a témádnak normális, a problémát jól körülíró címet adni!
Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd