Option Explicit
Private Sub CommandButton3_Click()
Dim i As Integer, c As Range, WaveRow As Long, Ctr As Integer
For i = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(i) = True Then
Set c = Cells.Find(Me.ListBox1.List(i), , , xlWhole)
If Not c Is Nothing Then
WaveRow = c.Row
c.EntireRow.Delete
Do While Cells(WaveRow, 3) = "Store"
Rows(WaveRow). ClearContents
Loop
End If
End If
Next i
For Each c In Range("A5", Range("A65000").End(xlUp))
If Left(c, 4) = "Wave" Then
Ctr = Ctr + 1
c = "Wave " & Ctr
End If
Next c
[A1] = Ctr
'Unload Me
End Sub
From: [email protected] [mailto:[email protected]] On Behalf Of
Suka Sih
Sent: Sunday, December 02, 2012 10:40 AM
To: [email protected]
Subject: ]] XL-mania [[ Menghapus isian listbox
Form yang saya buat, listbox1 = A5:A15, jika isi listbox saya hapus maka
rowsource-nya ikut ter-delete keatas. Bagaimana caranya agar pada waktu
menghpus isi listbox rowsource-nya tidak ter-delete tapi hanya value-nya saja ?
