AccessTr.neT

Değerleri makro ile aşağıya doğru son ilk boşluğa değerleri olarak yapıştırmak istiyorum ama E9 hücresine yapıştırıyor.

Sub kopyala()
Range("E4:R4").Select
Selection.Copy
Range("E5").Select
Selection.End(xlDown).Select
Range("E9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E4").Select
Application.CutCopyMode = False
End Sub
Makro kodunda nereyi düzeltmem gerekir.

Değerleri makro ile aşağıya doğru son ilk boşluğa değerleri olarak yapıştırmak istiyorum ama E9 hücresine yapıştırıyor.

Sub kopyala()
Range("E4:R4").Select
Selection.Copy
Range("E5").Select
Selection.End(xlDown).Select
Range("E9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E4").Select
Application.CutCopyMode = False
End Sub
Makro kodunda nereyi düzeltmem gerekir.

Yapıştırma işleminden önce aşağıdaki kodla E9 hücresi seçildiği için oraya yapıştırıyor olabilir. O satırı silerek dener misiniz?

Range("E9").Select

Sayın @berduş bey denedim son dolu satıra yazıyor.

Selection.PasteSpecial... yerine
Selection.offset(1).PasteSpecial  yazmayı dener misiniz

Bu kodu da deneyebilirsiniz...

Dim xlSht As Worksheet
Dim iRw As Integer
Dim myRng As Range

Set xlSht = ActiveWorkbook.Worksheets("SheetName")

With xlSht
iRw = .Range("E" & .Rows.Count).End(xlUp).Row + 1
Set myRng = .Range("E4:R4")
With myRng
xlSht.Range("E" & iRw).Resize(.Rows.Count, .Columns.Count).Cells.Value2 = .Cells.Value2
End With
End With

Set xlSht = Nothing
Set myRng = Nothing