S

Soru Sadece son 1 ay içindeki değerleri kopyalamak

S

seckinbilgic

Normal Üye
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
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.


VBA: 
Görüntülemek için giriş yapmanız gerekmektedir.
(111 satır)
 

Ekli dosyalar

Tarihe göre sırala Oylamaya göre sırala
Merhaba Sayın @seckinbilgic .

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

VBA: 
Görüntülemek için giriş yapmanız gerekmektedir.
(15 satır)

-- 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.

VBA: 
Görüntülemek için giriş yapmanız gerekmektedir.
(4 satır)
.
 
Oyla 0 Olumsuz oyla
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.

.
 
Oyla 0 Olumsuz oyla
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.

.
 
Oyla 0 Olumsuz oyla
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.

VBA: 
Görüntülemek için giriş yapmanız gerekmektedir.
(3 satır)

.
 
Oyla 0 Olumsuz oyla
Yanıt için giriş yapmanız veya üye olmanız gerekir.
Üst