(VBA) FIND RANGE AND AUTO COLORING ROW / MEWARNAI ROW DENGAN OTOMATIS

huy guuuuysss..

kali ini saya mau share kembali tutorial pembuatan tools macro excel (VBA)
kali ini kasusnya adalah..

mencari range, setelah menemukan range yang dicari maka aplikasi / tools akan auto mewarnai ROW tersebut.

yaaa seperti itu lah.. saya lagi kehabisan kata2 buat menjelaskan..

langsung aje deh ya..

- buka EXCEL..
- lalu klik tab DEVELOPER
- lalu klik VISUAL BASIC

yaaaaaa.. lanjut aja seperti di video ya..

atau bisa kalian cek disini

dan berikut source nya..

       

Option Explicit
Dim rngArea As Range
Dim rngTarget As Range

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim s As String
s = Me.TextBox1.Text

If s = "" Then Exit Sub
On Error Resume Next
If KeyCode = 13 Then ' enter keycode's
    If Not IsNull(rngTarget) Then
        rngTarget.EntireRow.Interior.Color = RGB(255, 255, 0) ' yellow rgb's
        TextBox1.Text = ""
    End If
Else
    Set rngTarget = _
  rngArea.Find(s, , xlValues, xlPart)
    rngTarget.Select
End If
End Sub

Private Sub UserForm_Initialize()
Set rngArea = ThisWorkbook.Worksheets(1).Range("A:D")
End Sub

Private Sub UserForm_Terminate()
Set rngArea = Nothing
End Sub

      

oke sekian dulu yeee..
salam #ExcelSakti #HappyCoding ExcelSakti HappyCoding

:)