Bir üst hücreye tarih yazdırma

[Cibali]

hücreye veri girince yan hücreye tarih atamasını yapıyorum,
benim sorunum şu,
H6 hücresine veri girince H5 hücresine tarih yazdırmak,
birçok hücrede yazdırmam gerekiyor,
Örnek;
H6 I6 J6 K6 L6 M6 hücrelerin üstlerine
H5 I5 J5 K5 L5 M5 gibi,

Şimdiden teşekkür ederim...

 

[cems]

H6 hücresine veri girince H5 hücresine tarih yazdırmak,

Sub tarihat()


Tarih almak istediğiniz sayfanın kod bölümüne

Sub tarihat()

If Range("H6") = "" Then
Exit Sub

Else
Range("H5") = Date


End If
End Sub

 

[Cibali]

hocam,

kodu yapıştırdım

m hücresi olarak değiştirdim,

M6 ya yazınca L6 K6 ya tarih ve saati yazıyor,
M6 hücre girişi M5 de olmuyor,

 

[cems]

Ben ifadeyi yanlıs algılamışım ,

verdiğim kodu buraya tekrar geri yapıstırıp , duzelttiğim aşağıdaki kodu dener misiniz ?

 

[Mahmut Bayram]

hücreye veri girince yan hücreye tarih atamasını yapıyorum,
benim sorunum şu,
H6 hücresine veri girince H5 hücresine tarih yazdırmak,
birçok hücrede yazdırmam gerekiyor,
Örnek;
H6 I6 J6 K6 L6 M6 hücrelerin üstlerine
H5 I5 J5 K5 L5 M5 gibi,

Şimdiden teşekkür ederim...

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row = 6 Then
      Target(0, 1) = Date
    End If
End Sub

 

[Cibali]

Mahmut hocam teşekkür ederim,
sizin formülü kullandım ,
formül if target.row= 6 then kısmında 6 - 8 10 gibi çoğaltarak tüm sayfa uyguladım,

Teşekkürler..

 

[Necdet]

Mahmut hocam teşekkür ederim,
sizin formülü kullandım ,
formül if target.row= 6 then kısmında 6 - 8 10 gibi çoğaltarak tüm sayfa uyguladım,

Teşekkürler..

Tüm arkadaşlarımızın anlaması ve kullanması açısından merak ettim, nasıl uyguladınız? Öğrenmek anlamında yararlı olur.

 

[Cibali]

Şöyle izah edeyim hocam,

Çift Hücreli veri giriş bölümleri var, bu veri girişleri Satır olarak uzaması gerekirken her defasında tarih yazmak zor olabiliyor,
Formüle gelince;
Mahmut BAYRAM arkadaşımızın yazdığı formül

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 6 Then
Target(0, 1) = Date
End If
End Sub

fakat bu formül aynı satırda olan hücrelerde, hücreye veri girildiğinde 1 üst hücreye tarihi yazıyor
If Target.Row = 6 Then bu kısımda
6 hücrenin tüm satır boyu 1 üst hücrelerine tarihi ekletiyor,
bende bunu genişleterek

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 6 Then
Target(0, 1) = Date
End If

If Target.Row = 6 Then
Target(0, 1) = Date
End If
If Target.Row = 8 Then
Target(0, 1) = Date
End If
If Target.Row = 10 Then
Target(0, 1) = Date
End If
End Sub

gibi Hücre satır sayısını artırdım, hangi hücrelere ihtiyaç varsa basit bir şekilde motive edilir,
Bilmeyen arkadaşlara da söyliyim Makro'dur..
Bu kadar hocam aklımın erdiğince.

 

[Necdet]

Merhaba,

Kontrol edilmesi gereken satır adedi çok ise kodlar uzayabilir.
Aşağıdaki örnekte 6 ile 30 uncu satırlarda ve çift satırlarda çalışır.

Siz bu satırları arttırabilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Row < 6 Or Target.Row > 30 Or Target.Row Mod 2 = 1 Then Exit Sub
    
    Target(0, 1) = Date
    
End Sub

 

[Cibali]

Teşekkür ederim hocam,
hemen bu formülü deniyorum ...

 

[poetika]

Tarih Formatını Değiştiremiyorum

Excel 2016 da 08.05.2017 şeklinde yazdığım tarih otomatik olarak 8.05.2017 ye çevriliyor. Yazdığım formatta kalmasını nasıl sağlarım?

 

[Cibali]

Merhaba,
Tarih yazılan hücreye sağ tıklayıp
Hücre biçimlendir kısmında
Sayı sekmesinde Tarih var
Tarih kısmında hangi çeşit işinize geliyorsa onu seçebilirsiz,
Seçtiğiniz şekilde hücre yazar.

Ayrıca, mesela 2017 tarihi içerinde 1-5 veya 12-3 yazarsanız otomatik 01.05.2017 12.03.2017 olarak kendisi yazar

 

[Cibali]

Necdet hocam

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Row < 6 Or Target.Row > 30 Or Target.Row Mod 2 = 1 Then Exit Sub

Target(0, 1) = Date

End Sub

formülünüzü uyguladım ve çok güzel çalışıyor,
30 rakamını kendi sayfamda hücre sayısı 94 idi onu girdim,
Teşekkür ederim.

 

[poetika]

Necdet hocam

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Row < 6 Or Target.Row > 30 Or Target.Row Mod 2 = 1 Then Exit Sub

Target(0, 1) = Date

End Sub

formülünüzü uyguladım ve çok güzel çalışıyor,
30 rakamını kendi sayfamda hücre sayısı 94 idi onu girdim,
Teşekkür ederim.

bilgisayarın işletim sisteminin tarih formatını değiştirince sorun çözüldü. teşekkürler.