Excel VBA Macro pour remplir des cellules basées sur une valeur entrée

Question

Ce que j'essaie d'accomplir est de créer une macro / vb pour peupler des cellules à gauche et à droite d'une cellule particulière, je saisi des données.

Alors, disons que j'ai trois colonnes.La colonne Centre sera l'endroit où je tape un nombre de 30 ou 31. Si je tape 30, je veux que les cellules de gauche puissent remplir en attente et la cellule sur la droite de remplir avec TBD.Fonction similaire si je tape 31 mais sera des données différentes.

Toute pensée? Merci

Answer 1

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = 30 And Target.Column > 1 Then
    Target.Offset(0, -1).Value = "PENDING"
    Target.Offset(0, 1) = "TBD"
ElseIf Target.Value = 31 Then
    Target.Offset(0, 1).Value = "SOME OTHER DATA"
End If
End Sub