Help to translate the code

[yichuansancun]

Hello -

Can someone help me to interpret the following codes? Someone added this to my existing excel file in which I have already some codes in, but ever since the following codes were added, I am getting running time error by hiding row J to the very last row. Now sure if that has something to do with these codes:


Sub Macro1()
'
' Macro1 Macro
'

'
Range("G24").Select
Sheets("Local Plus Report").Select
ActiveWindow.LargeScroll Down:=-1
Range("G24").Select
ActiveCell.FormulaR1C1 = "=IF(R22C7=0,0,R[-20]C[7]-R[-20]C[8])"
Range("O3").Select
ActiveCell.FormulaR1C1 = "100000"
Range("O4").Select
Sheets("Local Plus Report").Select
Range("G25").Select
ActiveCell.FormulaR1C1 = "=IF(R22C7=0,0,R[-20]C[7]-R[-20]C[8])"
Range("G26").Select
ActiveCell.FormulaR1C1 = "=IF(R22C7=0,0,R[-20]C[7]-R[-20]C[8])"
Range("K7").Select
ActiveWorkbook.Save
Sheets("Home housing").Select
Sheets("United States local").Visible = True
Sheets("Local Plus Report").Select
Range("G26").Select
ActiveWorkbook.Save
End Sub

thanks,
Perri

 

[Ziggy12]

Doubt if it is causing your error unless your original code is calling macro1. If nothing is making it run then its not going to error.

Try clicking debug on the next error and see where the problem is.

Hidden columns don't usually cause a problem

ziggy

 

[yichuansancun]

you are right, these codes didn't do anything in fact, but I am getting the following error with my other codes:

running time error 1004: reference is not valid

here are the codes:

Sub Goalseek123()

Application.EnableEvents = False

Dim Previous As Range
Set Previous = ActiveCell

If LCase(Range("education_selection").Value) Like "*mercer data*" Then
Range("education").ClearContents
End If

If LCase(Range("choice").Value) Like "*specified amount*" Then
Range("housing_selection").ClearContents
ElseIf LCase(Range("choice").Value) Like "*mercer data*" Then
Range("housing").ClearContents
End If

Range("$N$7").Select
Range("$N$7").Goalseek Goal:=Range("$N$9").Value, ChangingCell:=Range("$N$3")

Range("$O$7").Select
Range("$O$7").Goalseek Goal:=Range("$O$9").Value, ChangingCell:=Range("$O$3")

Application.Goto Previous

Application.EnableEvents = True

End Sub

After I click "debug" the following line is highlighted:
Range("$N$7").Goalseek Goal:=Range("$N$9").Value, ChangingCell:=Range("$N$3")

know why?

 

[yichuansancun]

(double goalseek)

 

[Ziggy12]

Check the contents of the cells listed. There might be some text or a formula in one of them.

Maybe try using goal seek manually in the data menu on the same cells to see what happens. It might come up with the error.

ziggy

 

[yichuansancun]

Here is what is happening:

this file is password protected and column J+ are hidden.

When I open this file, if I would unprotect the file and unhide the columns, then the macro is run with no error.

However, when I open this file, and run the macro next (without unprotect and unhide), the error appears.

 

[Ziggy12]

That's because its trying to goal seek on a protected worksheet.

At the start of your code after the sub... add activesheet.unprotect before the end sub add activesheet.protect

 

[yichuansancun]

yes, unprotected that cell worked, thanks!