Find last row and column and put dashes in empty cells starting at row 19

[Andy15]

Hi Guys,
I am looking for a bit of help with some data I need to work with. I have an excel sheet that contains varied amounts of data. some of the cells are blank and I am looking for some code to put a - (dash) in all of the empty cells starting at row 19

I need the code to find the last row and column of data and then but dashes in all the blank cells starting at row 19

Thank you for any help received
Andy

 

[Rick Rothstein]

Give this a try...

[table="width: 500"]
[tr]
	[td]Sub DashesInBlanksRow19Down()
  Range("19:" & Cells.Find("*", , xlValues, , xlRows, xlPrevious, , , False).Row).SpecialCells(xlBlanks).Value = "-"
End SUb[/td]
[/tr]
[/table]

 

[Andy15]

Hi Rick,

Thank you so much for your reply. The code puts dashes in as requested but for some reason it fills from row 19 as requested and finds the last row but it is not finding the last column, my data finished at row M but the dashes were added to column up to Cq

Any advice would be welcomed

Thanks
Andy

 

[Rick Rothstein]

but it is not finding the last column, my data finished at row M but the dashes were added to column up to Cq

Sorry, give this macro a try instead...

[table="width: 500"]
[tr]
	[td]Sub DashesInBlanksRow19Down()
  Range("A19:" & Cells(Cells.Find("*", , xlValues, , xlRows, xlPrevious, , , False).Row, Cells.Find("*", , xlValues, , xlByColumns, xlPrevious, , , False).Column).Address).SpecialCells(xlBlanks).Value = "-"
End Sub[/td]
[/tr]
[/table]

 

[Andy15]

Hi Rick,

That is perfect,

Thank you so much for your assistance
Andy