SADECE BELLİ SAYFALARDA ARAMA YAPTIRMA

[aliozturk55]

Merhaba,
Aşağıdaki kod ile makbuz numaralarını bulup yanına tarihi ve tutarını yazdırıyorum. fakat çalışma kitabından 25 adet sayfa var sadece belirlediğim sayfalarda arama yaptırmak istiyorum. yardımcı olabilir misiniz ? şimdiden teşekkür ederim.

Dim Bul As Range, Say As Integer
Set Bul = Sheets("HÜSEYİN").Cells.Find(what:=TextBox_makbuz, LookAt:=xlWhole)
If Not Bul Is Nothing Then
Bul.Offset(0, 1) = CDate(TextBox2)
Bul.Offset(0, 2) = CDbl(TextBox3)
Say = Say + 1
End If


If Say = 0 Then
MsgBox "Makbuz no bulunamadı!", vbCritical
Else
MsgBox "Kayıt işlemi tamamlanmıştır.", vbInformation
End If

 

[genesis_vision]

Set Bul = Sheets("HÜSEYİN").Cells.Find(what:=TextBox_makbuz, LookAt:=xlWhole) yerine
Set Bul = ActiveSheet.Cells.Find(what:=TextBox_makbuz, LookAt:=xlWhole) olarak değiştirirsen sadece seçili olan sayfada arama yapacaktır.