Son Aylık Verileri Makroyla Diğer Kitaba Kopyalama

seckinbilgic · 13 Ara 2020

Merhabalar

worksheets("Tutulum Paterni") içerisinde 1 aydan eski veriler mevcut. kopyalama işleminde eski verilerin gelmesi değerler verimi karıştırıyor.

Diğer veriler için statik bir kopyalama kodu hazırladım. bu kısmı güzelce çalışıyor.

koşullu olarak 1 ay içindeki veriyi, şeklinde ama sadece son 1 aydakiler olacak şekilde kopyalamak istiyorum.

dv.Worksheets("Görüntülemeler").Range("A2:C30").Copy
TW.Worksheets("Tutulum Paterni").Cells(2, 1).PasteSpecial Paste:=xlPasteValues

bu koşulunu nasıl oluşturabilirim?
dv.Worksheets("Görüntülemeler") - A sütununda tarih verisi bulunmakta.

Kod:

Bu kodu görmek için giriş yapmanız gerekmektedir (111 satır). Giriş Yap

Ömer BARAN · 13 Ara 2020

Merhaba Sayın @seckinbilgic .

-- İsteğiniz: mevcut koda, aşağıda yeşil renklendirdiğim kısmı ekleyerek deneyiniz.

Kod:

Bu kodu görmek için giriş yapmanız gerekmektedir (15 satır). Giriş Yap

-- Ayrıca belli hücre değerlerini aktarmaya yönelik mevcut kodlarda,
her hücre için aşağıdaki kırmızı renkli ....Copy .... PasteSpecial... gibi bir yapı yerine,
yeşil renklendirdiğim gibi bir yapı da kulanabilirsiniz. Böylece kodlarınız daha SADE olur.

Kod:

Bu kodu görmek için giriş yapmanız gerekmektedir (4 satır). Giriş Yap

.

Ömer BARAN · 16 Ara 2020

Sayın @seckinbilgic .

Verdiğim cevabın isteğinizi karşılayıp karşılamadığı konusunda bir geri bildiriminiz olmadı.
Hatırlatmak istedim.

İyi çalışmalar dilerim.

.

seckinbilgic · 27 Ara 2020

Ömer BARAN' Alıntı:
Sayın @seckinbilgic .

Verdiğim cevabın isteğinizi karşılayıp karşılamadığı konusunda bir geri bildiriminiz olmadı.
Hatırlatmak istedim.

İyi çalışmalar dilerim.

.

TS.Cells(2, 3).Value = ds.Cells(2, 3).Value

bu kod "sadece değerleri kopyala" ile aynı şey midir? hücre biçimlendirmeleri farklı olacak da.

seckinbilgic · 27 Ara 2020

seckinbilgic' Alıntı:
TS.Cells(2, 3).Value = ds.Cells(2, 3).Value

bu kod "sadece değerleri kopyala" ile aynı şey midir? hücre biçimlendirmeleri farklı olacak da.

çoklu kopyalamada da benzer durum var mı?

dv.Worksheets("Konsey_ekibi").Range("A2:I100").Copy
TW.Worksheets("Konsey_ekibi").Cells(2, 1).PasteSpecial Paste:=xlPasteValues

Ömer BARAN · 27 Ara 2020

Bu işler biraz da tarz meselesi.

Evet, biçimi lazım değilse copy yerine, tek hücreyken de hücre aralığıyken de aynı yöntem kullanılabilir. Değer yapıştırma işlemidir.

.

seckinbilgic · 28 Ara 2020

Ömer BARAN' Alıntı:
Sayın @seckinbilgic .

Verdiğim cevabın isteğinizi karşılayıp karşılamadığı konusunda bir geri bildiriminiz olmadı.
Hatırlatmak istedim.

İyi çalışmalar dilerim.

.

malesef çalışmadı, veri aralığında 1 ay içerisinde olan değerler mevcut. tarih değerleri A sütununda saklanıyor.
diğer doğrudan çekilen veriler geliyor.

Ömer BARAN · 28 Ara 2020

Bir önceki cevabımı örnek belge üzerinde denememiştim.
Örnek belgelere tekrar bakayım.

Sorun çıkartan kod kısmının denediğiniz halini eklerseniz iyi olur.

.

Ömer BARAN · 28 Ara 2020

Sayın @seckinbilgic .

Bir önceki cevabımda belirttiğim gibi, sorun yaşadığınız dosyayı (sorunlu haliyle ve hangi kod satırında hata aldığınızı belirterek) eklerseniz bakılır elbette ancak örneğin ben aşağıdaki kırmızı satırların yerine yeşil olanı uyguladığımda bir sorunla karşılaşmadığımı belirteyim.

Ayrıca verileri bu şekilde aldığınızda, kopyalama sonrasında kullanılan
Application.CutCopyMode = False kod satırına da gerek kalmayacağını söyleyeyim.

Kod:

Bu kodu görmek için giriş yapmanız gerekmektedir (3 satır). Giriş Yap

.

Son Aylık Verileri Makroyla Diğer Kitaba Kopyalama

Ekli dosyalar