Új hozzászólás Aktív témák

• #36196 DeFranco nagyúr

  Új Válasz 2017-09-26 19:02:23 #36196

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  DeFranco

  nagyúr

  sziasztok!

  makróban kérnék segítséget.

  van négy oszlopom, különböző elemszámú értékekkel, ezeket kellene rendre az összes variációban megadnom

  pl:

  ABCD
  XYZ
  12345
  QW

  akkor

  AX1Q
  AX1W
  AX2Q
  Ax2W
  ...
  DZ5W

  erre próbáltam írni egy makrót, de teljesen tök vagyok hozzá, így nem jutottam szinte semeddig:

  így nézki a kódkezdemény:

  a = Application.WorksheetFunction.CountA(Range("A:A"))
b = Application.WorksheetFunction.CountA(Range("B:B"))
c = Application.WorksheetFunction.CountA(Range("C:C"))
d = Application.WorksheetFunction.CountA(Range("D:D"))
r = a + b + c + d

Sheets.Add(After:=Sheets(Sheets.Count)).Name = "Terulj"

For i = 0 To r
For j = 0 To a
For k = 0 To b
For l = 0 To c
For m = 0 To d

Cells(i, 1).Value = Worksheets("Munka2").Cells(j, 1).Value
Cells(i, 2).Value = Worksheets("Munka2").Cells(k, 2).Value
Cells(i, 3).Value = Worksheets("Munka2").Cells(l, 3).Value
Cells(i, 4).Value = Worksheets("Munka2").Cells(m, 4).Value

Next m
Next l
Next k
Next j
Next i

  Elhasal az első Cells(i,1).Value sornál

  Most tekintsünk el attól, hogy mennyire kőműveskód, meg nincs deklarálva benne semmi, a cél az, hogy működjön a lehető legszimplább kóddal, hogy értsem mit csinál (és legközelebb össze tudjam kalapálni magamtól).

  Merre induljak?

  Ha csak annyit írok, hogy
  Cells(1, 1).Value = Worksheets("Munka2").Cells(1, 1).Value
  az alatta levő részeket kikommentelve, akkor átveszi a megfelelő értéket de léptetni nem tudom.

Új hozzászólás Aktív témák