Soru Değerleri makro ile yapıştırma

[yyhy]

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.

 

[Korhan Ayhan]

Emin değilim ama aşağıdaki satırı silip deneyiniz.

Range("E9").Select

 

[Cengiz Demir]

Range("E9").Select ile E9 u seçtirip yapıştırma işlemini yaptırıyorsunuz.
Onun yerine bu kodu yazın.

ActiveCell.Offset(1, 0).Select

 

[Cengiz Demir]

Alternatif olarak bu kodu kullanabilirsiniz.

Dim ref As String
Dim Sstr As Long

Sub kopya()

    Sstr = Cells(Rows.Count, 5).End(xlUp).Row + 1

        ref = "E" & Sstr & ":R" & Sstr

    Range(ref).Value = Range("E4:R4").Value

    Range("E4").Select

End Sub

 

[yyhy]

Sayın @Korhan Ayhan Bey öncelikle ilginiz için teşekkür ederim.
Söylediğiniz şekilde yaptım son dolu satıra yazıyor.

Sayın @Cengiz Demir 3. mesajdaki kodu düzelttim çalıştı. 4. Mesajdaki çalışmadı, hiç bir işlem yapmadı. 3. mesaj işlemi yapıyor. Ama 4. mesajdaki kodu da denemek isterim. Teşekkür ederim.

 

[Cengiz Demir]

Rica ederim.
Diğer kodu denemiştim. Sürüm farkı kaynaklı bir durum olabilir belki de.

Sayın @Korhan Ayhan Bey öncelikle ilginiz için teşekkür ederim.
Söylediğiniz şekilde yaptım son dolu satıra yazıyor.

Sayın @Cengiz Demir 3. mesajdaki kodu düzelttim çalıştı. 4. Mesajdaki çalışmadı, hiç bir işlem yapmadı. 3. mesaj işlemi yapıyor. Ama 4. mesajdaki kodu da denemek isterim. Teşekkür ederim.

 

[yyhy]

Sayın @Cengiz Demir çok teşekkür ederim. Manuel veriyi seçip son satıra götürüp değerleri yapıştır. Demektense, yönteminiz; bir tık hepsi bu kadar, elinize emeğinize sağlık makbule geçti.