araya boş satır eklemek

[esdrym]

Merhaba

Benim bana göre ufak ama size göre belki de çok kolay bir sorum var. Ben cevabını aradım bulamadım.Yardım ederseniz sevinirim çünkü artık manuel yapmakta çok zorlanıyorum. Gün geçtikçe artan bir çok satır var.Sorunum bir excel sayfasında A sütununda bir sayıdan başlayıp seri olarak devam eden rakamlar var. Ama arada bazı sayılar eksik. Bu eksik satırları bulup araya satır açmasını istiyorum. Size örnek olarak da ek gönderiyorum. Bilgilerinizi paylaştığınız için teşekkür ederim.

Yardımınızı bekliyorum.

 

[Necdet]

Merhaba,

Dosyayı inceleyiniz.

Sub SatirEkle()
Dim i As Double
Dim Adet As Integer
For i = [A65536].End(3).Row To 2 Step -1
    Adet = Cells(i, "A") - Cells(i - 1, "A")
    If Adet <> 1 Then
        Adet = Adet - 2
        Rows(i & ":" & i + Adet).Insert Shift:=xlDown
    End If
Next i
End Sub

 

[esdrym]

TŞK

Siz bi harikasınız. Bunca zamandır boşa uğraşmışım. Bu çok işime yarayacak. Zamanımı çok kısaltacak. Çok teşekkür ederim. Para verseler bu kadar sevinmezdim herhalde

 

[Necdet]

Güle güle kullanınız