Soru Birden Fazla Farklı Çalışma Sayfasında Arama Yapma

[Torchh]

Dört farklı çalışma sayfasında veriyi arayıp bulma işlemini nasıl yapabilir ?

 

[muhasebeciyiz]

Private Sub CommandButton2_Click()
Dim sht As Worksheet
Deger = InputBox("Değeri Girin")
BAŞTAN:
x = 0
For Each sht In Worksheets
If Not sht.Cells.Find(Deger) Is Nothing Then
x = 1
cevap = MsgBox(sht.Name & " sayfasında aranan bulundu. İgili sayfaya gidelim mi?" & vbNewLine & vbNewLine & _
"Hücreye Gitmek için EVET" & vbNewLine & _
"Aramaya Devam etmek için HAYIR" & vbNewLine & _
"SonlandırmaK için İPTAL", vbYesNoCancel, "ARAMA SONUCU")
If cevap = vbNo Then GoTo Devam1
If cevap = vbCancel Then Exit Sub
sht.Select
sht.Cells.Find(Deger).Select
Exit Sub
End If
Devam1:
Next
If x = 1 Then
cevap = MsgBox("Tüm sayfalar arandı." & vbNewLine & "Baştan başlamak istiyor musunuz?", vbYesNo, "ARAMAYA DEVAM EDİLSİN Mİ")
If cevap = vbYes Then GoTo BAŞTAN
Else
MsgBox "Aranan değer bulunamadı", , "ARAMA SONUCU"
End If
End Sub


Ömer Faruk Hocamızın yazmış olduğu kodlardır
Butona atayıp deneyiniz

Ctrl + F >
Seçenekler >
İçinde kısmından çalışma kitabı seçeneğini seçin >
Tümünü bu

 

[Torchh]

Private Sub CommandButton2_Click()
Dim sht As Worksheet
Deger = InputBox("Değeri Girin")
BAŞTAN:
x = 0
For Each sht In Worksheets
If Not sht.Cells.Find(Deger) Is Nothing Then
x = 1
cevap = MsgBox(sht.Name & " sayfasında aranan bulundu. İgili sayfaya gidelim mi?" & vbNewLine & vbNewLine & _
"Hücreye Gitmek için EVET" & vbNewLine & _
"Aramaya Devam etmek için HAYIR" & vbNewLine & _
"SonlandırmaK için İPTAL", vbYesNoCancel, "ARAMA SONUCU")
If cevap = vbNo Then GoTo Devam1
If cevap = vbCancel Then Exit Sub
sht.Select
sht.Cells.Find(Deger).Select
Exit Sub
End If
Devam1:
Next
If x = 1 Then
cevap = MsgBox("Tüm sayfalar arandı." & vbNewLine & "Baştan başlamak istiyor musunuz?", vbYesNo, "ARAMAYA DEVAM EDİLSİN Mİ")
If cevap = vbYes Then GoTo BAŞTAN
Else
MsgBox "Aranan değer bulunamadı", , "ARAMA SONUCU"
End If
End Sub


Ömer Faruk Hocamızın yazmış olduğu kodlardır
Butona atayıp deneyiniz

Ctrl + F >
Seçenekler >
İçinde kısmından çalışma kitabı seçeneğini seçin >
Tümünü bu

Çok teşekkür ediyorum öncelikle.hocam peki Düşeyara ile 4 farklı sayfada tarama yapıp veriyi getirme yöntemini nasıl yapabilirim ? Birden fazla düşeyara yapabilir miyiz ?