Simple and Colorful Excel Address Book , At The Same Tıme Easy-to-Use Fihrist.
► It can be searched by person's name and company name on the address book..
► By clicking the "Go Last Row" button, you can go to the first empty row and make a new record.
► Whatsapp message can be sent to the selected mobile number.
The rows coloring was done with VBA codes.
In order to search by name on the page, we added the following VBA codes for first textbox :
Private Sub TextBox1_Change()
Dim metin
On Error Resume Next
Range("A1").Select
TextBox1.BackColor = RGB(255, 255, 170)
metin = TextBox1.Value
Set bul = Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row).Find(What:=metin)
Application.Goto Reference:=Range(bul.Address), Scroll:=False
Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row).AutoFilter field:=1, Criteria1:=metin & "*"
TextBox1.Activate
If metin = Empty Then
Sheets("Data").AutoFilterMode = False
TextBox1.BackColor = RGB(255, 255, 255)
Application.CutCopyMode = False
End If
End Sub
No comments:
Post a Comment