Thread
:
error: ActiveCell.Offset(0, -1).Select = Application-defined or object-defined error
View Single Post
#
2
Posted to microsoft.public.excel.programming
Tushar Mehta
external usenet poster
Posts: 1,071
error: ActiveCell.Offset(0, -1).Select = Application-defined or object-defined error
What is the active cell when you get the error? With that as the
activecell, what would it mean to move 11 columns to the left?
--
Regards,
Tushar Mehta
www.tushar-mehta.com
Excel, PowerPoint, and VBA add-ins, tutorials
Custom MS Office productivity solutions
In article ,
says...
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
Reply With Quote
Tushar Mehta
View Public Profile
Find all posts by Tushar Mehta