Çözüldü Belirli Aralıklara Makro İle Tarih Çekme

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

Epakambalaj

Normal Üye
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.
 

Ekli dosyalar

Çözüm
Ö
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: 
You must log in to view content
(8 satır)
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: 
You must log in to view content
(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: 
You must log in to view content
(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: 
You must log in to view content
(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 Daha Fazlası

Üst