Inputbox'la bulma Hazır Excel Makroları (VBA) | Excel Programları

Makroyu Kopyala

'Excel Makro (VBA) online eğitimleri için: https://www.excelsizeyeter.com/excelsizeyeter.com/udemy_giris.php adresine tıklayınız. Bir eğitim alana bir eğitim bedavadır. İkinci eğitim olarak Excel, Excel pratik çözümler, finans eğitimleri vb. alabilirsiniz. 
 
Sub FindExactMatch() 
    Dim MyStr As String, InfoMsg As String 
    Dim Rng1 As String, LookupValue As String 
    Dim MyQ As VbMsgBoxResult 
    Dim FoundRng As Variant 
    MyStr = Trim(Application.InputBox("Aranacak metni girin !", _ 
                                     "Find exact match ...")) 
    If Not MyStr = "False" Then 
        Set FoundRng = Cells.Find(MyStr, LookIn:=xlValues, LookAt:=xlPart) 
            If Not FoundRng Is Nothing Then 
                Rng1 = FoundRng.Address 
                FoundRng.Activate 
ResumeSub2: 
            If Right(FoundRng.Value, 1)  " " Then LookupValue = FoundRng.Value & " " 
            MyData = Split(LookupValue, " ", , vbTextCompare) 
            For i = LBound(MyData) To UBound(MyData) 
                If MyData(i) = MyStr Then 
                    InfoMsg = "Aranan metin " & FoundRng.Address(False, False) _ 
                    & " hücresinde bulundu." _ 
                    & vbCrLf & vbCrLf & "Bulunan hücrenin içeriği :" _ 
                    & vbCrLf & vbCrLf & FoundRng.Value & vbCrLf _ 
                    & vbCrLf & "Aramaya devam etmek istiyormusunuz ?" 
                    MyQ = MsgBox(InfoMsg, vbInformation + vbYesNo, _ 
                                 "Arama sonucu...") 
                    If MyQ = vbYes Then GoTo ResumeSub1: 
                    Exit Sub 
                End If 
            Next 
    Else 
            MsgBox "Aranan değer bulunamadı !", vbInformation, "Arama sonucu..." 
            Exit Sub 
    End If 
ResumeSub1: 
    Set FoundRng = Cells.FindNext(FoundRng) 
        If Rng1 = FoundRng.Address Then 
            MsgBox "Aranan değerden başka bulunamadı !", vbInformation, _ 
                   "Arama sonucu..." 
            Exit Sub 
        End If 
        FoundRng.Activate 
        GoTo ResumeSub2: 
    End If 
    Set FoundRng = Nothing 
End Sub 
 -

Benzer Sonuçlar
No	Makro Adı
1	Inputbox'la bulma
2	Inputbox'la sayfa bulma
3	bul-renklendir(hücre aralıklı)
4	Bir yazıyı / metni açık olan bütün Excel dosyalarında arayıp bulmak
5	arayıp bulma ve mesajla sıralı olarak listeleme
6	Seçilen 2 sayı arasındaki değerde kalan hücreyi bulma ve seçme
7	arama ve bulma
8	sayfa index numarasına göre bulma
9	doğum gününü bulma
10	gizli sayfanın gösterimi için şifre sorulması
11	Inputbox'la mesaj alma
12	Inputbox'la sayfaya gitme
13	Inputbox'larda yazılanları çarpar
14	sayfadan var ise sayfaadi'ni seçip sayfa üzerinde işleme devam edecek yok ise eğer sayfaadi altında yeni çalışma sayfası açacak
15	hücredeki sayı kadar yazıcıdan çıktı alma
16	2.sütunda çift tıkla eklenecek satırı belirle
17	registryden bilgi almak
18	excel operatörleri hk
19	Inputbox ile doğru rakamı girmeye zorlama
20	textboxa rakam girmeye zorlamak

Benzer Sonuçlar

Makro Adı

Inputbox'la bulma

Inputbox'la sayfa bulma

bul-renklendir(hücre aralıklı)

Bir yazıyı / metni açık olan bütün Excel dosyalarında arayıp bulmak

arayıp bulma ve mesajla sıralı olarak listeleme

Seçilen 2 sayı arasındaki değerde kalan hücreyi bulma ve seçme

arama ve bulma

sayfa index numarasına göre bulma

doğum gününü bulma

gizli sayfanın gösterimi için şifre sorulması