Entering a value in the next empty cell : Cells « Excel « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. Excel
  3. Cells

Entering a value in the next empty cell

 
Sub GetData()
  Do
    NextRow = Application.WorksheetFunction.CountA(Range("A:A")) + 1
    Entry1 = "A"
    Entry2 = "B"
    Cells(NextRow, 1) = Entry1
    Cells(NextRow, 2) = Entry2
  Loop
End Sub








Related examples in the same category

1.Select entire sheet
2.Set cell value with For Loop
3.Use row and column index to reference cell
4.Cells(Rows.Count, "A").End(xlUp).Select
5.looping through a worksheet range using a For/Next loop.
6.Cells.Find: Get Real Last Cell
7.Get cell value
8.Sum Cells Based on the Interior Color
9.Use the AutoFill function by specifying the destination range
10.Using Replace Programmatically to Set the Correct Range
11.Calling CurrentRegion to Inspect a List's Useful Characteristics