Boş satır eklemek

[yavuz829]

Merhaba arkadaşlar ListBox'da seçtiğim satırın altına tek bir tane boş satır eklemek istiyorum. Bir kaçtane örnek buldum bütün dolu satırların arasına bir tane boş satır ekliyor. Benim istediğim ListBoxda seçtiğim satırın altına sadece bir boş satır eklesin.

 

[Muzaffer Ali]

aşağıdaki kodları deneyin

    Dim KolonNo As Integer
    Dim SatirNo As Integer
    KolonNo = 2
    SatirNo = ListBox1.ListIndex
    Cells(SatirNo, KolonNo).Insert Shift:=xlDown

 

[yavuz829]

Çok teşekkürler hocam ellerinize sağlık.