is it possible to write something to automatically save info to the next empty cell on another sheet
S swain.s Jun 20, 2009 #1 is it possible to write something to automatically save info to the next empty cell on another sheet
D Don Guillett Jun 20, 2009 #2 Lots of ways, here's one. Sub copytonextsheet() Set destsht = Sheets("sheet12") With destsht lr = .Cells(Rows.Count, "a").End(xlUp).Row + 1 ActiveCell.Copy .Cells(lr, "a") End With End Sub
Lots of ways, here's one. Sub copytonextsheet() Set destsht = Sheets("sheet12") With destsht lr = .Cells(Rows.Count, "a").End(xlUp).Row + 1 ActiveCell.Copy .Cells(lr, "a") End With End Sub
