| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
error: ActiveCell.Offset(0, -1).Select = Application-defined or object-defined error
Why do I keep getting 1004 error when trying to move active cell ?? :
For a = 1 To 6000 If ActiveCell = "F" Then 'Sortering for kvinder og 20-39 år ActiveCell.Offset(0, -1).Select ' Flyt activ celle til alder If ActiveCell = 20 And ActiveCell = 39 Then ActiveCell.Offset(0, 12).Select ' Flyt activ celle til fedtprocent If ActiveCell < 21 Then myCount = Sheets("Fedtprocent").Range("C12") + 1 Sheets("Fedtprocent").Range("C12") = myCount End If If ActiveCell = 21 And ActiveCell < 33 Then myCount = Sheets("Fedtprocent").Range("C13") + 1 Sheets("Fedtprocent").Range("C13") = myCount End If If ActiveCell = 33 And ActiveCell < 39 Then myCount = Sheets("Fedtprocent").Range("C14") + 1 Sheets("Fedtprocent").Range("C14") = myCount End If If ActiveCell = 39 Then myCount = Sheets("Fedtprocent").Range("C15") + 1 Sheets("Fedtprocent").Range("C15") = myCount End If End If End If If ActiveCell.Value = "" Then 'End macro ved tom celle Sheets("Fedtprocent").Select Range("L2").Select Application.ScreenUpdating = True End End If ActiveCell.Offset(1, -11).Select ' Flyt celle ned. Fedtprocent celle er valgt <------------ERROR ! Next a Regards Shamran |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
error: ActiveCell.Offset(0, -1).Select = Application-defined or object-defined error
Probably because you have that statement in the wrong place and going -11
goes off the sheet. I suspect it should only be executed if the command ActiveCell.Offset(0, 12).Select ' Flyt activ celle til fedtprocent has been executed - but that requires passing two IF statemetns to get there. The Move back is outside those if statements - so it is executed on every loop. -- Regards, Tom Ogilvy "-[::::Shamran::::]-" wrote in message ... Why do I keep getting 1004 error when trying to move active cell ?? : For a = 1 To 6000 If ActiveCell = "F" Then 'Sortering for kvinder og 20-39 år ActiveCell.Offset(0, -1).Select ' Flyt activ celle til alder If ActiveCell = 20 And ActiveCell = 39 Then ActiveCell.Offset(0, 12).Select ' Flyt activ celle til fedtprocent If ActiveCell < 21 Then myCount = Sheets("Fedtprocent").Range("C12") + 1 Sheets("Fedtprocent").Range("C12") = myCount End If If ActiveCell = 21 And ActiveCell < 33 Then myCount = Sheets("Fedtprocent").Range("C13") + 1 Sheets("Fedtprocent").Range("C13") = myCount End If If ActiveCell = 33 And ActiveCell < 39 Then myCount = Sheets("Fedtprocent").Range("C14") + 1 Sheets("Fedtprocent").Range("C14") = myCount End If If ActiveCell = 39 Then myCount = Sheets("Fedtprocent").Range("C15") + 1 Sheets("Fedtprocent").Range("C15") = myCount End If End If End If If ActiveCell.Value = "" Then 'End macro ved tom celle Sheets("Fedtprocent").Select Range("L2").Select Application.ScreenUpdating = True End End If ActiveCell.Offset(1, -11).Select ' Flyt celle ned. Fedtprocent celle er valgt <------------ERROR ! Next a Regards Shamran |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
error: ActiveCell.Offset(0, -1).Select = Application-defined or object-defined error
Strange ... I don't think that I am going off the Sheet :
The full code looks like this : Sub Fedtprocent() Sheets("data").Select Range("O2").Select ActiveCell.Offset(0, -11).Select 'Flytter aktivcelle til køn For a = 1 To 6000 If ActiveCell = "F" Then 'Sortering for kvinder og 20-39 år ActiveCell.Offset(0, -1).Select ' Flyt activ celle til alder If ActiveCell = 20 And ActiveCell = 39 Then ActiveCell.Offset(0, 12).Select ' Flyt activ celle til fedtprocent If ActiveCell < 21 Then myCount = Sheets("Fedtprocent").Range("C12") + 1 Sheets("Fedtprocent").Range("C12") = myCount End If If ActiveCell = 21 And ActiveCell < 33 Then myCount = Sheets("Fedtprocent").Range("C13") + 1 Sheets("Fedtprocent").Range("C13") = myCount End If If ActiveCell = 33 And ActiveCell < 39 Then myCount = Sheets("Fedtprocent").Range("C14") + 1 Sheets("Fedtprocent").Range("C14") = myCount End If If ActiveCell = 39 Then myCount = Sheets("Fedtprocent").Range("C15") + 1 Sheets("Fedtprocent").Range("C15") = myCount End If End If End If If ActiveCell.Value = "" Then 'End macro ved tom celle Sheets("Fedtprocent").Select Range("L2").Select Application.ScreenUpdating = True End End If ActiveCell.Offset(1, -11).Select ' Flyt celle ned. Fedtprocent celle er valgt Next a End Sub |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
error: ActiveCell.Offset(0, -1).Select = Application-defined orobject-defined error
Excel has 256 columns.
You're running a loop from 1 to 6000 that tries to move one column to the left: ActiveCell.Offset(0, -1).Select it should blow up pretty early in the loop. "-[::::Shamran::::]-" wrote: Why do I keep getting 1004 error when trying to move active cell ?? : For a = 1 To 6000 If ActiveCell = "F" Then 'Sortering for kvinder og 20-39 år ActiveCell.Offset(0, -1).Select ' Flyt activ celle til alder If ActiveCell = 20 And ActiveCell = 39 Then ActiveCell.Offset(0, 12).Select ' Flyt activ celle til fedtprocent If ActiveCell < 21 Then myCount = Sheets("Fedtprocent").Range("C12") + 1 Sheets("Fedtprocent").Range("C12") = myCount End If If ActiveCell = 21 And ActiveCell < 33 Then myCount = Sheets("Fedtprocent").Range("C13") + 1 Sheets("Fedtprocent").Range("C13") = myCount End If If ActiveCell = 33 And ActiveCell < 39 Then myCount = Sheets("Fedtprocent").Range("C14") + 1 Sheets("Fedtprocent").Range("C14") = myCount End If If ActiveCell = 39 Then myCount = Sheets("Fedtprocent").Range("C15") + 1 Sheets("Fedtprocent").Range("C15") = myCount End If End If End If If ActiveCell.Value = "" Then 'End macro ved tom celle Sheets("Fedtprocent").Select Range("L2").Select Application.ScreenUpdating = True End End If ActiveCell.Offset(1, -11).Select ' Flyt celle ned. Fedtprocent celle er valgt <------------ERROR ! Next a Regards Shamran -- Dave Peterson |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
error: ActiveCell.Offset(0, -1).Select = Application-defined or object-defined error
Just been looking at it agant ... what a mess .. I'll just have another
look..don't be using any time on this..Let me cleare it up first ?? regards, Shamran "-[::::Shamran::::]-" wrote in message ... Strange ... I don't think that I am going off the Sheet : The full code looks like this : Sub Fedtprocent() Sheets("data").Select Range("O2").Select ActiveCell.Offset(0, -11).Select 'Flytter aktivcelle til køn For a = 1 To 6000 If ActiveCell = "F" Then 'Sortering for kvinder og 20-39 år ActiveCell.Offset(0, -1).Select ' Flyt activ celle til alder If ActiveCell = 20 And ActiveCell = 39 Then ActiveCell.Offset(0, 12).Select ' Flyt activ celle til fedtprocent If ActiveCell < 21 Then myCount = Sheets("Fedtprocent").Range("C12") + 1 Sheets("Fedtprocent").Range("C12") = myCount End If If ActiveCell = 21 And ActiveCell < 33 Then myCount = Sheets("Fedtprocent").Range("C13") + 1 Sheets("Fedtprocent").Range("C13") = myCount End If If ActiveCell = 33 And ActiveCell < 39 Then myCount = Sheets("Fedtprocent").Range("C14") + 1 Sheets("Fedtprocent").Range("C14") = myCount End If If ActiveCell = 39 Then myCount = Sheets("Fedtprocent").Range("C15") + 1 Sheets("Fedtprocent").Range("C15") = myCount End If End If End If If ActiveCell.Value = "" Then 'End macro ved tom celle Sheets("Fedtprocent").Select Range("L2").Select Application.ScreenUpdating = True End End If ActiveCell.Offset(1, -11).Select ' Flyt celle ned. Fedtprocent celle er valgt Next a End Sub |
|
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
error: ActiveCell.Offset(0, -1).Select = Application-defined or object-defined error
"Dave Peterson" wrote in message ... Excel has 256 columns. You're running a loop from 1 to 6000 that tries to move one column to the left: ActiveCell.Offset(0, -1).Select it should blow up pretty early in the loop. Jep .. quiet stupid ... ille try harder next time ! *GGG* Thanks Shamran |
|
#8
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
error: ActiveCell.Offset(0, -1).Select = Application-defined orobject-defined error
Maybe not...
I didn't look at the rest of your code where you were changing selections. Maybe your loop takes care of that. (I didn't look close enough!) "-[::::Shamran::::]-" wrote: "Dave Peterson" wrote in message ... Excel has 256 columns. You're running a loop from 1 to 6000 that tries to move one column to the left: ActiveCell.Offset(0, -1).Select it should blow up pretty early in the loop. Jep .. quiet stupid ... ille try harder next time ! *GGG* Thanks Shamran -- Dave Peterson |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Macro error : Application-defined or object-defined error | Excel Discussion (Misc queries) | |||
| Error 1004 Application Defined or Object Defined Error | Excel Programming | |||
| Macro Run-time Error 1004 Application Defined or Object Defined Error | Excel Programming | |||
| Runtime Error 1004 -- Application Defined or Object Defined Error | Excel Programming | |||
![-[::::Shamran::::]- is offline](https://www.excelbanter.com/images/SultanThemeVB3R/statusicon/user_offline.gif)
Linear Mode
