CODING
Private Sub BYBEGIN_Click()
[Link] = True
[Link] = True
[Link]
End Sub
Private Sub BYCONTAIN_Click()
[Link] = True
[Link] = True
[Link]
End Sub
Private Sub CommandButton1_Click()
[Link]("M2").ClearContents
[Link] = ""
[Link] = False
[Link] = False
[Link] = ""
[Link] = ""
[Link]
[Link] = "NAMASHEET!A2:K" & Range("K" & [Link]).End(xlUp).Row
[Link] = False
[Link] = False
[Link] = [Link] & " Data Found"
End Sub
Private Sub CommandButton2_Click()
[Link]
[Link] = "NAMASHEET!A2:K" & Range("K" & [Link]).End(xlUp).Row
With ListBox1
For i = 0 To 11
ERWIN = ERWIN & CLng(Columns(i + 1).Width) & ";"
Next i
.ColumnWidths = ERWIN
End With
[Link] = [Link] & " Data Found"
End Sub
Private Sub TextBox1_Change()
On Error GoTo Salah
Set Cari_Data = Sheet1
If [Link] = True Then
Cari_Data.Range("M1").Value = [Link]
Cari_Data.Range("M2").Value = [Link]
Cari_Data.Range("A1").[Link] Action:=xlFilterCopy, CriteriaRange:= _
[Link]("M1:M2"), CopyToRange:=[Link]("O1:Y1"), Unique:=False
[Link] = [Link]("HASILCARI").Address(External:=True)
Else
Cari_Data.Range("M1").Value = [Link]
Cari_Data.Range("M2").Value = "*" & [Link] & "*"
Cari_Data.Range("A1").[Link] Action:=xlFilterCopy, CriteriaRange:= _
[Link]("M1:M2"), CopyToRange:=[Link]("O1:Y1"), Unique:=False
[Link] = [Link]("HASILCARI").Address(External:=True)
End If
With ListBox1
For i = 0 To 11
ERWIN = ERWIN & CLng(Columns(i + 1).Width) & ";"
Next i
.ColumnWidths = ERWIN
End With
[Link] = [Link] & " Data Found"
Exit Sub
Salah:
Call MsgBox("Maaf Data tidak ditemukan", vbInformation, "Cari Data")
End Sub
Private Sub UserForm_Initialize()
[Link] = [Link]([Link]("A1:K1").Value)
[Link]
[Link] = "NAMASHEET!A2:K" & Range("K" & [Link]).End(xlUp).Row
[Link] = False
[Link] = False
With ListBox1
For i = 0 To 11
ERWIN = ERWIN & CLng(Columns(i + 1).Width) & ";"
Next i
.ColumnWidths = ERWIN
End With
[Link] = [Link] & " Data Found"
End Sub
NAME MANAGER
=OFFSET(NAMASHEET!$O$2;0;0;COUNTA(NAMASHEET!$O$2:$O$800000);11)