Macro - Flere privat sub?

Du kan bare indsætte denne formel i din kolonne B (i B1):
=IF($A1=1;1;2)

og træk formlen ned så langt som det nu skulle være.

Men ja - man kan ellers lave så mange subs som man kan forestille sig - de skal bare kaldes

Hej Thomas.

Du skal være en macro, da de celler der skal indtastes data i er celler med dropdown derfor er det den eneste løsning.

hvordan vil du skrive en private sub?

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
If [A1] = "1" Then [B1] = "1" Else [B1] = "2"

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
If [A2] = "1" Then [B2] = "1" Else [B2] = "2"

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then
        If Target = "1" Then Target.Offset(0, 1) = "1" Else Target.Offset(0, 1) = "2"
    End If
End Sub

koden gælder hele kolonne A

Hvis det er tal i A kolonnen skal du rette til dette

If Target = 1 Then Target.Offset(0, 1) = 1 Else Target.Offset(0, 1) = 2

Hvordan hvis det kun er et afgrtænset stykke og ikke rækken ved siden af?

Så A1 = 1 Så bliver U29=2 Eller tekst for den sags skyld?

Private Sub Worksheet_Change(ByVal Target As Range)
      If Not Intersect(Target, Range("A1:A30")) Is Nothing Then
      '  If Target = "1" Then Target.Offset(0, 1) = "1" Else Target.Offset(0, 1) = "2"
        If Target = "1" Then Range("U" & Target.Offset(28, 0).Row) = "1" Else Range("U" & Target.Offset(28, 0).Row) = "2"
    End If
End Sub

Det virker som det skal.

Er det muligt at gentage en privat sub?
Så man ser i B1:B10 om værdinen er A eller B  og så skriver noget i T som den overfor?

Private Sub Worksheet_Change(ByVal Target As Range)
      If Not Intersect(Target, Range("A1:A30")) Is Nothing Then
      '  If Target = "1" Then Target.Offset(0, 1) = "1" Else Target.Offset(0, 1) = "2"
        If Target = "1" Then Range("U" & Target.Offset(28, 0).Row) = "1" Else Range("U" & Target.Offset(28, 0).Row) = "2"
    End If

If Not Intersect(Target, Range("B1:B10")) Is Nothing Then
      '  If Target = "1" Then Target.Offset(0, 1) = "1" Else Target.Offset(0, 1) = "2"
        If Target = "1" Then Range("T" & Target.Offset(28, 0).Row) = "1" Else Range("T" & Target.Offset(28, 0).Row) = "2"
    End If
End Sub