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

Cevapla
MKURU
Mesajlar: 8
Kayıt: Çrş Tem 12, 2023 9:28 am
Lokasyon: Düzce
Meslek: Veteriner Sağlık Teknisyeni
Adınız: Mehmet
Soyadınız: KURU

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

Mesaj gönderen 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
Mesajlar: 68
Kayıt: Cmt Haz 24, 2023 12:23 am
Web Sitesi: https://erseldemirel.com.tr/
Adınız: Ersel
Soyadınız: Demirel

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

Mesaj gönderen 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
Mesajlar: 8
Kayıt: Çrş Tem 12, 2023 9:28 am
Lokasyon: Düzce
Meslek: Veteriner Sağlık Teknisyeni
Adınız: Mehmet
Soyadınız: KURU

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

Mesaj gönderen 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
Mesajlar: 25
Kayıt: Pzr Oca 21, 2024 1:44 pm
Adınız: sahin
Soyadınız: sahin

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

Mesaj gönderen sahin »

Ekte
bosluksuz_kopyala_yapistir_1.rar
Bu mesaja eklenen dosyaları görüntülemek için gerekli izinlere sahip değilsiniz.
Cevapla
  • Benzer Konular
    Cevaplar
    Görüntüleme
    Son mesaj