Editing an Entire Row

[FindingMyself]

So this is what I have right now,

Private Sub CommandButton1_Click()
Dim rngLastCell As Range
With ThisWorkbook.Worksheets("PM Checklist")
Set rngLastCell = .Range("A" & Rows.Count).End(xlUp)
rngLastCell.Offset(1, 0).Value = cboDay.Text & cboMonth.Text & cboYear.Text
rngLastCell.Offset(1, 1).Value = cboPMType.Text
rngLastCell.Offset(1, 2).Value = cboEquipment.Text
rngLastCell.Offset(1, 3).Value = txtSpecs.Text
rngLastCell.Offset(1, 4).Value = txtValue.Text & "|" & cboUnits.Text

End With

It basicly fills the next available row with the values obtained from my userform. I also created a button to move between the previous and next cells which functions around Selection.Offset(1, 0).Select

Is there a way that I can edit an entire row that the currently active cell is in? I'd like to be able to replace the values with the ones from the userform, sort of like an edit button.

 

[Tom Urtis]

Untested, but maybe this would suffice because your active cell is presumably in ThisWorkbook already, on the sheet you plan to edit:

Private Sub CommandButton1_Click()
Dim myRow as Long
myRow = activecell.Row
cells(myRow, 1).Value = cboDay.Text & cboMonth.Text & cboYear.Text
cells(myRow, 2).Value = cboPMType.Text
cells(myRow, 3).Value = cboEquipment.Text
cells(myRow, 4).Value = txtSpecs.Text
cells(myRow, 5).Value = txtValue.Text & "|" & cboUnits.Text
End Sub

You might also be able to get away with this:

Private Sub CommandButton1_Click()
Dim myRow As Long
myRow = ActiveCell.Row
Range(Cells(myRow, 1), Cells(myRow, 5)).Value = _
Array(cboDay.Text & cboMonth.Text & cboYear.Text, cboPMType.Text, cboEquipment.Text, txtSpecs.Text, txtValue.Text & "|" & cboUnits.Text)
End Sub

 

[FindingMyself]

Untested, but maybe this would suffice because your active cell is presumably in ThisWorkbook already, on the sheet you plan to edit:

Private Sub CommandButton1_Click()
Dim myRow as Long
myRow = activecell.Row
cells(myRow, 1).Value = cboDay.Text & cboMonth.Text & cboYear.Text
cells(myRow, 2).Value = cboPMType.Text
cells(myRow, 3).Value = cboEquipment.Text
cells(myRow, 4).Value = txtSpecs.Text
cells(myRow, 5).Value = txtValue.Text & "|" & cboUnits.Text
End Sub

You might also be able to get away with this:

Private Sub CommandButton1_Click()
Dim myRow As Long
myRow = ActiveCell.Row
Range(Cells(myRow, 1), Cells(myRow, 5)).Value = _
Array(cboDay.Text & cboMonth.Text & cboYear.Text, cboPMType.Text, cboEquipment.Text, txtSpecs.Text, txtValue.Text & "|" & cboUnits.Text)
End Sub

Hi Tom, it works perfectly, cheers!