Excel Forum

Code: Select all

   If Target.Column = 1 Then
         If Target.Offset(0, 0) <> "" Then
            Target.Offset(0, 0) = Format(Target.Offset(0, 0), ("9IN22000000"))
            Target.Offset(0, 1).Activate
        End If
    End If
 

Code: Select all

'Other code...
If Target.Offset(0, 1).Value = 1 Then
    Target.Value = VBA.Format(Target.Value, """9IN22""000000")
Else
    Target.Value = VBA.Format(Target.Value, """4NI22""000000")
End If
'Other code...