aktif sayfanın solundaki sayfadan veri almak

[ckkaraca]

aşağıdaki makrodaki 21,12 isimli sayfayı seçmek yerine aktif sayfanın solundaki sayfayı seçmek istiyorum yardımlarınız bekliyorum (Sheets("21,12").Select yerine en son sayfanın solundaki sayfa olarak değişken atamak, Sheets("23,12").Select yerine aktif sayfa olarak değişken atamak istiyorum)




Sheets(Sheets.Count).Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Format(Date, "dd,mm")
Range("J2").Select
ActiveCell.FormulaR1C1 = Date
Range("E2:G64").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-14
Range("C3:C64").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-7
Sheets("21,12").Select
Range("I4:I64").Select
Selection.Copy
Sheets("23,12").Select
Range("B4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

 

[Korhan Ayhan]

Selamlar,

Aktif sayfanın solundaki sayfayı aşağıdaki kodu kullanarak seçebilirsiniz. Ama yaptığınız işlemleri sayfa seçtirmeden yapabilirsiniz. Eğer örnek dosya ekleyip yapmak istediğiniz işlemi açıklarsanız kod konusunda destek verebiliriz.

ActiveSheet.Previous.Select

 

[ckkaraca]

yardım etmeniz dileğiyle

bahsettiğim yardım talebini dosyada açıkladım ve makrosunu ctrl+q tuşu ile aktifleştirdim şimdiden çok teşekkürler

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

F12 tuşuna bastığınızda istediğiniz özellikteki sayfa otomatik eklenecektir.

 

[ckkaraca]

teşekkür ederim

korhan hocam yardımın için çok teşekkür ederim.Sizden yine aynı konuda ama farklı bir çalışma için yardım isteyebilrmiyim.Sorumu sayfaya ekledim