Merhaba arkadaşlar ListBox'da seçtiğim satırın altına tek bir tane boş satır eklemek istiyorum. Aşağıdaki kod ile yapmaya çalışıyorum. Boydan boya satır eklemiyor sadece seçtiğim satırdaki A hücresini bir aşağıya kaydırıyor. Bu konuda yardım ederseniz sevinirim.
Private Sub CommandButton5_Click()
Dim SatirNo As Integer
KolonNo = 2
SatirNo = ListBox1.ListIndex
Selection.Insert Shift:=xlDown
End Sub
Satır eklemek
Bu Konudaki Yorumlar |
Satır eklemek - Yazar: kenan827 - 20/05/2013, 21:03
Cvp: Satır eklemek - Yazar: kenan827 - 21/05/2013, 09:27
|
Konuyu Okuyanlar: 1 Ziyaretçi