arayıp bulma ve mesajla sıralı olarak listeleme 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 FindItAll()
    Dim oSheet As Object
    Dim Firstcell As Range
    Dim NextCell As Range
    Dim WhatToFind As Variant
    WhatToFind = Application.InputBox("What are you looking for ?", "Search", , 100, 100, , , 2)
        If WhatToFind  "" And Not WhatToFind = False Then
            For Each oSheet In ActiveWorkbook.Worksheets
            oSheet.Activate
            oSheet.[a1].Activate
            Set Firstcell = Cells.Find(What:=WhatToFind, LookIn:=xlValues, LookAt _
            :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
                If Not Firstcell Is Nothing Then
                Firstcell.Activate
                MsgBox ("Found " & Chr(34) & WhatToFind & Chr(34) & " in " & oSheet.Name & "!" & Firstcell.Address)
                On Error Resume Next
                    While (Not NextCell Is Nothing) And (Not NextCell.Address = Firstcell.Address)
                    Set NextCell = Cells.FindNext(After:=ActiveCell)
                        If Not NextCell.Address = Firstcell.Address Then
                        NextCell.Activate
                        MsgBox ("Found " & Chr(34) & WhatToFind & Chr(34) & " in " & oSheet.Name & "!" & NextCell.Address)
                        End If
                    Wend
                End If
            Set NextCell = Nothing
            Set Firstcell = Nothing
            Next oSheet
        End If
End Sub

Benzer Sonuçlar
No	Makro Adı
1	arayıp bulma ve mesajla sıralı olarak listeleme
2	ehatalıysa formülünün izahı
3	llistede kaç kişi olduğunu bulmanın kısayolu.
4	En son hücreyi bulma ve adresini mesaj olarak verme
5	Bir yazıyı / metni açık olan bütün Excel dosyalarında arayıp bulmak
6	excelde kendi eklenti ve fonksiyonlarınızı oluşturun
7	30 excel dosyası içinde bir kelime aratma
8	hücrede bir sonraki ayın gün sayısı kadar gün ilave etme
9	şifrelemede son nokta
10	Dosyayı kim açtı 2
11	excel dosyası belirli bir tarihten sonra açılmasın
12	dosyayı kim açtı
13	microsoft outlookdan uyarı e-maili göndersin
14	Bir cümlede geçen ikinci veya üçüncü (veya istediğiniz sıraya uygun) kelimeyi bulma
15	a1 deki isimleri listboxta sıralı olarak gösterir
16	dosya yolunu göster ayrıntılı olarak listelesin dosyaların kapladıkları alanları, dosya yolunu vs…
17	texbox la veri arama
18	menü çubuğunun silinmesi ve özel bir menünün oluşturulması
19	kitapta ne kadar refers varsa ayrıntılı olarak belirtir (yeni sayfada)
20	satır ve sütunlar cm olarak ayarlayın

Benzer Sonuçlar

Makro Adı

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

ehatalıysa formülünün izahı

llistede kaç kişi olduğunu bulmanın kısayolu.

En son hücreyi bulma ve adresini mesaj olarak verme

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

excelde kendi eklenti ve fonksiyonlarınızı oluşturun

30 excel dosyası içinde bir kelime aratma

hücrede bir sonraki ayın gün sayısı kadar gün ilave etme

şifrelemede son nokta

Dosyayı kim açtı 2