Listboxda ilk satırın seçilmesi..

[acolkesen1]

Merhaba arkadaşlar,
Aşağıdaki kodlarla Listbox üzerine tıklayarak seçili satırdaki bilgileri textboxlara aktarıp gerekli düzeltmeleri yaptıktan sonra ilgili buton yardımıyla verileri başka bir sayfaya aktarıp satırı siliyorum. Yapmak istediğim, satır silindikten sonra listboxdaki ilk satırın seçili hale gelmesi. Bunun için, son satırdaki ilk_satırı_seç kodu nasıl olmalıdır? İlgilenen arkadaşlara teşekkür ederim.

Private Sub CommandButton2_Click()
Workbooks.Open "d:\MTM_ARSIV\STOK.xls"
STOKLARA_AKTAR
Workbooks("STOK.XLS").Save
Workbooks("stok.xls").Close
Set c = [FD!C:C].Find(BAR, lookat:=xlWhole)
Range(c, c.Offset(0, 15)).Delete
Textboxları_temizle
ilk_satırı_seç
End Sub

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu deneyiniz.

ListBox1.ListIndex = 0

 

[acolkesen1]

Merhaba Sayın Korhan Ayhan,
İlginiz ve yardımınız çok teşekkür ederim. Esen kalın.