Snasui Excel Forum

Code: Select all

Application.EnableEvents = False
    With Target.Parent
        ofs = .Range("d1").Value

Code: Select all

Private Sub CommandButton1_Click()
        Sheet1.Range("D3") = UserForm1.Txt01.Value
        Unload Me
End Sub

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ofs As Integer
    Application.EnableEvents = False
    With ActiveSheet
        ofs = .Range("d1").Value
        If Target.Address = "$D$3" Then
           .Range("D2").Value = _
            Sheet2.Range("B1").Offset(ofs, 0).Value
            .Range("d1").Value = .Range("d1").Value + 1
            If .Range("d1").Value = 20 Then .Range("d1").Value = 0
        End If
    End With
    Application.EnableEvents = True
End Sub

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$3" Then
   ActiveSheet.Range("D2").Value = Sheet2.Range("B1").Value
End If
End Sub