Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("a5")) Is Nothing Then
Select Case Target
Case "duo1"
Application.EnableEvents = False
Range("a6:c19").Value = Range("a2:c6").Value
Application.EnableEvents = True
'do nothing
End Select
End If
End Sub
one again i need help
pulldown menu is in sheet1 a5
and i want to bring sheet 2 A2:C6 into sheet1 A6:C19
it works perfectly if it's in the same sheet but i need to know how to bring it over from one sheet to anothe
thank you in advance.
Bookmarks