Application-defined or object-defined error Please Help

S

sastry.m.s

I am new to amcro writing in excel and when run follwoing code i am
gettin Application-defined or object-defined error. Please help me .
how can i achive this?

Sub Loop8()
' This loop does the calculating itself and writes the result into each
cell
Range("D1").Select
Do
If IsEmpty(ActiveCell.Offset(0, -1)) Then
ActiveCell.Value = 0
ActiveCell.Offset(0, -1).Value = "Customer"
ElseIf ActiveCell.Offset(0, -1).Value = ActiveCell.Offset(-1,
-1).Value Then
ActiveCell.Value = 0
Else
ActiveCell.Value = ActiveCell.Offset(0, -2).Value -
ActiveCell.Offset(0, -3).Value
End If
ActiveCell.Offset(1, 0).Select
Loop Until IsEmpty(ActiveCell.Offset(0, -2))



End Sub
 
G

Guest

Hi,
You didn't say which line caused the error but the following will
error if
D1 is not Empty as you test for Offset(-1,-1) which will give a row value of
0 (if activecell is on row 1) which is invalid.


ElseIf ActiveCell.Offset(0, -1).Value = ActiveCell.Offset(-1, -1).Value Then


HTH
 

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

Similar Threads

Run-time error 1004 paste method of worksheet class failed 3
Application-defined or object-defined error Please Help 3
VBA - Do Loop or SaveChanges = false 1
Excel How to capture data to a specified excel sheet(first workbook) of two different workbooks from the 0
Macro if and / or statement 3
If statement in macro 2
find with six different criteria 8
Runtime Error '91' Object variable or With block variable not set 2

Top