• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

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

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
V

vernel

Yeni Üye
Katılım
12 Ağu 2021
Mesajlar
321
Çözümler
1
Aldığı beğeni
127
Excel V
Office 2013 TR
Konu Sahibi
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
 
Çözüm
İbrahim Görgülü
vernel' Alıntı:
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
Genişletmek için tıkla...
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
Tarihe göre sırala Oylara göre sırala
Sub SAYFAADI()
Dim SAYFA As Worksheet
SAYFA = ActiveSheet.Name
MsgBox (SAYFA)
...
...
...
diğer kodlar
.
...
.
.
.
.
.
.
SAYFA.select
End Sub
 
Olumlu oy 0 Negatif oyla
Merhaba

Belki alternatif olarak işinize yarayabilir.

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
İbrahim Görgülü' Alıntı:
Sub SAYFAADI()
Dim SAYFA As Worksheet
SAYFA = ActiveSheet.Name
MsgBox (SAYFA)
...
...
...
diğer kodlar
.
...
.
.
.
.
.
.
SAYFA.select
End Sub
Genişletmek için tıkla...
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
 
Olumlu oy 0 Negatif oyla
vernel' Alıntı:
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
Genişletmek için tıkla...
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
 
Olumlu oy 0 Negatif oyla
Çözüm
Konu Sahibi
İbrahim Görgülü' Alıntı:
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
Genişletmek için tıkla...
üstad çok teşekkürler.
 
Olumlu oy 0 Negatif oyla
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst