Statusbar tanımını sabit hale getirmek

[baydeniro]

Merhaba Arkadaşlar,
StatusBar tanımının ilk seferde hücreden alınması ama sonra hücredeki veri değişse de, silinse de kodun içindeki StatusBar tanımının değişmemesi mümkün mü ! yoksa tek yolu kodun içinde el ile yazmak mıdır ?
Aşağıdaki kodlardan birinde StatusBar tanımı doğrudan yazılı, 2.sinde ise A1 hücresinden alıyor.
Statubar tanımını hücreden aldıktan sonra, kodun içinde sabitlemek mümkün mü?

Sub STATUBAR_1()
Application.StatusBar = Sheets("ACIKLAMA").Range("A1")
End Sub

Sub STATUBAR_2()
Application.StatusBar = "ANKARA MAGAZASI"
End Sub

 

[Ömer]

Merhaba,

Deneyiniz.

Sub deneme()
    If Application.StatusBar = False Then
        Application.StatusBar = Sheets("ACIKLAMA").Range("A1")
    End If
End Sub

 

[baydeniro]

Merhaba,

Deneyiniz.

Sub deneme()
    If Application.StatusBar = False Then
        Application.StatusBar = Sheets("ACIKLAMA").Range("A1")
    End If
End Sub

Üstad ilginize ve kod desteğinize teşekkür ederim. Bu kodu da bir şekilde kullanabilirim. Şöyle yapabilmek de olur.
Diyelim ki Modulde ki kod 1. gibi ve dönüştürücü bir kod çalışında 1.kodun satırları 2. gibi oluyor !
Sub STATUBAR_1()
Application.StatusBar = Sheets("ACIKLAMA").Range("A1")
End Sub

Sub STATUBAR_2()
Application.StatusBar = "ANKARA MAGAZASI"
End Sub

 

[Ömer]

Açıklamanızı anlayamadım.

 

[baydeniro]

Açıklamanızı anlayamadım.

Afedersiniz üstadım, biraz karışık anlatmışım. Şöyleki

Application.StatusBar = Sheets("ACIKLAMA").Range("A1") satırını status bardaki görüntüsü ANKARA MAGAZASI.
Status Bara yazılacak veriyi Sheets("ACIKLAMA").Range("A1") den alacak ama kodun içinde Application.StatusBar = "ANKARA MAGAZASI" şeklinde bir satıra dönüştürmek.
Bir tür hücrede formülle oluşan veriyi sabit değere çevirmek gibi.
********.value = ********.value tarzınının makro satırına uygulanması

 

[Haluk]

Bu iş için, module kodlarını update etmek gerekir. Bunun için de öncelikle, Excel'in güvenlik ayarlarından buna erişim izni vermek gerekir ki, bu zaten başlı başına tehlikeli bir durum.

Bu durumda; ya hücreden okuyacaksınız ya da "hard coding" yapacaksınız, yani kodun içine yazacaksınız.

Özetle, sizin istediğiniz yapılabilir ..... ama size ne fayda sağlayacak, onu anlamadım.

.

 

[baydeniro]

Bu iş için, module kodlarını update etmek gerekir. Bunun için de öncelikle, Excel'in güvenlik ayarlarından buna erişim izni vermek gerekir ki, bu zaten başlı başına tehlikeli bir durum.

Bu durumda; ya hücreden okuyacaksınız ya da "hard coding" yapacaksınız, yani kodun içine yazacaksınız.

Özetle, sizin istediğiniz yapılabilir ..... ama size ne fayda sağlayacak, onu anlamadım.

.

Haluk üstadım selamlar. İlginize ve değerli görüş paylaşımınız için teşekkür ederim. Görüş alışverişi çok faydalı oluyor. Programın olanak sınırları hakkında siz değerli üstadların görüş ve bilgileriniz bizlere çok katkısı oluyor. Sağlıcakla kalın