Sadece Dolu Hücreleri Değer Olarak Kopyalama

[ormann]

İyi günler ;
Ekli örnek dosyada A:F hücreleri arasında sadece dolu olan hücrelerin içerisindeki verileri değer olarak makro ile nasıl kopyalarız ?
http://dosya.co/s8d39jfretx9/7-F.xlsx.html

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kod işinizi görür mü?

Sub Kopyala()
    Columns("A:F").Copy
    Worksheets("Sayfa2").Range("A1").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
End Sub

Kod A-F ve arasındaki tüm kolonları kopyalayıp, Sayfa2 de A1 hücresinden itibaren sadece değerleri yapıştırıyor.

 

[ormann]

Sadece kopyalasa .Ben istediğim dosyaya yapıştırma yapsam

 

[ormann]

Sayın Dalgalıkur.Kopyalama A:F hücresinin tamamını kopyalıyor.Sadece dolu hücreleri kopyalayacak

 

[YUSUF44]

Aşağıdaki gibi deneyin:

Sub kopya()
sona = Cells(Rows.Count, "A").End(3).Row
sonb = Cells(Rows.Count, "B").End(3).Row
sonc = Cells(Rows.Count, "C").End(3).Row
sond = Cells(Rows.Count, "D").End(3).Row
sone = Cells(Rows.Count, "E").End(3).Row
sonf = Cells(Rows.Count, "F").End(3).Row
son = WorksheetFunction.Max(sona, sonb, sonc, sond, sone, sonf)
Range("A1:F" & son).Copy
End Sub

 

[ormann]

Son dolu hücreye kadar kopyalasa .Makro A1 İle F hücre aralığının tamamını kopyalıyor. A1 ile F sütün da Son dolu satıra kadar kopyalama olacak.

 

[YUSUF44]

Verdiğim kod zaten son dolu satıra kadar kopyalama yapıyor, denediniz mi? Koddaki sona, sonb vs her sütunun son dolu satırını buluyor, ve son verisi de bunlardan en büyüğünü yani sayfadaki en son dolu satırı buluyor.

Örnek dosyanızda kodu çalıştırdığımda 9983. satıra kadar kopyaladı. B9983 hücresini dolu görüyor. Hatta 358. satırdan itibaren muhtemelen aşağı doğru B sütununu dolu görüyor. Onları seçip içeriğini DEL ile sildiğimde bu sefer de 9105'e kadar kopyalıyor. C9105 ve D9105 dolu çünkü.

Kısacası verileriniz her ne kadar boş görünse de hücreler dolu göründüğü için bu sorun çıkıyor. Dolu görünen ama aslında boş olan hücreleri del ile silerseniz muhtemelen doğru çalışacaktır.

 

[ormann]

Aynen dediğiniz gibi.Dolu hücreleri sildiğimde oldu.Çok teşekkür ederim.