What i need is if "a" is placed in A1, then "Attack" is placed in B1, and if 'a' is place in A2, then "Attack" is placed in B2, and If 'p' is placed in A3, then "magic" in B3 and so on, Here what i have
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B3:B30")) Is Nothing Then
Exit Sub
Else
Select Case Target.Value
Case "A"
Run "RAttack"
Case "P"
Run "RMagic"
Case "D"
Run "RDefend"
Case "R"
Run "RmyRun"
End Select
End If
End Sub
Sub RAttack()
If IsEmpty(Sheets("Sheet3").Range("C3")) Then
Sheets("Sheet3").Range("C3").Value = "Attack"
Else
Sheets("Sheet3").Range("C" & Rows.Count).End(xlUp).Offset(1).Value = "Attack"
End If
End Sub
Sub RMagic()
If IsEmpty(Sheets("Sheet3").Range("C3")) Then
Sheets("Sheet3").Range("C3").Value = "Magic"
Else
Sheets("Sheet3").Range("C" & Rows.Count).End(xlUp).Offset(1).Value = "Magic"
End If
End Sub
Sub RDefend()
If IsEmpty(Sheets("Sheet3").Range("C3")) Then
Sheets("Sheet3").Range("C3").Value = "Defend"
Else
Sheets("Sheet3").Range("C" & Rows.Count).End(xlUp).Offset(1).Value = "Defend"
End If
End Sub
Sub RmyRun()
If IsEmpty(Sheets("Sheet3").Range("C3")) Then
Sheets("Sheet3").Range("C3").Value = "Run"
Else
Sheets("Sheet3").Range("C" & Rows.Count).End(xlUp).Offset(1).Value = "Run"
End If
End Sub