[Συναρτήσεις] Εμφάνιση σταθερής ώρας

[jimis]

Καλησπέρα! σε ένα φύλο excel εχω δυο κελία το G18 και το G23. θέλω οταν θα γράφω κάτι στο κελί G18 να εμφανίζει στο G23 η ώρα που το έγραψα..(δηλ αν το εγραφα κατι στο G18 στις 11:25 ,να έγραφε στο G23 11:25) δοκίμασα με τον τύπο IF(G18="";"";IF(G23="";NOW();G23)) αλλά μόλις αλλάξω κάτι οπουδήποτε στο φύλλο ξανα αλλάζει και η ώρα στο G23 και βάζει την ώρα που έχουμε εκείνη την στιγμή. γνωρίζεται αν μπορώ να το καταφέρω κάπως αυτό;

ευχαριστώ εκ των προτέρων
Δημήτρης

[Spirosgr]

Καλημέρα
Μπορούμε να έχουμε, μια time stamp, με vba.

Ο κώδικας στο φύλλο (συμβάν Change)

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Sh1.Range("g18")) Is Nothing Then
        Exit Sub
    Else
        Sh1.Range("g23").NumberFormat = "hh:mm"
        Sh1.Range("g23").Value = Time
    End If
End Sub 

Σε κάθε αλλαγή στο κελί g18, το g23, θα εμφανίζει την ώρα αλλαγής (εισαγωγής)

Σημειώσεις
1
To βιβλίο μας, σε μορφή .xlsm
2
To κωδικό όνομα του φύλλου Sh1
3
Στην γραμμή:
Sh1.Range("g23").NumberFormat = "hh:mm"
αλλάξτε το format, σε ό,τι θέλετε...

[jimis]

σε ευχαριστώ για την απάντηση...εχω ένα πρόβλημα..επειδή το φύλλο είχε άλλη ονομασία,έκανα μετονομασία σε Sh1 αλλα μου βγάζει σφάλμα http://prntscr.com/gg4usg..πρέπει να αλλάξω με κάποιον άλλο τρόπο την ονομασία για να λειτουργήσει;

[Spirosgr]

Δες την εικόνα, για το τι θα αλλάξεις και από που...

[jimis]

σε ευχαριστώ πολύ! δούλεψε μια χαρά!

[jimis]

προσπάθησα να το κάνω και την διπλα στήλη (την H) στα ακριβώς δίπλα κελιά άλλα δεν το μπόρεσα

ποιο συγκεκριμένα έκανα τον κώδικα που έδωσες ως εξής

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Sh1.Range("g18")) Is Nothing Then
        Exit Sub
    Else
        Sh1.Range("g23").NumberFormat = "hh:mm"
        Sh1.Range("g23").Value = Time

    End If
   If Intersect(Target, Sh1.Range("h18")) Is Nothing Then
        Exit Sub
    Else
        Sh1.Range("h23").NumberFormat = "hh:mm"
        Sh1.Range("h23").Value = Time
    End If

End Sub

ενώ συνεχίζει να λειτουργεί για την στήλη G στην Η δεν το αλλάζει..σου είναι εύκολο να μου πεις τι λάθος έκανα?

[Spirosgr]

και γιατί δεν λες από την αρχή αυτό που θέλεις να κάνεις
αλλά γράφουμε τόση ώρα άλλα αντί άλλων...

[jimis]

αφου το έκανα για ενα κελί μετα μου ήρθε ιδέα να το προεκτείνω και σε άλλο...επιπλέον προσπαθώ και μόνος να μάθω να επεξεργάζομαι vba και δεν το περιμένω ολόκληρο έτοιμο. όπως και να εέχει συγνώμη για την ταλαιπωρία

[Spirosgr]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Sh1.Range("g18:h18")) Is Nothing Then
        Exit Sub
    ElseIf Not Intersect(Target, Sh1.Range("g18")) Is Nothing Then
        Sh1.Range("g23").NumberFormat = "hh:mm"
        Sh1.Range("g23").Value = Time
    ElseIf Not Intersect(Target, Sh1.Range("h18")) Is Nothing Then
        Sh1.Range("h23").NumberFormat = "hh:mm"
        Sh1.Range("h23").Value = Time
    End If
End Sub

[jimis]

σε ευχαριστώ πραγματικά για όλη τη βοήθεια!