DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
'ListBox özellikleri belirleniyor
Private Sub UserForm_Initialize()
a = WorksheetFunction.CountA(Sheets("Sayfa1").Range("A2:A65536")) + 1
ListBox1.RowSource = "Sayfa1!A2:D" & a
ListBox1.ColumnCount = 4
ListBox1.ColumnHeads = True
ListBox1.ColumnWidths = "50;100;150;200"
End Sub
'ListBox'dan seçilen aktif hücre oluyor
Private Sub ListBox1_Click()
Dim i As Integer
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
Sheets("Sayfa1").Select
Sheets("Sayfa1").Range("A" & ListBox1.ListIndex + 2).Select
End If
Next
End Sub
'ListBox Çift Tıklandığında Aktif Satır Siliniyor
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Selection.EntireRow.Delete
End Sub
Doğru şekliSheets("Sayfa1").Range(cells(ListBox1.ListIndex + 2,1),cells(ListBox1.ListIndex + 2,3).Select