excel - Add data in next available row -


this macro adds data in cell a10. data gets overwritten every time run again. how can add 1 cel below?

sub invoer()   dim debiteurnummer integer dim aantalpallets integer dim totaalgewicht integer  debiteurnummer = inputbox("debiteurnummer invoeren") aantalpallets = inputbox("aantal pallets?") totaalgewicht = inputbox("totaal gewicht?")  range("a10").value = debiteurnummer range("a10").offset(0, 2) = aantalpallets range("a10").offset(0, 3) = totaalgewicht     end sub 

add dynamic search lastrow:

sub invoer()  dim debiteurnummer integer dim aantalpallets integer dim totaalgewicht integer dim lastrow long  debiteurnummer = inputbox("debiteurnummer invoeren") aantalpallets = inputbox("aantal pallets?") totaalgewicht = inputbox("totaal gewicht?")  lastrow = cells(rows.count, "a").end(xlup).row  range("a" & lastrow + 1).value = debiteurnummer range("a" & lastrow + 1).offset(0, 2) = aantalpallets range("a" & lastrow + 1).offset(0, 3) = totaalgewicht  end sub 

Comments

Popular posts from this blog

magento2 - Magento 2 admin grid add filter to collection -

Android volley - avoid multiple requests of the same kind to the server? -

Combining PHP Registration and Login into one class with multiple functions in one PHP file -