For ciklus probléma, Excel VBA

Ez a téma lezárásra került a moderátor által. A lezárás oka: 1 téma - 1 kérdés
For ciklus probléma, Excel VBA
2015-06-22T15:19:01+02:00
2015-06-22T22:09:36+02:00
2022-10-15T22:00:52+02:00
the0li
Sziasztok!

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

Azt szeretném megvalósítani, hogy alábbi ciklus-t hajtsa végre az utasítás, ú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 Worksheets(2).Range(Cells(1, 1), Cells(1, 175)).Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=Mid(k, 2)
End With

Előre is köszönöm a segítséget!
Mutasd a teljes hozzászólást!
Kell egy külső for ciklus is, mondjuk for j=1 to x, ahol x az az oszlopszám, amíg akarod futtatni a kérdéses ciklust.

A mostani ciklusodon belül a
If Cells(i, 1) <> "" Then
k = k & "," & Cells(i, 1)

sorokban

If Cells(i, j) <> "" Then
k = k & "," & Cells(i, j)


És kiszámolod, hogy hova másolod a cél munkalapon az adatokat.
Mutasd a teljes hozzászólást!

  • Köszönöm a megoldást!

    Még annyi problémám lenne, hogy az összes oszlopnak az értékét beleteszi a makró a legördülő listába, de nekem meg az lenne a célom, hogy 1 oszlopnak az értékei egy adott sorba kerüljenek, és az utána következő oszlop értékei, pedig a következőbe.
    Van esetleg erre is ötleted?
    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: 1 téma - 1 kérdés
Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd