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
Post a Comment