Excelde aranan hücrede referansla belli aralıkta hücre seçme

[meraklimerakli]

Arkadaşlar

Range(Cells(5, 1), Cells(10, 1)).Select yerine ne yazmalıyım ki bulunan hücrenin altından başlayarak 6 satır seçip toplayacak.

Teşekürler

Sub Detayda_Maliyet_Bul()
Cells.Find(What:="CNC BÜYÜK", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=True, SearchFormat:=False).Activate
Cells.FindNext(After:=ActiveCell).Activate
Cells.FindNext(After:=ActiveCell).Activate
Selection.End(xlToRight).Select
ActiveCell.Offset(0, 0).Select
Selection.Copy
ActiveWindow.SmallScroll Down:=3
Range(Cells(5, 1), Cells(10, 1)).Select
Selection.Copy
End Sub

 

[uzmanamele]

merhaba

örnek kodunuzdan bişey anlamadım ama sanırım istediğiniz aşağıdaki gibi bişey olmalı.

ActiveCell.Resize(6, 1).Select

 

[usubaykan]

Merhaba;

Örnek kodunuzu biraz değiştirdim. İnceler misiniz?

Sub Detayda_Maliyet_Bul()
Set Bul = Cells.Find(What:="CNC BÜYÜK", LookAt:=xlWhole)
Bul.Offset(0, 0).Copy
Cells(Bul.Row + 6, Bul.Column).PasteSpecial
End Sub