

Read more
API Whatsapp Business memang menjadi salah satu hal yang sangat dibutuhkan di jaman sekarang. Hal tersebut disebabkan karena makin banyaknya orang yang mulai menjalankan bisnis secara online.
On Error Resume Next
If Me.ListView1.SelectedItem = "" Then
MsgBox "No select data", vbCritical, "Filebas.com"
Exit Sub
End If
Dim i As Integer
i = MsgBox("Hapus data no. " & Me.ListView1.SelectedItem & " ?", vbQuestion + vbYesNo, "filebas.com")
If i = vbYes Then
Sheet1.Activate
With ActiveSheet
.AutoFilterMode = False
.Range("A:H").AutoFilter
.Range("A1").AutoFilter field:=1, Criteria1:=Me.ListView1.SelectedItem
.Range("A1").CurrentRegion.Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete
.AutoFilterMode = False
List.list1
End With
Else
End If
#Tutorial
0 Ulasan