I have this section of code which has been working fine, up until now, when i
try to run it it highlights the third line, I think this is because sometimes
there are no empty cells where i am trying to run it, can i get it to ignore
the code only if there are no empty cells?

lngLastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
Range("B" & lngLastRow + 1 & ":DY" & lngLastRow + 1).Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.FormulaR1C1 = ".."

if you're selecting the row AFTER the last used row, then surely its blank
anyways??
whats the point of the code?

"Miree" wrote:

I have this section of code which has been working fine, up until now, when i
try to run it it highlights the third line, I think this is because sometimes
there are no empty cells where i am trying to run it, can i get it to ignore
the code only if there are no empty cells?

lngLastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
Range("B" & lngLastRow + 1 & ":DY" & lngLastRow + 1).Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.FormulaR1C1 = ".."

Hi,

One way would be to simply trap the error and move on. Note also I've
combined you statement into a single line and got rid of all the select bits

lngLastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
On Error GoTo getmeout
Range("B" & lngLastRow + 1 & ":DY" & lngLastRow +
1).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = ".."
getmeout:


Mike


"Miree" wrote:

I have this section of code which has been working fine, up until now, when i
try to run it it highlights the third line, I think this is because sometimes
there are no empty cells where i am trying to run it, can i get it to ignore
the code only if there are no empty cells?

lngLastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
Range("B" & lngLastRow + 1 & ":DY" & lngLastRow + 1).Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.FormulaR1C1 = ".."

The row being selected is the one after the last used cell in column A which
could have data in

"Patrick Molloy" wrote:

if you're selecting the row AFTER the last used row, then surely its blank
anyways??
whats the point of the code?

"Miree" wrote:

I have this section of code which has been working fine, up until now, when i
try to run it it highlights the third line, I think this is because sometimes
there are no empty cells where i am trying to run it, can i get it to ignore
the code only if there are no empty cells?

lngLastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
Range("B" & lngLastRow + 1 & ":DY" & lngLastRow + 1).Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.FormulaR1C1 = ".."

or, to avoid using GOTOs and setting error traps....

lngLastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row

Set blanks = Range("B" & lngLastRow + 1 & ":DY" & lngLastRow +
1).Find(xlCellTypeBlanks)
If Not blanks Is Nothing Then
blanks.FormulaR1C1 = ".."
End If


"Mike H" wrote:

Hi,

One way would be to simply trap the error and move on. Note also I've
combined you statement into a single line and got rid of all the select bits

lngLastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
On Error GoTo getmeout
Range("B" & lngLastRow + 1 & ":DY" & lngLastRow +
1).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = ".."
getmeout:


Mike


"Miree" wrote:

I have this section of code which has been working fine, up until now, when i
try to run it it highlights the third line, I think this is because sometimes
there are no empty cells where i am trying to run it, can i get it to ignore
the code only if there are no empty cells?

lngLastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
Range("B" & lngLastRow + 1 & ":DY" & lngLastRow + 1).Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.FormulaR1C1 = ".."