Satirekle

[veyselk]

Arkadaşlar merhaba yaptığım bir çalışmaya ışık tucacak ekteki örneği gönderiyorum.Burada yapmak istediğim Listboxta yapılan seçimin altına sayfa1 de satır açmak. yardımcı olursanız sevinirim.

 

[Korhan Ayhan]

Selamlar,

Listbox1 e ait kodları aşağıdaki ile değiştiriniz.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Cells(ListBox1.ListIndex + 1, 1).Select
TextBox1 = ListBox1.List(ListBox1.ListIndex, 0)
TextBox2 = ListBox1.List(ListBox1.ListIndex, 1)
TextBox3 = ListBox1.List(ListBox1.ListIndex, 2)
TextBox4 = ListBox1.List(ListBox1.ListIndex, 3)
End Sub

Satır Ekle butonunada aşağıdaki kodu uygulayınız.

Private Sub CommandButton7_Click()
Rows(ListBox1.ListIndex + 2).Insert Shift:=xlDown
End Sub

 

[veyselk]

satırekle

gönderdiğiniz kodlar tam istediğim gibi ilginize teşekkür ediyorum.