Belirlenmiş satır aralığının alt sıraya kopyalanması

[EKREM1661]

Tüm Arkadaşlarımıza selam ve iyi akşamlar dileğiyle..!

Ekte mevcut örnekte daha net anlaşılacağı üzere; imlecin bulunduğu aktif satırda (A sütunu ile X sütunu arasında kalan kısmın) en alt sıraya numara vererek kopyalanması ile ilgili.. ilgilenen arkadaşlara şimdiden teşekkürler...

 

[Ömer]

Merhaba,

Bu şekilde deneyiniz.

Sub Kopya()
 
Dim son As Long
 
son = Cells(Rows.Count, "A").End(xlUp).Row + 1
Rows(ActiveCell.Row).Copy Range("A" & son)
Range("A" & son) = son
 
End Sub

.

 

[EKREM1661]

Ömer bey..! çok seri ve güzel olmuş, ancak bir-iki sorun var..

1-Satır numaralarını her halde, A sütunundaki numaralara göre değil de yerleşik sıra numaralarına göre atıyor, dolayısıyla yukarıdaki örnekte 2 sayı boş geçtikten sonra, bendeki asıl çalışmam 6.ncı satırdan itibaren başladığı için, 6 sayı atladıktan sonra düzeliyor.

2-Asıl önemlisi ise A:X sütunları aralığını değil de tüm satırı kopyalıyor, sadece söz konusu aralığı kopyalarsa çok iyi olacak..

3-Son olarak da, c sütununda günlük tarihler mevcut.. kopya yapınca c cütunundaki tarihi de günün tarihi olarak güncellese..

 

[Ömer]

Bu şekilde deneyiniz.

Sub Kopya()
 
Dim son As Long
son = Cells(Rows.Count, "A").End(xlUp).Row + 1
 
Range("A" & ActiveCell.Row & ":X" & ActiveCell.Row).Copy Range("A" & son)
[COLOR=blue]Range("A" & son) = son - 1[/COLOR]
Range("C" & son) = Date
 
End Sub

Eğer sıra numarasına göre artımıyacaksa mavi satırı silersiniz. Sıra numarasına göre artacaksa, -1 değerini kendinize uyarlarsınız.

6.satırdan başlıyorsa -5 gibi.

.

 

[EKREM1661]

Ömer bey..! elinize sağlık, çok güzel olmuş, teşekkür ediyorum..