Like so:
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 And Target <> "" And IsNumeric(Target) Then
With Sheets("Sheet2")
.Range("C7").Value = Range("B" & Target.Row).Value
.Range("C8").Value = Range("C" & Target.Row).Value
.Range("C9").Value = Range("D" & Target.Row).Value
.Range("F8").Value = Range("E" & Target.Row).Value
.Range("F9").Value = Range("F" & Target.Row).Value
.Activate
End With
Beep
End If
End Sub
OK, now it's your turn. If your "requirements" change again
you take a stab at changing the code given to match your new requirement and then ask us about
your code and your attempts, OK?
Bookmarks