Kullanılan kodu farklı sayfaları açmadan kullanma

[acolkesen1]

Merhaba Arkadaşlar,

Aşağıdaki kod bulunduğum sayfada A sütununda son dolu hücrenin bir altındaki hücreyi seçiyor.
DEG = Cells(65536, "A").End(3).Row + 1
Cells(DEG, "A").Select
Sayfa1 de iken aynı kodu bir başka sayfada , örneğin Sayfa2 de , Sayfa2 yi açmadan nasıl çalıştırırız..
Teşekkürler..

 

[Necdet]

Tam olarak ne yapmak istediğiniz anlaşılmıyor.

Yine de örnek olsun

MsgBox "Sayfa2 nin A Sütunundaki Son Boş Satırı : " & _
Sheets("Sayfa2").[A65536].End(3).Row + 1

 

[acolkesen1]

Hocam kodlarım,
…………..
Selection.Copy
Sheets("ARŞİV").Select
DEG = Cells(65536, "A").End(3).Row + 1
Cells(DEG, "A").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
………...
Şeklinde devam ediyor.Anlaşılacağı gibi burada arşiv sayfasını önce açıyoruz, sonra açtığımız sayfada ilk boş hücreyi bulup,daha önce kopyalanmış olan veriyi ilk boş hücreye yapıştırıyoruz. Ben bu işlemi arşiv sayfasını açmadan yapmak istiyorum.

Sheets("ARŞİV").DEG = Cells(65536, "A").End(3).Row + 1
Cells(DEG, "A").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
şeklinde denedim ama olmadı. Acaba nasıl bir değişiklik yapmam gerekiyor?
Yardımlarınız için teşekkür ederim..

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub AKTAR()
    With Sheets("ARŞİV")
        Satır = Sheets("ARŞİV").Range("A65536").End(3).Row + 1
        .Cells(Satır, "A") = Selection.Value
    End With
End Sub