Sadece değerleri kopyalayıp yapıştırmak

[MKURU]

Arkadaşlar iyi günler
Bir çalışma kitabında EXCEL adında bir sayfam var. Bu sayfada bazı satırlarda formül bazen de aralarında boşluklar var. Yapmak istediğim EXCEL sayfasındaki verileri boşluklar ve formüller olmadan sadece değer olarak kopyalayarak DEFTER sayfasında B sütununda bulunana en son değerim hemen bir altından başlayarak kopyalamak.
Örnek çalışma kitabı ekledim ve detaylı olarak anlatmaya çalıştım. Yardımcı olabilirseniz sevinirim.
İyi forumlar...

https://s2.dosya.tc/server25/e38qe5/bos ... r.zip.html

Direk buradan da indirebilirsiniz.

[erseldemirel]

Kodu deneyiniz;


Sub Test()
Set wsKaynak = ThisWorkbook.Sheets("EXCEL")
Set wsDefter = ThisWorkbook.Sheets("DEFTER")
lastRow = wsKaynak.Cells(wsKaynak.Rows.Count, "B").End(xlUp).Row
For i = 5 To lastRow
If WorksheetFunction.CountA(wsKaynak.Range("B" & i & ":J" & i)) > 0 Then
wsKaynak.Range("B" & i & ":J" & i).Copy wsDefter.Cells(wsDefter.Rows.Count, "B").End(xlUp).Offset(1, 0)
End If
Next i
For i = lastRow To 5 Step -1
If WorksheetFunction.CountA(wsKaynak.Range("B" & i & ":J" & i)) = 0 Then
wsKaynak.Rows(i).Delete
End If
Next i
Application.CutCopyMode = False
End Sub

[MKURU]

Hocam bu kod ile EXCEL isimli sayfada sadece elle manuel girilen değerler olduğu zaman aralarda boşluk olsa bile kod güzel çalışıyor ve boşlukları almadan direk aktarmayı yapıyor. Ancak EXCEL sayfasında belirtilen aralıklarda bazı sütunlarda formüllü değerler bazılarında ise Birleşik Giriş Kutusu (Form Denetimi) butonları var. Onlar olduğu zaman formülü ve butonları da alıyor. Örnek dosyayı güncelleyerek tekrar ekledim.

Örnek dosya

[sahin]

Ekte

bosluksuz_kopyala_yapistir_1.rar