Sadece son 1 ay içindeki değerleri kopyalamak

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.

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(111 satır)

Ömer BARAN · 13 Ara 2020

Merhaba Sayın @seckinbilgic .

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

VBA:

İndirmek 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:

İndirmek için giriş yapmanız gerekmektedir.
(4 satır)

.

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

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(3 satır)

.

	Makro ile Sadece Seçili Hücreleri Kopyalama AhmetRasim 26 Eyl 2024 Makro Soruları
	Textbox sadece tarih girişi hakkında AhmetRasim 26 Mar 2021 Makro Soruları
	Sadece İstenilen Sayfaları PDF Yapmak daghan87 17 Mar 2022 Makro Soruları
	Sadece Bazı Kapalı Kitaplarda Veri Alma Believing 15 Mar 2025 Makro Soruları
	Sadece ISBN İçeren Kitap Listesini Tamamlama ExcelDepo 24 Eki 2023 Makro Soruları