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> í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
>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/
