Need to change certain cell values in newly created row

[lboone]

Hello, I found a macro online to insert a new row into the correct alphabetical position in a table. I know I can autofill some individual cells in the new row based on input boxes or other cell values. But I need to input 0's into multiple other cells in the new row. Is there a way to do this without adding lines in my macro for each individual cell?

 

[Micron]

Get the column index of AE (31) and of AK (37) and loop over those cells using For Next loop and in that row and set the cell value to 0?
Actual code is much preferred over pictures.

 

[Trebor76]

Hi lboone,

Welcome to MrExcel!!

Try this one liner for all the columns you want to set to zero in the newly inserted row:

Range("H" & lPosition + 1 & ":I" & lPosition + 1 & ",W" & lPosition + 1 & ",AE" & lPosition + 1 & ":AK" & lPosition + 1).Value = 0

Regards,

Robert

 

[lboone]

Hi lboone,

Welcome to MrExcel!!

Try this one liner for all the columns you want to set to zero in the newly inserted row:

Range("H" & lPosition + 1 & ":I" & lPosition + 1 & ",W" & lPosition + 1 & ",AE" & lPosition + 1 & ":AK" & lPosition + 1).Value = 0

Regards,

Robert

Thank you! That is exactly what I was looking for.

 

[Trebor76]

Thank you! That is exactly what I was looking for.

You're welcome