Acil yardım - birden çok sayfayı alt alta tek sayfa halinde birleştirme

[jaguar0007]

Merhaba İYİ GÜNLER YARDIMCI OLURSANIZ COK SEVİNİRİM.

ÖNCELİKLE BANA İYİ DERECEDE PDF EXCELL DÜZENLİ ÇEVİRME PROGRAMI GEREKİYOR HATASIZ VARMIDIR ACABA.

2. OLARAK EXCELL DE BİR DEN COK SAYFAYI MESELA 50 SAYFALIK SAYFAYI TEK SAYFA DA ALT ALTA NASIL GETİREBİLİRİM.
YARDIMCI OLURSANIZ SEVİNEBİLİRİM.

 

[Merturk]

Bunu deneyebilirsiniz.

Sub SayfaBirlestir()
 
Dim YeniSayfa As Worksheet
 
Dim SayfaSay
 
SayfaSay = Worksheets.Count
 
Set YeniSayfa = Worksheets.Add(After:=Worksheets(SayfaSay))
 
With YeniSayfa
 
For i = 1 To SayfaSay
 
Worksheets(i).UsedRange.Copy .Range("A" & IIf(i = 1, 1, .UsedRange.Rows.Count + 1))
 
Next
 
End With
 
End Sub

 

[askm]

http://www.excel.web.tr/f48/aly-ma-sayfalaryny-birle-tirme-t88123.html
Bu linki inceleyin.
1.Sorunuzun cevabı da ABBYY FineReader programı.

 

[jaguar0007]

bunu deneyebilirsiniz.

sub sayfabirlestir()
 
dim yenisayfa as worksheet
 
dim sayfasay
 
sayfasay = worksheets.count
 
set yenisayfa = worksheets.add(after:=worksheets(sayfasay))
 
with yenisayfa
 
for i = 1 to sayfasay
 
worksheets(i).usedrange.copy .range("a" & ııf(i = 1, 1, .usedrange.rows.count + 1))
 
next
 
end with
 
end sub

bunu nasıl yapıcam tam olarak bilmiyorum da.

 

[jaguar0007]

2007 kullanıyorum