Hi,
I'm trying to write code ,If the offset cell is empty then no action is required otherwise copy offset cell content and paste it into another sheet and at the same time I want one more specific word to be pasted in another cell.
So far I found the code that would only copies the offset cell and pastes it into another sheet.
Code
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D7:D130")) Is Nothing Then
If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
Sheets("Sheet10").Range("I3").Value = ActiveCell.Offset(0, -1).Value
Sheets("Sheet10").Range("K3").Value = Target.Value
Sheets("Sheet10").Range("Q3").Value = ActiveCell.Offset(0, 1).Value
'If ActiveCell.Offset(0, 5) ="" Then No action required
'Otherwise Sheets("Sheet10").Range("AG4").Value = ActiveCell.Offset(0, 5).Value & also Sheets("Sheet10").Range("AG5").Value = "North"
'If ActiveCell.Offset(0, 7) ="" Then Then No action required
'Otherwise Sheets("Sheet10").Range("AJ4").Value = ActiveCell.Offset(0, 7).Value & also Sheets("Sheet10").Range("AJ5").Value = "South"
'If ActiveCell.Offset(0, 9) ="" Then Then No action required
'Otherwise Sheets("Sheet10").Range("AM4").Value = ActiveCell.Offset(0, 9).Value & also Sheets("Sheet10").Range("AM5").Value = "East"
'If ActiveCell.Offset(0, 12) ="" Then No action required
'Otherwise Sheets("Sheet10").Range("AP4").Value = ActiveCell.Offset(0, 12).Value & also Sheets("Sheet10").Range("AP5").Value = "West"
End If
End If
End Sub
Display More