Sep 29 2020 11:37 PM
Sep 30 2020 03:03 AM
SolutionHere is a macro:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Dim r As Long
If Not Intersect(Me.Range("K5:K100"), Target) Is Nothing Then
Application.ScreenUpdating = False
Application.EnableEvents = False
With Sheet2
r = 4
Do
r = r + 1
Loop Until .Range("H" & r).Value = ""
For Each rng In Intersect(Me.Range("K5:K100"), Target)
.Range("H" & r).Value = rng.Offset(0, -4).Value
.Range("I" & r).Value = rng.Offset(0, -3).Value
r = r + 1
Next rng
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End If
End Sub
Sep 30 2020 03:03 AM
SolutionHere is a macro:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Dim r As Long
If Not Intersect(Me.Range("K5:K100"), Target) Is Nothing Then
Application.ScreenUpdating = False
Application.EnableEvents = False
With Sheet2
r = 4
Do
r = r + 1
Loop Until .Range("H" & r).Value = ""
For Each rng In Intersect(Me.Range("K5:K100"), Target)
.Range("H" & r).Value = rng.Offset(0, -4).Value
.Range("I" & r).Value = rng.Offset(0, -3).Value
r = r + 1
Next rng
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End If
End Sub