Hücreye tarih oluşturma

[16prens]

Selam
c-d-e sütunlarına fiyat yazılmaktadır bu üç sütundan birine fiyat yazılınca fiyat yazıldığı tarih a sutununa otomatik nasıl yazılır
hergün aynı sayfaya gün bazında alt alta değer giriyoz ertesigünde değer girdiğimiz zaman dünkü tarih dün gibi kalmalı
yardımlarınız için şimdiden teşekkür ederim

 

[hasankardas]

Selam,
Sanırım yapmak istediğiniz bu şekilde a4 deki ifadeyi bilgisayrın tarihini değiştirerek yaptım.. bunu formül ile yapamazsınız makro ile yapabilirsiniz. işlemi yapmak istediğiniz sayfanın kod bölümüne aşağıdaki kodu yazarak işlemi yaptırabilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Rng As Range
    Dim Cell As Range
    Set Rng = Intersect(Target, Me.Range("C:E"))
    If Not Rng Is Nothing Then
        Application.EnableEvents = False
        For Each Cell In Rng
            If Cell.Value <> "" Then
                    If Me.Cells(Cell.Row, "A").Value = "" Then
                    Me.Cells(Cell.Row, "A").Value = Date
                End If
            End If
        Next Cell
        Application.EnableEvents = True
    End If
End Sub

 

[16prens]

Ekli dosyayı görüntüle 258347
Selam,
Sanırım yapmak istediğiniz bu şekilde a4 deki ifadeyi bilgisayrın tarihini değiştirerek yaptım.. bunu formül ile yapamazsınız makro ile yapabilirsiniz. işlemi yapmak istediğiniz sayfanın kod bölümüne aşağıdaki kodu yazarak işlemi yaptırabilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Rng As Range
    Dim Cell As Range
    Set Rng = Intersect(Target, Me.Range("C:E"))
    If Not Rng Is Nothing Then
        Application.EnableEvents = False
        For Each Cell In Rng
            If Cell.Value <> "" Then
                    If Me.Cells(Cell.Row, "A").Value = "" Then
                    Me.Cells(Cell.Row, "A").Value = Date
                End If
            End If
        Next Cell
        Application.EnableEvents = True
    End If
End Sub

kopyalayıp yapıştırdım ama olmadı
çalışma sayfamda E tarih G-H-I FİYAT İÇERMEKTE

 

[Muzaffer Ali]

Merhaba
Alternatif.
Sayfanın kod kısmına aşağıdaki kodu kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("G:I")) Is Nothing Then
        Application.EnableEvents = False
        If WorksheetFunction.Sum(Range("G" & Target.Row, "I" & Target.Row)) = 0 Then
            Cells(Target.Row, "E") = ""
        Else
            Cells(Target.Row, "E") = Date
        End If
        Application.EnableEvents = True
    End If
End Sub

 

[16prens]

Merhaba
Alternatif.
Sayfanın kod kısmına aşağıdaki kodu kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("G:I")) Is Nothing Then
        Application.EnableEvents = False
        If WorksheetFunction.Sum(Range("G" & Target.Row, "I" & Target.Row)) = 0 Then
            Cells(Target.Row, "E") = ""
        Else
            Cells(Target.Row, "E") = Date
        End If
        Application.EnableEvents = True
    End If
End Sub

TEŞEKKÜR EDERİM
ÇOK SAOLUN

 

[hasankardas]

kopyalayıp yapıştırdım ama olmadı
çalışma sayfamda E tarih G-H-I FİYAT İÇERMEKTE

sorunuzu nasıl sorduysanız ona göre kodu deneyip koymuştum..