I've found that if I create another col as a ref I can get to work.

Thanks a lot

"Jacob Skaria" wrote:

Try Macro1 from the previous post which gets the last row from bottom....If
that do not suit your requirement then the only way is to loop through cells
and get the last row..

If this post helps click Yes
---------------
Jacob Skaria


"Jacob Skaria" wrote:

Place a message box and see whether lnglastRow is less than or equal to 217;
o otherwise your code should work fine

If this post helps click Yes
---------------
Jacob Skaria


"LiAD" wrote:

I'm looking to copy both lines at a time though, hence the P217 to AC218. I
need one blank line , then one formula lien, repeating, hence why I need both.

Is this not possible?

"Jacob Skaria" wrote:

It should be
Range("P217:AC217").AutoFill Destination:=Range("P217:AC" & lnglastRow)

instead of
Range("P217:AC218").AutoFill Destination:=Range("P217:AC" & lnglastRow)

Also check out the value of lngLastRow..

If this post helps click Yes
---------------
Jacob Skaria


"LiAD" wrote:

Hi,

Thanks for this.

When i try to combine this with an autofill code I'm getting a 1004 error -
autofill method of range class failed, its fails on this line:

Range("P217:AC218").AutoFill Destination:=Range("P217:AC" & lnglastRow)

of this code:

Sub Deletemeveryquickly()

Dim varTemp As Variant
varTemp = Range("AF4")
If varTemp 0 And varTemp <= 25 Then

Dim lnglastRow As Long
lnglastRow = ActiveSheet.Range("C217").End(xlDown).Row
If lnglastRow 265 Then lnglastRow = 265
Range("P217:AC218").AutoFill Destination:=Range("P217:AC" & lnglastRow)

ElseIf varTemp 25 Then
MsgBox varTemp * 10
End If

End Sub


Any ideas why that would be failing there?

Thanks
LiAD


"Jacob Skaria" wrote:

Sub Macro1()

Dim varTemp As Variant

varTemp = Range("AG4")

If varTemp 0 And varTemp <= 25 Then
MsgBox varTemp * 3
ElseIf varTemp 25 Then
MsgBox varTemp * 10
End If

End Sub

If this post helps click Yes
---------------
Jacob Skaria


"LiAD" wrote:

Hi,

Please could some-one give me the If structure to use for VB. Something
very trivial such as

if cell 0<ag4<=25 do a4*3
else if ag425 do a4*10
else do nothing
end

I would like to get the structure then I can try and build the rest of code.

Thanks
LiAD