Compare 2 cells if equal then copy...

**stimea** · 05-08-2012, 05:47 AM

Hello,

i would like to compare two cells in a sheet, and if it's equal then copy other cells into a new row. But i am new in excel programming, and i cant do that. Can you help me?

Forexample
i have data in A4 and A5 and A6 ...etc
if i write in b4 the same as a4, then copy a8...a12 into b8...b12

**arlu1201** · 05-08-2012, 05:49 AM

What if b5=a5, which rows should be copied?

**stimea** · 05-08-2012, 05:51 AM

left out: i need a macro for it

**tom1977** · 05-08-2012, 05:56 AM

Hi
this code will make what you described but You should give us more details (any sample?)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "B4" Then
If Target = Target.Offset(0, -1) Then
Range("a8:a12").Copy Destination:=Range("b8:b12")
End If
End If
End Sub