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/