Belirlenen Hücreye Mesaj Yazmak

[1Al2Ver]

Merhabalar,

Sayfa1(DATA) isimli sayfamda, kod ile A1 hücresine "Merhaba" yazdırmak istiyorum,

Gerekli kodu rica ediyorum,

Teşekkür ederim.

 

[Necdet]

Merhaba,

Sub Yaz()
Sheets("DATA").[A1] = "Merhaba"
End Sub

 

[1Al2Ver]

Merhaba,

Sub Yaz()
Sheets("DATA").[A1] = "Merhaba"
End Sub

Sayın Necdet Yeşertener, merhaba

Öncelikle çözüm için teşekkür ederim, sağolun,

Olabiliyor ise, işlemi butonsuz yapmak isterim,

Saygılarımla.

 

[uzmanamele]

merhaba
işlemi botonsuz yapmak derken nasıl birşey kasdediyorsunuz?
auto_open altında olabilir, sayfa aktif olunca olabilir, sayfada herhangi bir hücreye bişey yazınca olabilir vs vs. biraz açıklayabilir misiniz?

 

[uzmanamele]

merhaba
mesaj mükerrer olmuş, hazır yazılmışken boşa gitmesin bari. :hihoho:

örnek dosya ile ne istediğinizi belirtir misiniz?

 

[1Al2Ver]

merhaba
işlemi botonsuz yapmak derken nasıl birşey kasdediyorsunuz?
auto_open altında olabilir, sayfa aktif olunca olabilir, sayfada herhangi bir hücreye bişey yazınca olabilir vs vs. biraz açıklayabilir misiniz?

Sayın uzmanamele, merhaba,

Haklısınız, sayfa aktif olunca seçeneği benim için uygundur,

Sizce de uygunsa, ilgili kodu rica ediyorum, teşekkür ederim.

 

[uzmanamele]

merhaba
bu işinizi görür mü?

Private Sub Worksheet_Activate()
[A1] = "Merhaba"
End Sub

Private Sub Worksheet_Deactivate()
[A1] = ""
End Sub

 

[1Al2Ver]

merhaba
bu işinizi görür mü?

Private Sub Worksheet_Activate()
[A1] = "Merhaba"
End Sub

Private Sub Worksheet_Deactivate()
[A1] = ""
End Sub

Sayın uzmanamele, merhaba,

Sırasıyla "DATA", Modül1 ve ThisWorkbook'a kodu yazarak denedim, acaba ben mi yanlış yaptım bilemiyorum, sonuç alamadım,

 

[1Al2Ver]

Sayın uzmanamele, merhaba,

Sırasıyla "DATA", Modül1 ve ThisWorkbook'a kodu yazarak denedim, acaba ben mi yanlış yaptım bilemiyorum, sonuç alamadım,

demiştim, ancak sayfalar arası dolaşınca halloldu, teşekkür ederim.