[Μορφοποίηση] Κλείδωμα κελιού με βάση το περιεχόμενο ενός άλλου.

[Spirosgr]

Καλημέρα
Αν στο έγγραφό μας, έχουμε την διάταξη της εικόνας, (κατά το ζητούμενο) βάζουμε τον κώδικα:

Option Explicit
Const Dscrpt As String = "Εξερχόμενο"

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Rows.Count > 1 Then Exit Sub
If Target.Columns.Count > 1 Then Exit Sub
    If Target.Column = 2 Then
        If Target.Offset(0, -1).Value = Dscrpt Then Target.Offset(0, 1).Select
    End If
End Sub

στην μονάδα του φύλλου (συμβάν Selection Change).

Πως λειτουργεί:
Κάθε φορά που πληκτρολογούμε στην στήλη A,
έναν χαρακτηρισμό για έγγραφο, δεν μας επιτρέπει να επιλέξουμε, στην λάθος στήλη ένα κελί
αλλά μας «πετάει» στην σωστή στήλη.

Σημειώσεις:
1
Αν εμφανίζεται ήδη το Option Explicit στον vba editor, δεν το βάζουμε 2η φορά.
2
If Target.Column = 2 Then
όπου 2,
ο αριθμός της στήλης, που δεν πρέπει να γράφουμε αν ...

Αλλάξτε το 2, με τον αριθμό που θέλετε (πχ 3 για στήλη c, 4 για στήλη d κλπ)
3
If Target.Offset(0, -1).Value
όπου -1
το offset κελί με τον χαρακτηρισμό Εξερχόμενο

Αλλάξτε το -1, αν είναι σε άλλο σημείο (πχ -2 αν είναι 2 στήλες αριστερά)
4
Then Target.Offset(0, 1).Select
όπου 1
το offset κελί που πρέπει να μπεί η ημερομηνία για το Εξερχόμενο

Αλλάξτε το 1, αν είναι σε άλλο σημείο (πχ 2 αν είναι 2 στήλες δεξιά)