E

Çözüldü İstenen Hücreye Günün Tarihini Yazdırma

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

Epakambalaj

Normal Üye
Sayın: Ömer Baran hocam;
Daha önce yaptığınız (birleştirilmiş hücreleri tek hücre yapmamız hususunda) tavsiyenize binaen, dosyamızı yeniden güncelledik.
Kod için ne gibi değişiklik yapmamız gerekiyor?
A10 hücresine herhangi bir yazı girildiğinde, A8 hücresinde otomatik mevcut tarih çıkmasını istiyoruz.
Bunun 250 sayfa boyunca devam etmesini istiyoruz.
 

Ekli dosyalar

Sayfa1 sayfasının kod editöründeki kodları silip aşağıdaki kodları ekleyiniz.

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

tekrar merhaba hocam.
daha önce Ömer Baran hocamın gönderdiği koda göre, tarih hücresinde bizim belirlediğimiz yazı çıkıyordu.

Ömer hocanın yazdığı kod:

Private Sub Worksheet_Change(ByVal Target As Range)
If Selection.Count > 1 Or Target.Column <> 2 Then Exit Sub
If Target.Column = 2 And Target.Row > 1 Then
For sat = Target.Row - 1 To 1 Step -1
If Cells(sat, 2) = Target Then: Target.Offset(, 1) = Cells(sat, 3): Exit For
Next
End If
End Sub

buna göre ayarlamamız mümkün müdür?

örnek biz hücreye "Tarih: 01.02.2020 Perşembe" olarak kullanıyoruz.
 
Mevcut kodu aşağıdakiyle değiştirin.
C sütununa yazılacak tarih de UZUN TARİH olacaksa; kırmızı kısmı, yeşil olan gibi olacak şekilde değiştirirsiniz.

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

.
 
Mevcut kodu aşağıdakiyle değiştirin.
C sütununa yazılacak tarih de UZUN TARİH olacaksa; kırmızı kısmı, yeşil olan gibi olacak şekilde değiştirirsiniz.

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

.
Hocam daha önceki yazdığınız kodda bizim "Tarih: 02.03.2020 perşembe" şeklinde hazırladığımız hücreye göre yazıyordu. biz hücredeki tarihi nasıl ayarlarsak öyle çıkıyordu.
biz hücre biçimlendir kısmına "T\a\rih\: gg aaaa gggg" işlemiştik. Kod üzerinde oynama yaparak daha önce sizin yaptığınız gibi bunu çalıştırmamız mümkün müdür?
Mevcut kodu aşağıdakiyle değiştirin.
C sütununa yazılacak tarih de UZUN TARİH olacaksa; kırmızı kısmı, yeşil olan gibi olacak şekilde değiştirirsiniz.

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

.
Hocam daha önceki yazdığınız kodda bizim "Tarih: 02.03.2020 perşembe" şeklinde hazırladığımız hücreye göre yazıyordu. biz hücredeki tarihi nasıl ayarlarsak öyle çıkıyordu.
biz hücre biçimlendir kısmına "T\a\rih\: gg aaaa gggg" işlemiştik. daha önceki yazdığınız kodda aynen bu sonucu almıştık. o açıdan tekrar somak istedim.
 
çok teşekkür ediyorum hocam.
aynı çalışma kitabında bulunan D33 e rakam girildiğinde, C33 içinde aynı mantıkla tarih yazabilir miyiz hocam. ve 250 sayfa için aynısı olacak şekilde.
Ömer hocam hakkınızı helal edin.
yazdığınız kodun içerisinde en son istediğimiz kodda mevcutmuş.
geç farkettim. iyiki varsınız. Allah razı olsun.
Böylece bu konu da kapanmış oldu. :)
emeklerinize sağlık
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst