Sayfadaki tabloyu altına kopyalayıp yapıştırma

[Mdemir63]

Selamlar
Arkadaşlar ekteki örnek dosyamda , sayfadaki tabloyu bir makro yardımıyla
hemen altına tekrar boş olarak yapıştırmasını nasıl yaptırabilirim.

Saygılar

 

[BAZGİRET]

Selamlar
Arkadaşlar ekteki örnek dosyamda , sayfadaki tabloyu bir makro yardımıyla
hemen altına tekrar boş olarak yapıştırmasını nasıl yaptırabilirim.

Saygılar

Bir kez mi yapıştırılacak yoksa gerektiğinde aşağı doğru devam edecek mi?

 

[Mdemir63]

Bir kez mi yapıştırılacak yoksa gerektiğinde aşağı doğru devam edecek mi?

Selamlar,

her defasında altına yapıştırarak aşağı doğru devam edecek.

Saygılar

 

[bzace]

Hayırlı akşamlar,
Bu işlemi Makro kaydet yöntemi ile yapabilirsiniz.
Not:Üstdeki mesajlar görülmeden yazılmıştır.

 

[Mdemir63]

Hayırlı akşamlar,
Bu işlemi Makro kaydet yöntemi ile yapabilirsiniz.
Not:Üstdeki mesajlar görülmeden yazılmıştır.

selamlar

O dediğinizi yaptım . Ancak ikinci tablodan sonrakini yaptıramıyorum. Hep aynı yere yapıştırıyor. halbuki tablonun altından devam ederek yapıştırmasını yaptırmak istiyorum.

Saygılar

 

[bzace]

Sub Kopya()

Sheets("Sayfa1").Range("A2:E50").ClearContents
Sheets("Sayfa1").Range("A1:E50").Copy
bz = Sheets("Sayfa1").Cells(65536, "A").End(xlUp).Row + 1
Sheets("Sayfa1").Range("A" & bz).PasteSpecial
Application.CutCopyMode = False

End Sub

Kod ile tablonunuzun en altına bir karakter ekleyip çalıştırdığınızda oluyor.Ben bukadar yapabildim boş satır altına nasıl kopyalama yapılacağını bilmiyorum.Belki siz yada başkası yapar.

 

[Mdemir63]

Sn: BZACE

öncelikle ilginiz için çok teşekkür ederim. Elinize sağlık kısmen istediğim gibi. Ayrıca row+1 yerine row+0 yapınca A sütununda tablonun hemen altına bz yazınca yazılan yerden itibaren yapıştırıyor. Verdiğiniz kodlarda ;

1- bz yazmadan kodun çalışması
2- A1:A50 arasını seçip A2:A50 arasını siliyor ya işte o aralığı silmeyip yapıştırdığımız aralığı sildirebilirsem. o zaman tam istediğim olacak.

tekrar teşekkürler.

Saygılar

 

[Mdemir63]

Selamlar
Arkadaşlar bzace arkadaşımızın verdiği kodlarla kısmen oldu.Ancak halen tam istediğim gibi olmadı nasıl tam olarak çözebiliriz.

Saygılar

 

[Mdemir63]

Selamlar,

Arkadaşlarımız çözüm üretebilecek kimse yok mu ?

Saygılar

 

[Mdemir63]

Selamlar,

Arkadaşlar ekteki dosyamda Makro sorunsuz çalışıyor. Fakat sorun sadece sayfadaki resmi kopyalayıp yapıştırmıyor. Makro kodlarında neleri değiştirmeliyim?

Saygılar

Kod:
Sub Kopya1()
Sheets("Sayfa1").Rows("1:49").Copy
md = Sheets("Sayfa1").Cells(65536, "A").End(xlUp).Row + 1
Sheets("Sayfa1").Range("A" & md).PasteSpecial
Application.CutCopyMode = False
End Sub

 

[ZorBey_]

Merhaba
İyi Çalışmalar
Dosyanız Ektedir.
--------------------------
Konuya Olumlu Veya Olumsuz
Dönüş Yapmanız.
Konuyu Takip Eden Diğer Site
Sakinleri Açısından Faydalı Olucaktır.

 

[Mdemir63]

Merhaba
İyi Çalışmalar
Dosyanız Ektedir.
--------------------------
Konuya Olumlu Veya Olumsuz
Dönüş Yapmanız.
Konuyu Takip Eden Diğer Site
Sakinleri Açısından Faydalı Olucaktır.

Selamlar
İlginize teşekkür ederim. Ancak, satır genişlikleri aynı kalmıyor ve noktalar olan siyah zeminli hücrelerin olmaması gerekiyor.
Benim kodlarım resim dışında hepsini yapıyor.

Saygılar

 

[Mdemir63]

Arkadaşlar istediğim zaten gönderdiğim dosyada oluyor. Sadece resim kopyalanıp yapışmıyor bu sorunu nasıl çözebilirim. Sayın hocalarım ın bir çözümü olabilir mi?

Saygılar