Başka kitaptaki sekmeyi seçme.

[simetri.]

Merhabalar, aşağıdaki kodu makro kaydet yöntemi ile

aldım. Kodun içinde Data ve Çalışma ismilerinin geçmemesi gerekmekte.
Bu isimleri konuya vakıf arkadaşlar farklı tanımlıyorlar onu biliyorum sadece.

Gerekli izahatı "Çalışma" adlı ekte yaptım. Yardımcı olabilirseniz sevinirim.
Teşekkürler.

Sub Makro2()
Windows("Data.xls").Activate
Sheets("Şubat").Select
Windows("Çalışma.xls").Activate
End Sub

 

[asi_kral]

Merhaba
Bu kodu dener misiniz_?

Sub seçgit()
Dim SBT As Variant
SBT = ActiveWorkbook.Name
Windows(2).Activate
Sheets("Şubat").Select
Windows(SBT).Activate
End Sub

 

[simetri.]

Kod tamamdır sayın asi_kral .
Teşekkür ederim. Ellerinize sağlık.

 

[asi_kral]

Kod tamamdır sayın asi_kral .
Teşekkür ederim. Ellerinize sağlık.

----
:hey:
----