Çözüldü SAYFA = ActiveSheet.Name tanımlaması yapılabilir mi

[vernel]

Merhabalar, çeşitli sayfalardan oluşan bir dosyada her sayfada çalışabilen bir kod var. Bu kod çeşitli sayfaları dolaşıp işlem yapıyor. En sonunda ilk çıkış sayfasına geri gelmesini istiyorum. İlk çıkış sayfaları değişken olabiliyor. Bu neden kodun başladığı sayfayı "ActiveSheet" olarak tanımlamaya çalıştım ama kod hata veriyor.

Sub SAYFAADI()
Dim SAYFA As Worksheet
SAYFA = ActiveSheet.Name
MsgBox (SAYFA)
End Sub

 

[İbrahim Görgülü]

Sub SAYFAADI()
Dim SAYFA As Worksheet
SAYFA = ActiveSheet.Name
MsgBox (SAYFA)
...
...
...
diğer kodlar
.
...
.
.
.
.
.
.
SAYFA.select
End Sub

 

[Ahmet]

Merhaba

Belki alternatif olarak işinize yarayabilir.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[vernel]

Sub SAYFAADI()
Dim SAYFA As Worksheet
SAYFA = ActiveSheet.Name
MsgBox (SAYFA)
...
...
...
diğer kodlar
.
...
.
.
.
.
.
.
SAYFA.select
End Sub

hocam çok teşekkür ederim. Bu şekilde çalıştı. Bir de şöyle bir durum var.
SAYFA.Range("C1:C3") = "Q"
bunu nasıl çalıştırabilirim

 

[vernel]

Merhaba

Belki alternatif olarak işinize yarayabilir.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

çok teşekkür ederim Ahmet Hocam

 

[İbrahim Görgülü]

hocam çok teşekkür ederim. Bu şekilde çalıştı. Bir de şöyle bir durum var.
SAYFA.Range("C1:C3") = "Q"
bunu nasıl çalıştırabilirim

belirtilen sayfanın c1,c2,c3 hücrelerinin değeri Q olsun istiyorsanız aşağıdaki kodu kullanabilirsiniz.

Sub SAYFAADI()
Dim SAYFA As Worksheet
SAYFA = ActiveSheet.Name
MsgBox (SAYFA)
...
...
...
diğer kodlar
.
...
.
.
.
.
.
.
SAYFA.select
SAYFA.Range("C1:C3") = "Q"
End Sub

 

[vernel]

belirtilen sayfanın c1,c2,c3 hücrelerinin değeri Q olsun istiyorsanız aşağıdaki kodu kullanabilirsiniz.

Sub SAYFAADI()
Dim SAYFA As Worksheet
SAYFA = ActiveSheet.Name
MsgBox (SAYFA)
...
...
...
diğer kodlar
.
...
.
.
.
.
.
.
SAYFA.select
SAYFA.Range("C1:C3") = "Q"
End Sub

üstad çok teşekkürler.

 

[İbrahim Görgülü]

üstad çok teşekkürler.

Rica ederim. İyi çalışmalar...