DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Ç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 ?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