Makrodaki Hücre adresini 2. makroya atamak

[zafer]

Merhaba

Aşağıdaki makrodaki BBB değişkenine atanmış Hücre adresini
MASRAF_MER_EKLEME makrosuna atamak istiyorum
Yani aynı hücre adresi o makrodada geçerli olsun


Sub MASRAF_MER_ADRES()

alanad = "KLIN"

aaa = WorksheetFunction.Match(alanad, Sheets("aa").Range("c1:BA1"), 0) + 2
BBB = Cells(2, aaa).Address
CCC = Cells(10, aaa).Address
adresim = "aa" & "!" & BBB & ":" & CCC

MASRAF_MER_EKLEME BBB

End Sub


Sub MASRAF_MER_EKLEME(BBB As Range)

xxxxxxx
End Sub

Saygılarımla

 

[danersin]

Modülün başında public ile değişkeni tanımlamanız (karışıklık yaratmasın diye tt yaptım sonra makroyu call yaparken BBB yerinde hangi değişkeni yollamak istiyorsanız prosedür isminin sonuna parantez içinde yazmanız yeterli.. koddan daha iyi anlayacaksınız sanırım.

[vb:1:97ad2a8b7a]
public tt as range

Sub MASRAF_MER_ADRES()
alanad = "KLIN"
aaa = WorksheetFunction.Match(alanad, Sheets("aa").Range("c1:BA1"), 0) + 2
tt = Cells(2, aaa).Address
CCC = Cells(10, aaa).Address
adresim = "aa" & "!" & BBB & ":" & CCC

call MASRAF_MER_EKLEME(tt)

End Sub


Sub MASRAF_MER_EKLEME(BBB As Range)
xxxxxxx
End Sub
[/vb:1:97ad2a8b7a]

 

[zafer]

Sayın Danersin

Çok teşekkür ederim
tt değişkenine geldiğimde aşağıdaki hatayı alıyorum.

Object variable or With block variable not set (Error 91)


Public tt As Range

Sub MASRAF_MER_ADRES()
alanad = "lokasyon"
aaa = WorksheetFunction.Match(alanad, Sheets("aa").Range("c1:BA1"), 0) + 2
tt = Cells(2, aaa).Address
CCC = Cells(10, aaa).Address
adresim = "aa" & "!" & BBB & ":" & CCC

Call MASRAF_MER_EKLEME(tt)

End Sub


Sub MASRAF_MER_EKLEME(tt As Range)
ggg = tt
End Sub

Saygılarımla

 

[danersin]

Range'lerin string olması gerekiyor.

Ben bugün başka kod yazmasam iyi olacak. Geceyi devirince eskiden kaldırırda vücutta kafada, artık kaldırmıyor galiba.

 

[zafer]

Sayın Danersin

ilgi ve alakanıza çok teşekkür ederim.

Saygılarımla

 

[zafer]

Sayın Danersin

bir makroda tanımlanmış değişkenleri aynı modül içindeki diğer makrolarda da kullanmam mümkünmü acaba

makroyu diğer makrolara bağlamadan

Saygılarımla

 

[Levent Menteşoğlu]

Tüm modüllerin en üstüne aşağıdaki şekilde yazarsanız değişken tüm modüllerde geçerli olur.

Public tt As String

Sub MASRAF_MER_ADRES()
.....
.....
.....

 

[danersin]

Prosedür yada fonksiyon kodlarının dışında (genellikle modül sayfanın en başında)

dim yada private ile değişken tanımlarsanız o modülde etkili olur.

global yada public ile tanımlarsanız tüm açık projelerinizde etkili olur.

 

[zafer]

Sayın Danersin , Sayın Leventm

Çok Teşekkür ederim.

Sizinle tanışmadan önce değişken tanımlamaktan canım çıkmıştı.

Tekrar Teşekkür ederim.

Saygılarımla