Sutunda Boş olan satırları diğer sayfaya aktarma

[kemal turan]

Merhaba
50000 satırlı 63 sütunlu veri tabanından aldığım veriler var.
J sütununda fatura numaraları var.
Yapmak istediğim sadece fatura kesilmeyen verilere ulaşmak.Bunun için dolu olan satırları silme kodunu denedim çok uzun sürüyor. Bu verilerde fatura kesilmeyen satır sayısı daha az.
Sorum şöyle.
Böyle bir tabloda j sutununda dolu olan satırları silmek mi yoksa J sütununda boş olan satırları diğer sayfaya almak mı daha hızlı olur.
Tercihiniz doğrultusunda kod rica ediyorum.
Telefondan yazdım bu nedenle örnek dosya ekleyemedim. Kusura bakmayın
Teşekkürler

 

[1Al2Ver]

Merhaba,

Örnek dosya olmadığı için fikir yürütüyorum ; "Süz" ü kullanıp olabilir, seçimden 0 (sıfır) olana tik atın ve süzün,

Kolay gelsin.

 

[kemal turan]

Merhaba
Bunu butona bağlı kodla yapmak istiyorum.
Bu arada bende araştırma yapıyorum.
Kod yardımınız olursa memnun olurum

 

[1Al2Ver]

Merhaba,

Aşağıdaki link'te Orion1'in, aynı sayfa için bir çözümü var, size ışık tutabilir.

http://www.excel.web.tr/f14/bakiyesi-syfyr-olan-borclary-aktar-t105119.html

 

[Ömer BARAN]

Merhaba.

Örneğin aşağıdaki gibi olabilir.

Verilerin A1 hücresinden başlayarak BK sütununa kadar yer aldığı varsayıldı.
Sayfa1 verilerin alınacağı, Sayfa2 ise filtrelenen verilerin yazılacağı sayfa.
Önce Sayfa2'deki veriler silinir, ardından Sayfa1'de J sütunu boş olanlar Sayfa2'ye aktarılır.
.

[FONT="Arial Narrow"]Sub J_BOŞ_AKTAR()
    Set S1 = Sheets("Sayfa1"): Set S2 = Sheets("Sayfa2")
    S2.Cells.ClearContents
    S1.Range("A:BK").AutoFilter Field:=10, Criteria1:="="
    S1.Range("A1").CurrentRegion.Copy S2.[A1]
    S1.Range("A:BK").AutoFilter Field:=10
End Sub[/FONT]

 

[kemal turan]

Ömer bey merhaba
Kodu telefona bakarak yazıyorum
End sub tan önceki Apple. ..= den sonra False veya True yerine xlCopy altında xlcut seçeneği çıkıyor .Filtrelemeyi yapıyor.Herhalde Bu yüzden veriyı yapıştır mıyor. Hata veriyor

 

[kemal turan]

xlLastCell in bulunduğu 4 ncü satırı hata veriyor. Hata adı =Objektif doesn't support this property or method şeklinde hata veriyor

 

[Ömer BARAN]

Tekrar merhaba.

Önceki cevabımdaki kod'da küçük değişiklik yaptım, sayfayı yenileyerek tekrar kontrol ediniz.
.

 

[kemal turan]

Ömer bey,
Çok teşekkür ederim.
Selametle kalınız

 

[Ömer BARAN]

Ömer bey,
Çok teşekkür ederim.
Selametle kalınız

İyi günler dilerim.
Adana'ya selamlar.
.