Help with writing macro

B

Bertha needs help

Ok this is the first macro i have ever written

So, i have two worksheets sheet 2 brings in data from another source. On
column D it brings in the name of the alarm that went off.

In Sheet "Bf4 alarms" column 1 i have a list of the 710 alarms that are
known to go off.

The problem is that sometimes new alarms that are not part of this list go
off.
So, im trying to write a macro that identifies these new alarms and places
them on Sheet 1 Column 2.

I really dont knoow how to do it. this is my idea.

Obviously it doesnt work cause i dont know what im doing and an error keeps
coming up but i dont know how to make it work.

Sub IdentNewAlarm()
x = ActiveCell.Row
y = x + 1
Do While Cells(x, 4).Value <> ""
Do While Cells(y, 4).Value <> ""

If (Cells(x, 4).Value = Sheets("BF4 AlarmsCells").Range("A:A")) Then
Sheets("BF4 AlarmsCells").Cells(1,2).value= cells(x,4))
Else
y = y + 1
End If
Loop
x = x + 1
y = x + 1
Loop


End Sub
 
J

Joel

Try this

Sub IdentNewAlarm()

'Find Last Row in column B
with Sheets("BF4 AlarmsCells")
Lastrow = .Range("B" & rows.count).end(xlup).row
NewRow = LastRow + 1
end with

RowCount = ActiveCell.Row
Do While Cells(RowCount, "D").Value <> ""
ID = Cells(RowCount, "D").Value
with Sheets("BF4 AlarmsCells")
set c = .Range("A").find(what:=ID,lookin:=xlvalues,lookat:=xlwhole)
if c is nothing then
.Cells(NewRow,"B").value= _
cells(RowCount,"D"))
NewRow = NewRow + 1
End If
end with
RowCount = RowCount + 1
Loop

End Sub
 
B

Bertha needs help

i tried running the macro but it came up with an error box

it said run time error 1004 then when i clicked ont he d bug it took me to
this line of the macro

set c = .Range("A").find(what:=ID,lookin:=xlvalues,lookat:=xlwhole)
 
J

Joel

I should of been columns not range

from
set c = .Range("A").find(what:=ID,lookin:=xlvalues,lookat:=xlwhole)
to
set c = .Columns("A").find(what:=ID,lookin:=xlvalues,lookat:=xlwhole)
 
B

Bertha needs help

I dont know why it still gives me an error with that line.

Now it says compile error
expected: =
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top