Makrom tüm sayfalarda çalışırmı

[macay]

merhabalar,
aşağıdaki şekilde bir makrom var..bu makro sadece aktif çalışma sayfasında çalışıyor..çalışma kitabındaki tüm sayfalarda aynı anda çalışması için ne yazmam gerekiyor...yardım edebilirmisiniz,

Saygılarımla

Sub bul()
Dim myRange As Range
Set myRange = Workbooks("Anaa").Worksheets("StkHrkIcm").Range("E13:H644")
answer = WorksheetFunction.VLookup([ad13], myRange, 2, False)
[b13] = answer
End Sub

 

[Recep İpek]

Aşağıdaki şekilde deneyebilirmisiniz?

Sub bul()
On Error Resume Next
Dim myRange As Range
Dim say As Worksheet
For Each say In Worksheets
Set myRange = say.Range("E13:H644")
answer = WorksheetFunction.VLookup(say.Range("ad13"), myRange, 2, False)
say.Range("b13") = answer
Set myRange = Nothing
Next
End Sub

 

[macay]

Sayın ripek,

ekte dosyayı gönderdim..bul çalışan makro..Bul2 sizin makronuz..vaktiniz varsa bakabilirmisiniz,

Saygılarımla