ahmed_ummu
Altın Üye
- Katılım
- 28 Mart 2011
- Mesajlar
- 750
- Excel Vers. ve Dili
- Excel 2010 Professional Plus 64 Bit
- Altın Üyelik Bitiş Tarihi
- 15-10-2026
Merhaba arkadaşlar
Üzerinde çalıştığım dosyada 75 civarında sayfa olduğu için çalışma kitabını kaydederken yavaş kaydediyor. Bu nedenle sayfaların bir kısmını çalışma kitabının dışına aldım.
sabit hücrelere kayıt yapılacak sayfalara veri kaydedebildim ama sayfadaki en son veriyi bulup bir altındaki ilk boş satıra nasıl veri kaydedebilirim.
Mesela aşağıdaki kodu kapalı sayfaya nasıl uyarlayabilirim.
sheets("not").range("b2").select
Do while not isempty(Activecell)
Activecell.offset(1,0).select
Loop
Kapalı olan doyanın yolu ve adı aşağıdadır.
Application.Workbooks.Open ThisWorkbook.Path & "\" & "notlar.xlsx"
notlar çalışma kitabındaki veri kaydedilecek sayfanın adı "not"
Yardımcı olursanız sevinirim.
Üzerinde çalıştığım dosyada 75 civarında sayfa olduğu için çalışma kitabını kaydederken yavaş kaydediyor. Bu nedenle sayfaların bir kısmını çalışma kitabının dışına aldım.
sabit hücrelere kayıt yapılacak sayfalara veri kaydedebildim ama sayfadaki en son veriyi bulup bir altındaki ilk boş satıra nasıl veri kaydedebilirim.
Mesela aşağıdaki kodu kapalı sayfaya nasıl uyarlayabilirim.
sheets("not").range("b2").select
Do while not isempty(Activecell)
Activecell.offset(1,0).select
Loop
Kapalı olan doyanın yolu ve adı aşağıdadır.
Application.Workbooks.Open ThisWorkbook.Path & "\" & "notlar.xlsx"
notlar çalışma kitabındaki veri kaydedilecek sayfanın adı "not"
Yardımcı olursanız sevinirim.