How can I change this code...

[lucky12341]

I am using this code to enter basic data into the next available empty cell in A1 from an input form. Can I change the code to find an entry that is in the A column and then enter data in the neighboring B,C etc columns, i.e. information is maybe in cell A76 and the information would be entered in B76 and C76, just as an example. Thanks

Private Sub Accept_Click()

ActiveWorkbook.Sheets("Inventory").Activate

Range("A1").Select

Do

If IsEmpty(ActiveCell) = FalseThen

ActiveCell.Offset(1, 0).Select

End If

Loop Until IsEmpty(ActiveCell) = True

ActiveCell.Value = PObox.Value

ActiveCell.Offset(0, 1) = PCMKbox.Value

ActiveCell.Offset(0, 2) = Partbox.Value

ActiveCell.Offset(0, 3) = Descriptionbox.Value

ActiveCell.Offset(0, 4) = Materialbox.Value

ActiveCell.Offset(0, 5) = Drawingbox.Value

ActiveCell.Offset(0, 6) = Qtybox.Value

ActiveCell.Offset(0, 7) = HICbox.Value


End Sub

 

[jindon]

Hi
try (not tested)

Sub test()
Dim r As Range
Set r = Sheets("Inventory").Columns(1).Find("*", Cells(1, 1), , , , xlPrevious)
If r.Row = Rows.Count Then MsgBox "No place to output!": Exit Sub
r.Value = PObox.Value
With r.Offset(1)
    .Offset(0, 1) = PCMKbox.Value
    .Offset(0, 2) = Partbox.Value
    .Offset(0, 3) = Descriptionbox.Value
    .Offset(0, 4) = Materialbox.Value
    .Offset(0, 5) = Drawingbox.Value
    .Offset(0, 6) = Qtybox.Value
    .Offset(0, 7) = HICbox.Value
End With
End Sub

 

[tusharm]

Use Columns(1).Find(POBox.value) to see if the value already exists in the data set.

I am using this code to enter basic data into the next available empty cell in A1 from an input form. Can I change the code to find an entry that is in the A column and then enter data in the neighboring B,C etc columns, i.e. information is maybe in cell A76 and the information would be entered in B76 and C76, just as an example. Thanks
{snip}

 

[lucky12341]

I am not sure how to write the code to put the columns thing in...can you explain or give me an example to fit it into the code...thanks

 

[lucky12341]

Neither variations worked...any more ideas?