makroda değer alan nesnenin, diğer makroda kullanılabilmesi

[ÖZLÜCE]

Merhaba
Aşağıdaki kod'da kopyala makrosunda değer alan ssayısı, yapıştır makrosunda tanınmıyor.Bu konuda yardımlarınızı bekliyorum. teşekkürler

Private Sub kopyala_cmd_Click()

Kopyala

Dim ssayısı As Integer
ssayısı = Selection.Rows.Count

Do Until Application.CutCopyMode = xlCopy = False
DoEvents
kopyala_cmd.ForeColor = &HFF00&
Loop

menu.kopyala_cmd.ForeColor = &HFFFFFF

End Sub

Private Sub yapıştır_cmd_Click()

Dim ilksatır As Integer
Dim ssatır As Integer

ilksatır = Selection.Row
ssatır = ilksatır

For j = ilksatır To 1000000
DoEvents
If Cells(ssatır, 2).Locked = True Then GoTo çık
ssatır = ssatır + 1
Next

çık:
If (ssatır - ilksatır) > ssayısı Then Exit Sub

Yapıştır

End Sub

 

[peleryn]

Private Sub kopyala_cmd_Click()

Kopyala

'Dim ssayısı As Integer
'ssayısı = Selection.Rows.Count

Do Until Application.CutCopyMode = xlCopy = False
DoEvents
kopyala_cmd.ForeColor = &HFF00&
Loop

menu.kopyala_cmd.ForeColor = &HFFFFFF

End Sub

Private Sub yapıştır_cmd_Click()

Dim ilksatır As Integer, ssayısı As Integer,ssatır As Integer


ilksatır = Selection.Row
ssatır = ilksatır
ssayısı = Selection.Rows.Count
For j = ilksatır To 1000000
DoEvents
If Cells(ssatır, 2).Locked = True Then GoTo çık
ssatır = ssatır + 1
Next

çık:
If (ssatır - ilksatır) > ssayısı Then Exit Sub

Yapıştır

End Sub

Bu şekilde çalışacak mı bir deneyin isterseniz

 

[ÖZLÜCE]

çalışmadı, ayrıca ilginize teşekkür ederim

 

[metin_1]

değişkeni procedure den önce tanımlayınca oluyor mu? Bir denersen iyi olur.
Veya function olarak değeri çekebilirsin

 

[halit3]

A sutunu için aşağıdakilerden birini denermisiniz.

aktif olan hücre

ActiveWindow.Selection.Row

dolu hücre sayısı

WorksheetFunction.CountA (Worksheets(ActiveSheet.Name).Range("A1:A65536"))

dolu en son hücre

Worksheets(ActiveSheet.Name).[A65536].End(3).Row

 

[Skorpiyon]

Sayın ÖZLÜCE,

Değeri ssayısı isimle değişkene atayacağınıza sayfada bir hücreye atayın.

Örneğin;
ssayısı = Selection.Rows.Count 'yerine
Range("A1") = Selection.Rows.Count gibi...

If (ssatır - ilksatır) > ssayısı Then Exit Sub 'yerine
If (ssatır - ilksatır) > Val(Range("A1") Then Exit Sub gibi...

 

[ÖZLÜCE]

metin 1 arkadaşımızın dediği gibi dim Dim ssayısı As Integer 'i makronun dışında tanımlayınca oldu. ilgilize çok teşekkür ederim.