Satır ekleme

[hassas]

Arkadaslar ıyı aksamlar.
Ekli dosya icerısınde gerekli acıklamayı yapmıstım,
A sutunu ile D sutunu arasındakı tum dolu hucrelerın altına bos satır olusturmasını ıstıyorum.

 

[Emir Hüseyin Çoban]

. . .

C8 ve C9 verilerinde (28. ve 29. satır) arasında satır yok.
Özel bir durum mu var yoksa gözünüzden mi kaçtı...

. . .

 

[hassas]

Sayın huseyın bey ılgınızden dolayı cok tesekkur ederım.
gozumden kacmıs sızınde belırttıgınız gıbı,
ıstedıgım her dolu hucresının altına bır satır acılmasını ıstıyorum. ortalama bır sutunda 5000 verı var buna gore uygulayabılırmıyız.

 

[Emir Hüseyin Çoban]

. . .

Sub Kod()
Application.ScreenUpdating = False
    For i = Cells(Rows.Count, "A").End(3).Row To 3 Step -1
    If Cells(i, "A") <> "" Then Rows(i).Insert Shift:=xlDown
    Next i
Application.ScreenUpdating = True
End Sub

. . .

 

[hassas]

Sayın ustad kodu nasıl uygulayacagım

 

[Emir Hüseyin Çoban]

. . .

Makro kodlarını çalıştırma...
Modul ekleme...
Excel buton ekleme gibi konularını forumda ve nette araştırınız.

. . .

 

[hassas]

Ustad tesekkur ederım cozdum,
alınıze saglık.
ıyı aksamlar