Belirli Aralıklara Makro İle Tarih Çekme

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

Epakambalaj

Kullanıcı
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

Ekli dosyalar

Tarihe göre sırala Oylamaya göre sırala
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ı?
 
Oyla 0 Olumsuz oyla
Ömer BARAN' Alıntı:
@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.
VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(6 satır)
Genişletmek için tıklayın ...
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
 
Oyla 0 Olumsuz oyla
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.
 
Oyla 0 Olumsuz oyla
Ömer BARAN' Alıntı:
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.
Genişletmek için tıklayın ...
haklısınız hocam, dosyayı güncelledim
 

Ekli dosyalar

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

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(10 satır)
 
Oyla 0 Olumsuz oyla
Çözüm
Ömer BARAN' Alıntı:
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.

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(10 satır)
Genişletmek için tıklayın ...
çok teşekkür ediyorum hocam
ellerinize sağlık
Allah iyiliğinizi versin
 
Oyla 0 Olumsuz oyla
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst