VBA Macro - Ha nem üres a cella akkor új sor + másolás

VBA Macro - Ha nem üres a cella akkor új sor + másolás
2020-02-27T10:23:50+01:00
2020-02-28T14:27:29+01:00
2022-12-06T08:25:38+01:00
Nerich
Sziasztok!

Adott egy 850 soros excel amiben a "C" cellában hol vannak értékek, hol nincsenek. Azt kellene megvizsgálni, hogy ahol vannak értékek az a sor alá szúrjon be egy új sort és a felette lévő sort másolja be alá (duplikálja a sort). 

Eddig jutottam, valamiért a 3. sor után betesz még 9 sort, és nem megy tovább a ciklus.

Sub Makró1() Dim sorValtozo As Integer sorValtozo = 0 Dim kezdoSor As Long For kezdoSor = 2 To 10 If IsEmpty(Range("C" & kezdoSor)) Then sorValtozo = 1 Else Range("C" & kezdoSor + 1).EntireRow.Insert Rows(kezdoSor).Copy Rows(kezdoSor + 1) Range("C" & kezdoSor).Copy Range("B" & kezdoSor + 1) End If Next kezdoSor End Sub

Köszönöm a segítséget!

Nerich
Mutasd a teljes hozzászólást!
Közben megoldottam:

Sub Makró1() Dim kezdoSor As Long For kezdoSor = 2 To 1200 If Not IsEmpty(Range("C" & kezdoSor)) Then Range("C" & kezdoSor + 1).EntireRow.Insert Range("G" & kezdoSor, "V" & kezdoSor).Copy Range("G" & kezdoSor + 1, "V" & kezdoSor + 1) Range("C" & kezdoSor).Copy Range("B" & kezdoSor + 1) kezdoSor = kezdoSor + 1 End If Next kezdoSor End Sub
Mutasd a teljes hozzászólást!

Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd