tarih atamak

[egehan]

excel listeme hergün veri giriyorum mesela a1 hücresine veri girdiğimde a2 hücresine girdiğim günün tarihini yazdırabilirmiyim. fakat dün girdiğimin tarihi dünde, bugün girdiğimin tarihi bugünde kalacak şekilde.^^makro yaratmadan^^

 

[Korhan Ayhan]

Selamlar,

Makrosuz bu işlemin olacağını tahmin etmiyorum. Ama isterseniz makrolu çözüm önerebiliriz.

 

[Ali]

fakat dün girdiğimin tarihi dünde, bugün girdiğimin tarihi bugünde kalacak şekilde

Dediğiniz için buna makro gereklidir diye düşünüyorum.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    Dim Aralik As Range, ilk As Range
      Set Aralik = Range("A2:A100")
    Application.EnableEvents = False
    For Each ilk In Range(Target.Address)
        If Not Intersect(ilk, Aralik) Is Nothing Then ilk.Offset(0, 1) = Date
    Next ilk
    Application.EnableEvents = True
    Set Aralik = Nothing
End Sub

 

[mt621]

tarih ve saat ide c ye yazdırabilirmiyiz.

tarih ve saat ide c ye yazdırabilirmiyiz.

 

[Ali]

C sütununa yazdırmak için

If Not Intersect(ilk, Aralik) Is Nothing Then ilk.Offset(0, [B][COLOR=red]2[/COLOR][/B]) = Date

olarak değiştirin.

 

[mt621]

pardon sorum yanlıştı

sorumu tam soramadım b hücresine değer girdiğimizde c hücresine sadece saat girmesini istiyorum.Tarih gene a hücresine yazacak.teşekkürler

 

[Necdet]

Sayfanın Koduna aşağıdaki kodu ekleyiniz

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
Target.Offset(0, -1) = Date
Target.Offset(0, 1) = Time
Son:
End Sub

 

[mt621]

necdet bey teşekkürler

gerçekten çok işimimi görüyor çok teşekkürler.
sizden bir isteğim daha olacak eğer mümkünse...
bende 1 den 800 e kadar olan liste var bu listeden bazılarını b hücresine girdiğimde saatini c ye bazılarınıda d ye yazsın istiyorum.
bu liste düzensiz mesela d ye yazılması gerekenler 1.8.99.100.130.134.135....
gibi kendim belirtmek iastiyorum.mümkünmü.... şimdiden teşekkürler .

 

[Necdet]

Sayın mt621

soruyu bana sormuşsunuz ama ben makroda henüz yeniyim, umarım arkadaşlar yardımcı olurlar, mesajın gündeme gelmesi için bu yanıtı verdim

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz. Koddaki If T.Row = 1 Or T.Row = 5 Or T.Row = 10 Or T.Row = 15 Then satırındaki satır bilgilerini kendinize göre düzenleyiniz. İfadeler arasına Or ekleyerek çoğaltabilirsiniz. Bu bölümde belirttiğiniz satır numaralarına değer girdiğinizde D sütununa saat yazacaktır.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    Set T = Target
    If T.Column <> 2 Then Exit Sub
    If T.Row = 1 Or T.Row = 5 Or T.Row = 10 Or T.Row = 15 Then
    T.Offset(0, -1) = Date
    T.Offset(0, 2) = Time
    Else
    T.Offset(0, -1) = Date
    T.Offset(0, 1) = Time
    End If
Son: End Sub

 

[ahmet uguz]

kolay glesin. benimde böyle bir örnege ihtiyacım var.acaba rar yada zipli olarak bir örnek verebilirmisiniz.

 

[mesbay]

arkadaşlar dosya şeklinde yapabilirmisiniz

arkadaşlar benimde böyle bişeye ihtiyacım var sizden ricam bunu yapılmış vaziyette ekleyebilirmisiniz

 

[Necdet]

Sayın mesbay,

- yukarıda verilen kodları kopyalayınız
_ Sayfaya sağ tıklayıp Kod Görüntüleyi seçiniz
_ çıkan boş ekrana yukarıdaki kodları yapıştırınız

Artık bu kodlar ilgili sayfada çalışır olacaktır.