write code to copy a current variables value into next available cell in worksheet

[damayn83]

I am attempting to put a variables value from program to worksheet. I have gotten it to write for individual cells but I need it to write to next available cell. The variables that need to be written are air pressure and volume water.

Please Login or Register  to view this content.

Thank you for any help

[RSWillis]

If by "next available cell" you mean the row below and column beside the used range, you could add this code:

nNextRow = ActiveSheet.UsedRange.Rows.Count + 1
nNextCol = ActiveSheet.UsedRange.Columns.Count + 1
Cells(nNextRow, nNextCol).Value = air_pressure

[damayn83]

Same column, next row down, worksheet2? What changes need to be made?

[RSWillis]

This may help. It uses the current column of the active sheet, posts your numbers into sheet2 same column and next row, then returns to activesheet.

Please Login or Register  to view this content.

[damayn83]

Thank you for your help. The code is running great and writes where it needs to.