Excelde hücre değerine göre satır ekleme

[ofsevim]

https://imgur.com/a/MJVVsNH

Resimdeki gibi A sütununda yazan değer kadar arada boşluk olmasını istiyorum .Şimdiden teşekkürler

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir modüle kopyalayıp dener misiniz?

Sub SatirAc()
    
    Dim i As Long, _
        j As Long
    
    Application.ScreenUpdating = False
    
    For i = Cells(Rows.Count, "A").End(3).Row To 1 Step -1
        If IsNumeric(Cells(i, "A")) Then
            j = Cells(i, "A")
            Rows(i + 1 & ":" & i + j).Insert
        End If
    Next i
    
    Application.ScreenUpdating = True
    
End Sub

 

[ofsevim]

Merhaba,

Aşağıdaki kodları bir modüle kopyalayıp dener misiniz?

Sub SatirAc()
   
    Dim i As Long, _
        j As Long
   
    Application.ScreenUpdating = False
   
    For i = Cells(Rows.Count, "A").End(3).Row To 1 Step -1
        If IsNumeric(Cells(i, "A")) Then
            j = Cells(i, "A")
            Rows(i + 1 & ":" & i + j).Insert
        End If
    Next i
   
    Application.ScreenUpdating = True
   
End Sub

çok teşekkür ederim oldu .

 

[Necdet]

Güle güle kullanınız.