tane45
Altın Üye
- Katılım
- 9 Mart 2017
- Mesajlar
- 16
- Excel Vers. ve Dili
- 2016 TR
- Altın Üyelik Bitiş Tarihi
- 09-08-2025
Merhabalar,
4 adet sayfam var. Sayfa1,2,3,4. Benim aşağıdaki yazdığım makroya göre yalnızca 1 sayfada arama yapıp bulduğu hücreyi boyatabiliyorum. Birden fazla sayfa da olduğu için diğer sayfalarda da araması gerekiyor. Bu konuda bana yardımcı olabilir misiniz? Aciliyeti söz konusudur.
4 adet sayfam var. Sayfa1,2,3,4. Benim aşağıdaki yazdığım makroya göre yalnızca 1 sayfada arama yapıp bulduğu hücreyi boyatabiliyorum. Birden fazla sayfa da olduğu için diğer sayfalarda da araması gerekiyor. Bu konuda bana yardımcı olabilir misiniz? Aciliyeti söz konusudur.
Kod:
Private Sub OptionButton2_Click()
Dim aranan As String, bul As Range
aranan = Sheets("Sayfa2").Range("A2")
Set bul = Sheets("Sayfa1").Range("A2:A66000").Find(aranan, Lookat:=xlWhole)
If Not bul Is Nothing Then
Sheets("Sayfa1").Activate
bul.Interior.Color = vbRed
' bulunamazsa "Sonuç Bulunamadı." diye mesaj göster
Else
MsgBox "Sonuç Bulunamadı.", vbInformation, "BİLGİ"
End If
Set bul = Nothing
Sheets("Sayfa2").Rows("2:2").ClearContents 'Sayfa2 sayfasında son dolu satırı siliyoruz.
End Sub