Lehet van jobb, de nekem tökéletes J Megcsináltam így 5 perc alatt ami pár
órámba került volna e nélkül J Én sosem tudtam volna megírni J
Nagyon szépen köszönöm!
Zsolt
From: techinfo-boun...@lista.sulinet.hu <techinfo-boun...@lista.sulinet.hu> On
Behalf Of Kámán Tibor
Sent: Thursday, August 22, 2019 5:20 PM
To: Techinfo <techinfo@lista.sulinet.hu>
Subject: Re: [Techinfo] Excel sortöbbszörözés
Szia!
Pont most (tegnap) csináltam hasonlót, picit átalakítottam neked:
Sub SorSor()
Oszlop = 9 ' Ezt az oszlopot nézi, hogy hányszor ismételjen
SorokSzama = Cells(Rows.Count, Oszlop).End(xlUp).Row
i = 1
While i <= SorokSzama
Db = ActiveSheet.Cells(i, Oszlop).Value
If Db > 1 Then
Rows(i).Select
For j = 1 To Db - 1
Selection.Insert Shift:=xlDown,
CopyOrigin:=xlFormatFromLeftOrAbove
Next j
Rows(i + Db - 1).Select
Selection.Copy
For j = 1 To Db - 1
Rows(i + j - 1).Select
ActiveSheet.Paste
Next j
SorokSzama = SorokSzama + Db - 1
i = i + Db - 1
End If
i = i + 1
Wend
End Sub
Biztos van jobb is, de jól működik.
K. Tibor
Kiss Zsolt <r...@hb.sulinet.hu <mailto:r...@hb.sulinet.hu> > írta:
Sziasztok!
Makro guruktól kérdezem, mennyire bonyolult lenne egy olyan makrót
összedobni, ami azt csinálja, hogy az I oszlopban lévő szám értéke ha >1,
akkor érték-1 db. sort szúr be ugyanolyan tartalommal, majd megy a következő
sorra. Ha =1, akkor goto next line.
Zsolt
_______________________________________________
Techinfo mailing list
Techinfo@lista.sulinet.hu <mailto:Techinfo@lista.sulinet.hu>
Fel- és leiratkozás: http://lista.sulinet.hu/cgi-bin/mailman/listinfo/techinfo
Illemtan: http://www.szag.hu/illemtan.html
Ügyfélszolgálat FAQ: http://sulinet.niif.hu/
_______________________________________________
Techinfo mailing list
Techinfo@lista.sulinet.hu
Fel- és leiratkozás: http://lista.sulinet.hu/cgi-bin/mailman/listinfo/techinfo
Illemtan: http://www.szag.hu/illemtan.html
Ügyfélszolgálat FAQ: http://sulinet.niif.hu/
