| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
R/T error 1004 - App-defin or obj defin error on last presented li
Sub PrepDepsAndWiths()
Sheets("ImportWorkTable").Select ActiveSheet.UsedRange.Offset(1, 0).Copy Sheets("DepositsAndWithdrawals").Range("D2") Sheets("DepositsAndWithdrawals").Activate Range("A1").Select Beglrow = Cells(Rows.Count, "D").End(xlUp).Row ' = 589 ActiveSheet.Range("B2:B" & Beglrow).Formula = "=IF(ISNUMBER(D2),D2,"")" <<Bombing here (this line) Can someone assist? |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
R/T error 1004 - App-defin or obj defin error on last presented li
Hi Jim,
Try replacing: ActiveSheet.Range("B2:B" & Beglrow).Formula = "=IF(ISNUMBER(D2),D2,"")" with ActiveSheet.range("B2:B" & BeglRow).Formula = _ "=IF(ISNUMBER(D2),D2,)" --- Regards, Norman "Jim May" wrote in message ... Sub PrepDepsAndWiths() Sheets("ImportWorkTable").Select ActiveSheet.UsedRange.Offset(1, 0).Copy Sheets("DepositsAndWithdrawals").Range("D2") Sheets("DepositsAndWithdrawals").Activate Range("A1").Select Beglrow = Cells(Rows.Count, "D").End(xlUp).Row ' = 589 ActiveSheet.Range("B2:B" & Beglrow).Formula = "=IF(ISNUMBER(D2),D2,"")" <<Bombing here (this line) Can someone assist? |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
R/T error 1004 - App-defin or obj defin error on last presented li
Hi Jim,
My suggested line should have read: ActiveSheet.range("B2:B" & BeglRow).Formula = _ "=IF(ISNUMBER(D2),D2,"""")" --- Regards, Norman "Norman Jones" wrote in message ... Hi Jim, Try replacing: ActiveSheet.Range("B2:B" & Beglrow).Formula = "=IF(ISNUMBER(D2),D2,"")" with ActiveSheet.range("B2:B" & BeglRow).Formula = _ "=IF(ISNUMBER(D2),D2,)" --- Regards, Norman |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
R/T error 1004 - App-defin or obj defin error on last presente
Norman;
I changed your original code; And the Second line problem (posted seperate) works just fine. No problems, thanks to you. Jim "Norman Jones" wrote: Hi Jim, My suggested line should have read: ActiveSheet.range("B2:B" & BeglRow).Formula = _ "=IF(ISNUMBER(D2),D2,"""")" --- Regards, Norman "Norman Jones" wrote in message ... Hi Jim, Try replacing: ActiveSheet.Range("B2:B" & Beglrow).Formula = "=IF(ISNUMBER(D2),D2,"")" with ActiveSheet.range("B2:B" & BeglRow).Formula = _ "=IF(ISNUMBER(D2),D2,)" --- Regards, Norman |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
R/T error 1004 - App-defin or obj defin error on last presente
Norman, thanks that got me past that line;
However the next and final such formula statement is now causing the same problem -- currently it is: Activesheet.Range("C2:C" & Beglrow).Formula = "=IF(AND(ISNUMBER(B2),LEN(H2)12),""Credit"",IF(AN D(ISNUMBER(B2),LEN(H2)<12),""Debit"",""))" I can't recognize the syntax problem with the above -- can you assist? TIA, Jim "Norman Jones" wrote: Hi Jim, Try replacing: ActiveSheet.Range("B2:B" & Beglrow).Formula = "=IF(ISNUMBER(D2),D2,"")" with ActiveSheet.range("B2:B" & BeglRow).Formula = _ "=IF(ISNUMBER(D2),D2,)" --- Regards, Norman "Jim May" wrote in message ... Sub PrepDepsAndWiths() Sheets("ImportWorkTable").Select ActiveSheet.UsedRange.Offset(1, 0).Copy Sheets("DepositsAndWithdrawals").Range("D2") Sheets("DepositsAndWithdrawals").Activate Range("A1").Select Beglrow = Cells(Rows.Count, "D").End(xlUp).Row ' = 589 ActiveSheet.Range("B2:B" & Beglrow).Formula = "=IF(ISNUMBER(D2),D2,"")" <<Bombing here (this line) Can someone assist? |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
R/T error 1004 - App-defin or obj defin error on last presente
Hi Jim,
Try: ActiveSheet.range("C2:C" & BeglRow).Formula = _ "=IF(AND(ISNUMBER(B2),LEN(H2)12),""Credit""," & _ "IF(AND(ISNUMBER(B2),LEN(H2)<12),""Debit"",""" "))" --- Regards, Norman "Jim May" wrote in message ... Norman, thanks that got me past that line; However the next and final such formula statement is now causing the same problem -- currently it is: Activesheet.Range("C2:C" & Beglrow).Formula = "=IF(AND(ISNUMBER(B2),LEN(H2)12),""Credit"",IF(AN D(ISNUMBER(B2),LEN(H2)<12),""Debit"",""))" I can't recognize the syntax problem with the above -- can you assist? TIA, Jim |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Error 1004, Application-definded or object-defined error | Excel Programming | |||
| run-time error '1004': Application-defined or object-deifined error | Excel Programming | |||
| Excel 2003 Macro Error - Runtime error 1004 | Excel Discussion (Misc queries) | |||
| naming tab macro error runtime error 1004 | Excel Programming | |||
Hybrid Mode
