Snasui Excel Forum

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
If Sheet3.Range("A1").Value = "PasswordPassword" Then
Sheet3.Range("A1").Value = Sheet2.Range("A1").Value
Else
    Sheet3.Range("A1").Value = Sheet2.Range("A1"). _
    Offset(Application.Match(Sheet3.Range("A1").Value, Sheet2.Range("A1:A99").Value, 0), 0)
End If
End If
End Sub

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$2" Then
        Sheet3.Range("A1").Value = Sheet2.Range("A1").Offset(Sheet2.Range("b1").Value, 0).Value
        Sheet2.Range("b1").Value = Sheet2.Range("b1").Value + 1
    End If
End Sub

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
    Sheet3.Range("A1").Value = Sheet2.Range("A1").Value
End If
End Sub