Satır atlama

[alfaoz]

MERHABA ARKADAŞLAR;

DAHA ÖNCEDEN MODERATÖR ZAFER BEYİN YAPMIŞ OLDUĞU BİR ÇALIŞMA ÜZERİNDEN BİRAZ DEĞİŞTİREREK FAYDALANMAK İSTİYORUM. YAZILIMDA OLDUĞU GİBİ SATIR ARALARINA BOŞ SATIR EKLEMEK İSTİYORUM ANCAK BUNU TÜM SAYFADA DEĞİL BENİM SEÇTİĞİM SATIR ARALIĞINDA OLMASINI İSTİYORUM. BİR DE KAÇ SATIR BOŞLUK BIRAKILACAĞINI DA SEÇMEK İSTİYORUM. UMARIM DÜZGÜN İZAH EDEBİLMİŞİMDİR.

ÇALIŞMA BU;

Sub BOSSATIREKLE()
Dim SATEKLE As Integer
SATEKLE = 2

Do Until Range("a" & SATEKLE).Value = ""
Rows(SATEKLE & ":" & SATEKLE).Select
Selection.Insert Shift:=xlDown
SATEKLE = SATEKLE + 2
Loop
Range("A1").Select

End Sub

 

[Necdet]

Merhaba,

Aşağıdaki kodları Deneyiniz. Mantığı şu şekilde kurdum:
Eğer 6 ile 7. satırlar arasında satır açmak istiyorsanız mutlaka 6 ve 7. satırı veya hücreleri seçip makroyu çalıştırmanız gerekir.

Sub SatirAc()
 
    Dim i   As Long, _
        Bas As Long, _
        Son As Long, _
        Adt As Integer
    
    Application.ScreenUpdating = False
    
    Adt = Application.InputBox("Kaç Satır Aralık Olacak?", "SATIR AÇMA", 0, Type:=1)
    If Adt > 0 Then Adt = Adt - 1
    
    Bas = Selection.Row + 1
    Son = Bas + Selection.Rows.Count - 2
    
    For i = Son To Bas Step -1
        Rows(i & ":" & i + Adt).Insert Shift:=xlDown
    Next i
    
    Application.ScreenUpdating = True
    MsgBox "Satır Açılmıştır...."
    
End Sub

 

[alfaoz]

necdet hocam teşekkürler aynen düşündüğünüz gibiydi isteğim ancak çalıştıramadım. esasen makro çalışıyor satırı da soruyor bu harika en sonunda "satır açılmıştır" diyor ancak herhangi bir değişiklik olmuyor.

sorun çözüldü. elinize sağlık tam istediğim gibi. peki hocam sizi bulmuşken; yine aynı mantıkla belirli aralıktaki boş satırları silebilir miyiz? bir de genel kültür; belirli bir alanı seçip daha sonra seçilmiş alanı seçilmemiş seçilmemiş alanı seçilmiş hale getirebileceğimiz bir kısayol var mıdır? mesela A10: D50 hücrelerini seçip bi tuşa basıp bunlar dışındaki bütün hücreleri seçmek istiyorum.

 

[Necdet]

necdet hocam teşekkürler aynen düşündüğünüz gibiydi isteğim ancak çalıştıramadım. esasen makro çalışıyor satırı da soruyor bu harika en sonunda "satır açılmıştır" diyor ancak herhangi bir değişiklik olmuyor.

sorun çözüldü. elinize sağlık tam istediğim gibi. peki hocam sizi bulmuşken; yine aynı mantıkla belirli aralıktaki boş satırları silebilir miyiz? bir de genel kültür; belirli bir alanı seçip daha sonra seçilmiş alanı seçilmemiş seçilmemiş alanı seçilmiş hale getirebileceğimiz bir kısayol var mıdır? mesela A10: D50 hücrelerini seçip bi tuşa basıp bunlar dışındaki bütün hücreleri seçmek istiyorum.

Bombardımana tutmuşsunuz

Bir soruya yanıt verdik diye her konudan anlayacağımıza dair garanti yok.

Sorularınızı teker teker ve yeni konu açarak sorunuz ki milleti korkutmayınız

Boş satır silme olayını benim imzamdan okuyabilirsiniz. Kod yazmaya gerek yok yani

 

[alfaoz]

peki üstad