Merhaba arkadaşlar..
Öncelikle foruma yeni üye olduğum için tüm arkadaşlara selamlarımı sunarım.
Arkadaşlar bir çalışma kitabında EXCEL adında bir sayfam var. Bu sayfanın B5:J35 aralığında başka bir sayfadan formüller kullanarak aldığım değerler var. Ancak bazen tamamı doluyor bazen de 3-5 adet veri alıyorum. Aşağıdaki kod ile bu verileri DEFTER sayfasına aktardığım zaman B5:J35 aralığının tamamını aldığı için ikinci kez aktarma yapmam gerektiğinde arada boşluklar oluşuyor. Her seferinde boşluk oluşmaması için hücre değerleri 0 veya "" olan değerleri seçmeden sadece dolu hücreleri seçip aktarması için nasıl bir kod kullanmam gerekir. Kullandığım aktarma fonksiyonu bu
Öncelikle foruma yeni üye olduğum için tüm arkadaşlara selamlarımı sunarım.
Arkadaşlar bir çalışma kitabında EXCEL adında bir sayfam var. Bu sayfanın B5:J35 aralığında başka bir sayfadan formüller kullanarak aldığım değerler var. Ancak bazen tamamı doluyor bazen de 3-5 adet veri alıyorum. Aşağıdaki kod ile bu verileri DEFTER sayfasına aktardığım zaman B5:J35 aralığının tamamını aldığı için ikinci kez aktarma yapmam gerektiğinde arada boşluklar oluşuyor. Her seferinde boşluk oluşmaması için hücre değerleri 0 veya "" olan değerleri seçmeden sadece dolu hücreleri seçip aktarması için nasıl bir kod kullanmam gerekir. Kullandığım aktarma fonksiyonu bu
Kod:
Sheets("EXCEL").Range("B5:J35").Copy
Sheets("DEFTER").Range("B65536").End(xlUp)(2, 1).PasteSpecial xlValues