tablo kopyalama ve boşlukları çıkarma

[k.guclu]

İyi günler;

Arkadaşlar sayfa1'de bir hesap tablosu hazırladım ve bu tabloya girdiğim haliyle sayfa2'ye formulsüz şekilde kopyalamak istiyorum.

Tabloya gireceğim değerlerin uzunluğu belli olmadığı için tabloyu biraz uzun yaptım. Bu tablodaki boş satırları silmiş olarak sayfa1 kopyalamak istiyorum.

Bu tabloları sayfa'ye kopyalarken eğer tablo sayfaya sığmazsa bir sonraki sayfaya aktarmasını istiyorum.

Yaptığım çalışmayı gönderiyorum.

Bu konuda yardımcı olursanız memnun olurum.
Şimdiden teşekkür ederim.

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?

Sub Aktar()
Dim i As Integer
Dim j As Long
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
s2.Select
Application.ScreenUpdating = False
i = s1.[Q65536].End(3).Row
j = s2.[Q65536].End(3).Row + 2
s1.Range("A1:Q" & i).Copy Range("A" & j)
i = [A65536].End(3).Row + 1
j = [Q65536].End(3).Row - 3
Range("A" & i & ":A" & j).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Application.ScreenUpdating = True
MsgBox "İşlem Tamamdır...", vbOKOnly, "[URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
End Sub

Not : Yanıtı verdikten sonra aynı soruyu başka konu açarak tekrar sormuşsunuz. Lütfen aynı soru için yeni başlıklar açmayınız.

 

[k.guclu]

Üstat eline sağlık.

Ama tablonun bir kısmını bir sayfaya bir kısmı diğer bir sayfaya yapıştırıyor. benim yapmaya çalıştığım eğer tablo bir sayfaya tam sığmazsa diğer sayfaya geçmesi..

 

[Necdet]

Onu da elle yapınız benden bu kadar.

 

[k.guclu]

Saol üstadım bu da yeter inş. ben gerisini getiririm ozaman gönderirim.

 

[Necdet]

Saol üstadım bu da yeter inş. ben gerisini getiririm ozaman gönderirim.

Bende çaktırmadan öğrenmiş olurum