Belirli Aralıklara Makro İle Tarih Çekme

[Epakambalaj]

Excel Versiyonu

Excel 2010

Excel Sürümü

64 Bit

Excel Dili

Türkçe

Hayırlı akşamlar hocalarım.

Örnek dosyada belirttiğimiz

Yan Yana düşündüğümüzde, B16:B31, G16:G31, L16:L31...., aralığına
Alt Alta düşündüğümüzde, B16:B31, B51:B66, B86:B101...., aralığına veri girdiğimizde, sol tarafa tarih çekmek istiyoruz.

Yardımcı olabilir misiniz?
Şimdiden çok teşekkür ediyorum.

 

Tarihin Sağına Makroyla Veri Aktarma

VBA ile Her Hücreye Farklı Takvim Sonucu Yazdırma

[okutkan]

Neden "Yan yana, alt alta düşündüğümüzde" diyerek iki bölüme ayırdığınızı anlamadım? Tüm tablolarda yanı işlem yapılmayacak mı?

 

[Epakambalaj]

Neden "Yan yana, alt alta düşündüğümüzde" diyerek iki bölüme ayırdığınızı anlamadım? Tüm tablolarda yanı işlem yapılmayacak mı?

hocam o aralıklar haricinceki hücrelere işlem yapıldığında, tarih atmaması için öyle belirttim

 

[Ömer BARAN]

@Epakambalaj

İlgili hücrenin soluna GÜNÜN TARİHİNİ yazdırmak istediğiniz düşündüm.
Sayfanın kod bölümüne şu kodu uygulayın.

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

 

[Epakambalaj]

@Epakambalaj

İlgili hücrenin soluna GÜNÜN TARİHİNİ yazdırmak istediğiniz düşündüm.
Sayfanın kod bölümüne şu kodu uygulayın.

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

hocam ellerinize sağlık
çok teşekkür ediyorum

 

[Ömer BARAN]

Koda küçük ilave yaptım, sayfayı yenileyerek kontrol edin.

 

[Epakambalaj]

Koda küçük ilave yaptım, sayfayı yenileyerek kontrol edin.

tekrar teşekkür ediyorum hocam

 

[Epakambalaj]

Koda küçük ilave yaptım, sayfayı yenileyerek kontrol edin.

hocam sağ tarafa doğru BG sütunundan sonra işlem yapmaması için ne yapmalıyız?

 

[Ömer BARAN]

VERİ sütununun sonuncusu BE sütununda oluyor, BG'de olmaması gerekir (ritim böyle gösteriyor).
Kodu tekrar güncelledim.

 

[Epakambalaj]

VERİ sütununun sonuncusu BE sütununda oluyor, BG'de olmaması gerekir (ritim böyle gösteriyor).
Kodu tekrar güncelledim.

çok teşekkür ediyorum hocam

 

[Epakambalaj]

@Epakambalaj

İlgili hücrenin soluna GÜNÜN TARİHİNİ yazdırmak istediğiniz düşündüm.
Sayfanın kod bölümüne şu kodu uygulayın.

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

hocam hazırladığınız koda ilave yaptık
beraber çalıştırmak için ne yapmalıyız?


Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Row > 1000000 Or Target.Row < 19 Or Target.Column > 57 Or _
((Target.Row - 19) Mod 35) > 15 Or (Target.Column Mod 5) <> 2 Then Exit Sub
If Target = Empty Then Target.Offset(0, -1) = Empty
If Not Target = Empty Then Target.Offset(0, -1) = Date


If Target.Row > 1000000 Or Target.Row < 4 Or Target.Column > 57 Or _
((Target.Row - 4) Mod 35) > 30 Or (Target.Column Mod 5) <> 3 Then Exit Sub
If Target = Empty Then Target.Offset(0, 1) = Empty
If Not Target = Empty Then Target.Offset(0, 1) = Date

End Sub

 

[Ömer BARAN]

Sorular, gerçek belgenin özel bilgi içermeyen kopyası şeklinde hazırlanmış
örnek belge üzerinden sorulmadığında; kaçınılmaz olarak sonraki adım;
-- gerçek belgemde hata verdi,
-- gerçek belgemde başka makro vardı, birleştiremedim,
-- iki kod aynı anda çalışıtırılamadı,
vs, vs şeklinde gerçekleşiyor.

Worksheet_Change kod yapısı, iyi kurgulandığında çok pratik işlevsel bir yapı ama
tüm seçenekler aynı anda düşünülerek kodlama yapılmasını gerektirir.

 

[Epakambalaj]

Sorular, gerçek belgenin özel bilgi içermeyen kopyası şeklinde hazırlanmış
örnek belge üzerinden sorulmadığında; kaçınılmaz olarak sonraki adım;
-- gerçek belgemde hata verdi,
-- gerçek belgemde başka makro vardı, birleştiremedim,
-- iki kod aynı anda çalışıtırılamadı,
vs, vs şeklinde gerçekleşiyor.

Worksheet_Change kod yapısı, iyi kurgulandığında çok pratik işlevsel bir yapı ama
tüm seçenekler aynı anda düşünülerek kodlama yapılmasını gerektirir.

haklısınız hocam, dosyayı güncelledim

 

[Ömer BARAN]

BG sütununa ve 331'inci satıra kadar geçerli olmak üzere; oluşturulacak koddan beklentiniz;
-- B sütununa veri girince A sütununa,
-- C sütununa veri girinci D sütununa,
GÜNÜN TARİHİnin yazdırılması değil mi?

Eğer istek TAM OLARAK bu ise, aşağıdaki kodu bir deneyin bakalım.

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

 

[Epakambalaj]

BG sütununa ve 331'inci satıra kadar geçerli olmak üzere; oluşturulacak koddan beklentiniz;
-- B sütununa veri girince A sütununa,
-- C sütununa veri girinci D sütununa,
GÜNÜN TARİHİnin yazdırılması değil mi?

Eğer istek TAM OLARAK bu ise, aşağıdaki kodu bir deneyin bakalım.

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

çok teşekkür ediyorum hocam
ellerinize sağlık
Allah iyiliğinizi versin