Çalışma Sayfası

[DEKORrehberi.com]

Bir excel dosyamdaki birçok çalışma sayfası var bunların hepsini tekbir çalışma sayfasında toplamak istiyorum

 

[dEdE]

Merhaba,
Makroyu sol baştaki sayfanın kod bölümüne yapıştırıp dener misiniz?
Makronun çalışması için ilk sayfanın(sol baştaki) A1 hücresinde herhangibir veri olmalıdır.

Sub SayfalarıGetir()
For i = 2 To Sheets.Count
    ss = Cells.Find("*", , SearchDirection:=xlPrevious).Row + 1
    Sheets(i).UsedRange.Copy Range("A" & ss)
Next
MsgBox "İşlem Tamamlandı", vbInformation, "dEdE " & Application.UserName & "'e Başarılar diler."
End Sub

 

[DEKORrehberi.com]

Çok Sağolun işimi görecek zannedersem iyi çalışmalar olsun

Emeğinize sağlık

Yazılımı Seviyorum....