Sabit tanımlar

[mtbi00]

iyi günler,

Sizden ricam excel sayfalarında yazılı makrolar içinde geçerli olacak sabit tanımlamalar verebiliyormuyuz. İstediğim şey sayfa açılınca imza adlı değişkene "Mevlüt tekin" (bu daha fazla uzunda olabilir) yükleyip bunu sayfa içindeki herhangi bir makroda imza diyerek kullanmak. Her seferinde her makroda imza ya "Mevlüt tekin" diye yazmak istemediğimden. Yardımlarınız için şimdiden teşekkürler.

 

[uzmanamele]

merhaba

ad tanımlama ile yapabilirsiniz.
makro içersinde de bu adları kullanabilirsiniz.

aşağıdaki linki inceleyiniz.

tık tık tık...

 

[mtbi00]

hocam ilginden dolayı teşekkür ederim. Ama sanırım yine ne istediğimi anlatamadım. Az olan bilgimle örnek bir dosya yaptım. Örnekte açılışta imza değişkenine "Mevlüt tekiN 2009 (C)" değerini yükleyip herhangi bir yerde imza yazarak bunu kullanmak istiyorum. Bununla ilgili bir kod varmıdır. Yardımlarınız için şimdiden teşekkürler.

 

[Necdet]

Merhaba

Ofisin Otomatik Düzeltme seçeneğini de kullanabilirsiniz.

 

[mtbi00]

sayın necdet yesertener

İlginizden dolayı teşekkür ederim ama ben değişkeni sayfalarda değil makrolarda kullanmak istiyorum. Yani msgbox kutusu ile ekrana yazdırmak gibi. Sanırım msgbox ta kullanmak için otomatik düzeltme seçeneğini kullanamayız.

 

[uzmanamele]

merhaba

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

Sub imza_ekle()
imza = InputBox("imza giriniz", "imza nedir?")
    ActiveWorkbook.Names.Add Name:="imza", RefersToR1C1:=imza
End Sub

imza'yı ad olarak tanımlayıp kullanabilirsiniz.

 

[mtbi00]

hocam teşekkür ediyorum, aradığım buydu ama affınıza sığınarak son bir şey daha sormak istiyorum. Gönderdiğiniz kodu örnekteki dosyaya ekledim. Açılışta soruyor ama daha sonradan imzayı nasıl kullanıcam onu beceremedim. "imzayı goster" tıklatınca imza boş görünüyor.

Private Sub CommandButton2_Click()
MsgBox imza
End Sub

Son olarak bunuda söylerseniz sevinirim. Teşekkürler.

 

[halit3]

iyi günler,

Sizden ricam excel sayfalarında yazılı makrolar içinde geçerli olacak sabit tanımlamalar verebiliyormuyuz. İstediğim şey sayfa açılınca imza adlı değişkene "Mevlüt tekin" (bu daha fazla uzunda olabilir) yükleyip bunu sayfa içindeki herhangi bir makroda imza diyerek kullanmak. Her seferinde her makroda imza ya "Mevlüt tekin" diye yazmak istemediğimden. Yardımlarınız için şimdiden teşekkürler.

ekli dosyadaki gibi birşeymi istiyorsunuz

 

[mtbi00]

halit3 hocam teşekkür ederim ama sanırım bilgi azlığından ne demek istediğimi anlatamadım. istediğim şey bu değildi. Benim istediğim sayfa açılışında imza ya bir değer yüklemek ve sayfanın herhangi bir yerinde veya herhangi makroda (sayfa açık kaldığı sürece) imza dediğimde açılışta yüklenen bilgiyi kullanmak.

 

[halit3]

halit3 hocam teşekkür ederim ama sanırım bilgi azlığından ne demek istediğimi anlatamadım. istediğim şey bu değildi. Benim istediğim sayfa açılışında imza ya bir değer yüklemek ve sayfanın herhangi bir yerinde veya herhangi makroda (sayfa açık kaldığı sürece) imza dediğimde açılışta yüklenen bilgiyi kullanmak.

birde bu dosyaya bakarmısınız.

 

[mtbi00]

peki hocam son bir soru.Bu imzayı msgbox komutu ile ekrana yazdırabilirmiyim.

 

[halit3]

peki hocam son bir soru.Bu imzayı msgbox komutu ile ekrana yazdırabilirmiyim.

aşağıdaki kodları incelermisiniz veya diğer kodlarla değiştirin

Dim deg1 As String
Private Sub CommandButton1_Click()
deg1 = ActiveWindow.RangeSelection.Address
Range(deg1).Value = "=imza"
MsgBox Range(deg1).Value
End Sub
Private Sub CommandButton2_Click()
MsgBox deg1
On Error Resume Next
a = InputBox("İmsanızı buraya yazınız.", "İMZA BAŞLIĞI")
If a = "" Then
Exit Sub
End If
ActiveWorkbook.Names("imza").Delete
b = ActiveWindow.RangeSelection.Row
c = ActiveWindow.RangeSelection.Column
d = ActiveWindow.RangeSelection.Address
e = ActiveSheet.Name
ActiveWorkbook.Names.Add Name:="imza", RefersToR1C1:="=" & e & "!R" & b & "C" & c
Range(d).Value = a
MsgBox Range(deg1).Value
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Shapes("CommandButton1").Top = ActiveCell.Offset(2, 2).Rows.Top
ActiveSheet.Shapes("CommandButton1").Left = ActiveCell.Offset(2, 2).Rows.Left
End Sub

 

[mtbi00]

hocam ilgi ve alakınızdan dolayı teşekkür ederim.