Seçili aktif satırı grup satır olarak aktarmak

[EKREM1661]

Değerli arkadaşlar..!
Sn.Evren bey'in aşağıdaki kodlarını kullanıyorum. Kaynak sayfasındaki seçili aktif satırı arşiv sayfasına sırayla aktarıyor..

Sub StrAktArşivi()
Dim sat1 As Long, sat2 As Long, sirano As Long
Dim sh As Worksheet
Sheets("kaynak").Select
Set sh = Sheets("arşiv")
sat2 = sh.Cells(Rows.Count, "A").End(xlUp).Row + 1
sirano = sat2 - 4
sat1 = ActiveCell.Row
Range("A" & sat1 & ":E" & sat1).Copy sh.Range("A" & sat2)
sh.Range("A" & sat2).Value = sirano
Rows(sat1).Delete
MsgBox "Seçilen veri satırı aktarıldı." & vbLf & "evrengizlen@hotmail.com "End Sub

Bu aktarılan satırı, devamındaki 4 satır ile birlikte aktarmak için kodu nasıl şekillendirmek gerekiyor.. Yani, diyelim ki 10.ncu satırı seçmişsek aktar butonunu kullandığımızda 10.11.12.13.14 satırlarını birden aktaracak..
Yardımlarınız için şimdiden teşekkürler..

 

[Saban Sertkaya]

Merhabalar, deneyiniz...

Sub StrAktArşivi()
Dim sat1 As Long, sat2 As Long, sirano As Long
Dim sh As Worksheet
Sheets("kaynak").Select
Set sh = Sheets("arşiv")
sat2 = sh.Cells(Rows.Count, "A").End(xlUp).Row + 1
sirano = sat2 - 4
sat1 = ActiveCell.Row
Range("A" & sat1 & ":E" & sat1 [B][COLOR="Red"]+ 4[/COLOR][/B]).Copy sh.Range("A" & sat2)
sh.Range("A" & sat2).Value = sirano
Rows(sat1).Delete
MsgBox "Seçilen veri satırı aktarıldı." & vbLf & "evrengizlen@hotmail.com "
End Sub

 

[EKREM1661]

Şaban bey, güzel oldu, elinize sağlık, fakat bir de, aktarma yapıldığı ilk kaynak sayfasında da, o satırlar (1+4=5) satır kalmasın, satır tamamen silinsin. Yani kopyalama değilde taşınma şeklinde olacak.. Şu an öncekisinde olduğu gibi sadece seçilen satırı siliyor.. Devamındaki +4 satırı da silsin..

 

[Saban Sertkaya]

Ben denemedim ama, Siz aşağıdaki şekilde bir deneyeniz.

Rows(sat1[B][COLOR="Red"] : sat1 + 4[/COLOR][/B]).Delete

 

[EKREM1661]

Ben bunu denemiştim, fakat olmadı..

 

[Ömer BARAN]

Merhaba. Denemedim, cep telefonundan yazıyorum.

Rows(sat1 & ":" & sat1 + 4).Delete

şeklinde deneyiniz.

 

[EKREM1661]

Evet, şimdi oldu Ömer bey..! Çok teşekkür ediyorum, Şaban bey'e de teşekkürler, iyi geceler ve hoçşa kalınız..

 

[Saban Sertkaya]

Övgüler Ömer Bey'e

 

[Ömer BARAN]

Övgüler Ömer Bey'e

Estağfurullah efendim, kod sizin işiniz.
Sağlıcakla.

 

[Saban Sertkaya]

Övgüler Ömer Bey'e

Mesaj hoş bir latifeydi elbette.

Estağfurullah efendim, kod sizin işiniz.

Estağfurullah, bizim bilgimiz, her zerresini toplasan koskoca okyanusta bir damlayı geçmez.
Bizimkisi olsa olsa yardım edebilmek için çabalamaktan öteye geçmez.
Sağlıcakla...