• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

listboxta seçileni temizle ve dolu satırları taşı

  1. T

    Soru Listboxta Seçilen Hücreyi Temizle ve Altındaki Dolu Hücreleri Üstündeki İlk Boş Dolu Hücreye Kadar Taşı

    Private Sub Sil_Click() Dim bul As Range If ListBox1.ListCount = 0 Then Exit Sub Set bul = Sheets("KONTROL").Range("P:P").Find(ListBox1.Value, LookAt:=xlWhole) If Not bul Is Nothing Then Sheets("KONTROL").Rows(bul.Row).Delete End If UserForm_Initialize End Sub Yukarıdaki kodla listBox1'de...
Geri
Üst