çalışma sayfalarını birleştirmek

[terzi]

arkadaşlar, bir çok çalışma sayfasındaki bazı bilgileri tek bir çalışma sayfasında alt alta liste halinde birleştirmek istiyorum. fakat yeni bir çalışma sayfası eklediğimde bu da ana listeye girmeli. nasıl yapabilirim teşekkürler.

 

[Ali]

Aşağıdaki linki inceleyiniz.

http://www.excel.web.tr/showthread.php?t=20851

 

[terzi]

teşekkür ederim. linki inceledim. şöyle bir sorun var. verileri ana sayfada topluyor ama mesela sayfa2 ye yeni bir bilgi girdiğimde önce ana menüyü silmem ve tekrar aktarmam gerekiyor. benim yapmak istediğim şu: bir çok çalışma sayfası var buralardaki bilgiler bir ana menüde toplanacak. ama belirli hücrelerdeki bilgiler. ben bu kitaba yeni bir çalışma sayfası eklediğimde buradaki belirli hücrelerdeki bilgilerde ana menüye aktarılsın istiyorum. mümkünmüdür?

 

[Ali]

If SheetExists("Anasayfa") = True Then
MsgBox "The sheet Anasayfa already exist"
Exit Sub
End If

olan kısmı aşağıdaki gibi değiştirin

If SheetExists("Anasayfa") = True Then
Application.DisplayAlerts = False
Sheets("Anasayfa").Delete
Application.DisplayAlerts = True
End If

Yeni sayfa eklediğinizdede bu bilgileri Anasayfa adlı dosyada toplayacaktır