• Foruma hoş geldin 👋 Ziyaretçi

    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 tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

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

Bu sorun verilen destek sayesinde çözüme ulaştırılmıştır.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
V

vernel

Yeni Üye
Kullanıcı Bilgileri
Katılım
12 Ağu 2021
Mesajlar
321
Çözümler
1
Aldığı beğeni
124
Excel Versiyonu
Office 2013 TR
Konuyu Başlatan
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
İ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
İ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.

Konuyu okuyanlar

Toplam: 2 (Kullanıcı: 0, Ziyaretçi: 2)
Geri
Üst