Snasui Excel Forum

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
  If Target.Address = "$B$3" And Target <> "" Then
    AddQ
   ElseIf Target.Address = "$A$3" And Target = "" Then
        'MsgBox "Please select data."
End If
End Sub

Code: Select all

Sub AddQ()
Set Source = Sheets("Add Q").Range("A3:O3")
    Application.ScreenUpdating = False
                Sheets("Add Q").[A65535].End(xlUp).Offset(1, 0) _
        .Resize(Source.Rows.Count, 15) = Source.Value
    Range("A3").ClearContents
End Sub

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    Application.EnableEvents = False
      If Target.Address = "$B$3" And Target <> "" Then
        AddQ
       ElseIf Target.Address = "$A$3" And Target = "" Then
            'MsgBox "Please select data."
    End If
    Application.EnableEvents = True
End Sub

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    Application.EnableEvents = False
      If Target.Address = "[color=#FF0000]$B$3[/color]" And Target <> "" Then
        AddQ
       ElseIf Target.Address = "$A$3" And Target = "" Then
            'MsgBox "Please select data."
    End If
    Application.EnableEvents = True
End Sub