Dinamik satır koyalama Hk.

[LgLabs]

İyi günler kolay gelsin,
ActiveCell.row ile seçtiğimiz dinamik bir satırda sadece 5 den 24 e kadar olan sütunları farklı bir sayfada ilk bos satıra kopyalamak ve seçili alanı silmek için bir makro ya ihtiyacım var yardımcı olabilirseniz sevinirim kolay gelsin.

 

[Necdet]

Merhaba,
Açıklamanızı netleştirmeniz gerek. dinamik satır(hangi sütunun satırı?),
Farklı bir sayfa (Hangi Sayfa?)

Şunu mu demek istiyorsunuz : Satır sayısına bağlı olarak E:X sütunları başka bir sayfaya (ki adı önemli) kopyalamak kopyalanan değerin de silinmesi.

 

[LgLabs]

Merhaba,
Açıklamanızı netleştirmeniz gerek. dinamik satır(hangi sütunun satırı?),
Farklı bir sayfa (Hangi Sayfa?)

Şunu mu demek istiyorsunuz : Satır sayısına bağlı olarak E:X sütunları başka bir sayfaya (ki adı önemli) kopyalamak kopyalanan değerin de silinmesi.

Örneğin;
Sheets("Devam edenler") sayfasında ki
Mause ile seçtiğimiz hücrenin E:X aralığındaki alanı seçip kopyalasın
Sheets("bitenler") sayfasının D sütununda bulunan ilk boş satıra yapıştırsın ve Sheets("Devam edenler") sayfasında ki kopyaladığımız alanı silsin.

Bu şekilde bir seneryo olacak teşekkür ederim.

 

[ÖmerBey]

Merhaba,
Dosyanızın yedeğini aldıktan sonra "devam edenler" sayfasında aşağıdaki kodu çalıştırıp deneyiniz.

Sub kod()
Dim S2 As Worksheet
Set S2 = Sheets("Bitenler")
With Intersect(Selection.EntireRow, Range("E:X"))
    .Copy S2.Cells(Rows.Count, "D").End(3)(2, 1)
    .ClearContents
End With
End Sub

 

[LgLabs]

Merhaba,
Dosyanızın yedeğini aldıktan sonra "devam edenler" sayfasında aşağıdaki kodu çalıştırıp deneyiniz.

Sub kod()
Dim S2 As Worksheet
Set S2 = Sheets("Bitenler")
With Intersect(Selection.EntireRow, Range("E:X"))
    .Copy S2.Cells(Rows.Count, "D").End(3)(2, 1)
    .ClearContents
End With
End Sub

Teşekkür ederim kolay gelsin