এক্সেল থেকে হোয়াটস্যাপে মেসেজ পাঠান

...
 For Each myCell In Range(Target.Address)
        v = myCell.Value
        If v <> "" Then
            LastString = ""
            For I = 1 To Len(v)
                mT = Mid(v, I, 1)
                If mT Like "[0-9]" Then
                    tString = mT
                Else
                    tString = ""
                End If
                LastString = LastString & tString
            Next I
        End If
    myCell.Value = LastString
    Next myCell
...

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

Private Sub TextBox2_Change()
Dim metin2
On Error Resume Next
Range("B1").Select
TextBox2.BackColor = RGB(255, 255, 170)
metin2 = TextBox2.Value
Set bul = Range("B1:B" & Range("B" & Rows.Count).End(xlUp).Row).Find(What:=metin2)
Application.Goto Reference:=Range(bul.Address), Scroll:=False
Range("A1:B" & Range("B" & Rows.Count).End(xlUp).Row).AutoFilter field:=2, Criteria1:=metin2 & "*"
TextBox2.Activate
If metin2 = Empty Then
TextBox2.BackColor = RGB(255, 255, 255)
Sheets("Data").AutoFilterMode = False
End If

End Sub

আমাদের সম্পর্কে জানতে এবং বিভিন্ন টিউটোরিয়াল পেতে লাইক ও সাবস্ক্রাইব করে সাথেই থাকুন