Selamlar öncelikle,
Aşağıdaki makroda bir hatam var. Arattığım hücreyi gidip bir sonraki sayfada bulup; arattığım hücrenin 8 satır sonrasına yapıştırmasını istiyorum. Ancak başlangıç satırını diğer sayfada arattırmaktansa diğer sayfada seliçi olan hücrenin iki sonrası hücreyi kopyalıyor.
Yardımlarınız için şimdiden teşekküler
Sub Makro4()
'
' Makro4 Makro
'
' Klavye Kısayolu: Ctrl+ÜstKrkt+I
'
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.Copy
ActiveSheet.Next.Select
Cells.Find(What:="A1", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(0, 1).Range("A1").Select
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Previous.Select
ActiveCell.Offset(0, 8).Range("A1").Select
ActiveSheet.Paste
End Sub
Aşağıdaki makroda bir hatam var. Arattığım hücreyi gidip bir sonraki sayfada bulup; arattığım hücrenin 8 satır sonrasına yapıştırmasını istiyorum. Ancak başlangıç satırını diğer sayfada arattırmaktansa diğer sayfada seliçi olan hücrenin iki sonrası hücreyi kopyalıyor.
Yardımlarınız için şimdiden teşekküler
Sub Makro4()
'
' Makro4 Makro
'
' Klavye Kısayolu: Ctrl+ÜstKrkt+I
'
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.Copy
ActiveSheet.Next.Select
Cells.Find(What:="A1", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(0, 1).Range("A1").Select
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Previous.Select
ActiveCell.Offset(0, 8).Range("A1").Select
ActiveSheet.Paste
End Sub