Tabloda İlk boş satıra makro ile kopyalama

[otufan03]

Tabloda Ýlk boş satıra makro ile kopyalama

Sayfa2 de A1:K20 hücreleri arasında bir tablo var, Bu tablonun satırları baştan itibaren bir kısmı dolu veya tamamı boş, herhangi bir satırı veya Sayfa1 deki B3:L3 aralığını veya sayfa birdeki tablodaki dolu olan en sondaki satırı Sayfa2 deki ilk boş satıra makro ile nasil kopyalayabiliriz.

 

[danersin]

Kopyalanacak satırda ilk hücreye(sütuna) gidip kodu çalıştırın.

[vb:1:41c5ac8bc3]Sub Makro1()
sonsat = Sheets("Sayfa2").Cells(65536, 1).End(xlUp).Row + 1
bassut = ActiveCell.Column
sat = ActiveCell.Row
Range(Cells(sat, bassut), Cells(sat, bassut + 11)).Copy
Sheets("Sayfa2").Cells(sonsat, 1).PasteSpecial
Sheets("Sayfa1").Select
Application.CutCopyMode = False
End Sub[/vb:1:41c5ac8bc3]

 

[otufan03]

Sayın danersin kopyalama işlemi yapılamıyor,ayrıca kopyalama yapıcak tablonun tablo çizgileri de siliniyor. eğer mümkünse örnek bir dosya ile açıklarmısınız.

 

[Levent Menteşoğlu]

Bir örnek dosya eklermisiniz.

 

[otufan03]

Sayın Leventm, Dosya ekli

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:5b547557fa]Sub kaydet()
Set s1 = Sheets("Sayfa2")
Set s2 = Sheets("Sayfa1")
sonsat = WorksheetFunction.CountA(s1.[c3:c14]) + 3
s2.Select
sor = InputBox("KOPYALANACAK VERİNİN SATIR NOSUNU YAZINIZ")
If sor = "" Then Exit Sub
s2.Range(Cells(sor, 2), Cells(sor, 18)).Copy
s1.Cells(sonsat, 3).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
s1.Select
End Sub
[/vb:1:5b547557fa]

 

[otufan03]

400 hatası veriyor

 

[Levent Menteşoğlu]

Ekteki örneği inceleyin.

 

[otufan03]

Teşekkür ederim Sayın Leventm İstediğim gibi olmuş