Sheets().Name makrosu

[ahmethasim]

Merhaba arkadaşlar benim sorunum aşağıda da belirttiğim üzere ;

kodlarımda


Sub Makro1()

Dim b As String

b = Sheets(2).Name

b = b + "!"

Sayfa1.Cells(1, 1).FormulaLocal = "=" & b & "A" & 2

End Sub

şeklinde bir makro düşünün yalnız bende Sheets(2).Name değeri çalışma kitabımda yazanla aynı değil yani Sheets(2).Name = ScenerioDialog olarak buluyor kodda ama çalışma kitabımda Sayfa2 yazıyor.

Bunu nasıl düzeltebiliriz ? Çünkü Sheets(2).Name e geldiğinde Güncelleştirilecek Değerler: Scenerio Dialog adında bir pencere açılıyor konu ile alakasız bir userform karşıma çıkıyor benim ScenerioDialog ismi ile işim yok ki ben Sayfa2 ismini bulsun istiyorum veya çalışma kitabını açtığımda altta sayfa isimleri ne ise Sheets().Name de bana o string değerlerini döndürsün istiyorum.

Bunu nasıl yapabilirim acaba; bu farklılık nerden kaynaklanıyor ?

Teşekkürler; İyi çalışmalar

 

[halit3]

bunu denermisiniz.

For i = 1 To ActiveWorkbook.Sheets.Count
If Sheets(i).Name = "Sayfa2" Then
Sheets(Sheets(i).Name).Select ' eğer sayfa2 varsa Sayfa2 ye gelecek
'kodlar buraya yazılacak
End If
Next

 

[ahmethasim]

Hocam cevabınıza teşekkürler ama sorunu şu şekilde hallettim.

Dim sayfa(8) As String

sayfa(2)=ThisWorkbook.Sheets(2).Name

daha önce ThisWorkbook yazmayınca gidip Sheets(2) değeri için ScenerioDialog ismini buluyordu.

Teşekkürler tekrar.