Cell Formatting in Userform Data Entry Loops

Hello,

Newbie here. I have a quick question about formatting cells after a value has been applied to a cell.

Here is a sample code of what my userform looks like:

'Requires data to be entered
If Me.cboSubmittedBy.Value = "" Or Me.txtDateSubmitted.Value = "" Or Me.txtReqNo.Value = "" Or Me.Arow1.Value = "" Then
    MsgBox "All Fields Must Be Completed"


'Copy data to table
Else
Set iRow = ActiveWorkbook.Worksheets("ReqLog").Cells(Rows.Count, 5).End(xlUp).Offset(1, 0)
        If Me.Arow1.Value > "" Then
        For X = 1 To 6
        iRow = Me.Controls("Arow" & X).Value
        Set iRow = iRow.Offset(0, 1)
        Next
        End If
        SetEntry 'A sub that adds date and time on same row. 
Set iRow = ActiveWorkbook.Worksheets("ReqLog").Cells(Rows.Count, 5).End(xlUp).Offset(1, 0)
        If Me.Brow1.Value > "" Then
        For X = 1 To 6
        iRow = Me.Controls("Brow" & X).Value
        Set iRow = iRow.Offset(0, 1)
        Next
        End If
        SetEntry 'A sub that adds date and time on same row.




.......etc

After each value is inserted to a cell, I need the text to be indent twice, make the cell row height larger, format the text a certain font and color, and other particular formatting.

I'm not sure how I can do this because there is a loop and the books I have don't cover this.

Any help is appreciated, thanks!

Re: Cell Formatting in Userform Data Entry Loops

Quote from pike;769903

Hi ExcelVBALearner,
Welcome to the forum
with out the workbook try..

Code

If Me.cboSubmittedBy.Value = "" Or Me.txtDateSubmitted.Value = "" Or Me.txtReqNo.Value = "" Or Me.Arow1.Value = "" Then
        MsgBox "All Fields Must Be Completed"


        'Copy data to table
    Else
    With ActiveWorkbook.Worksheets("ReqLog")
        irow = .Cells(Rows.Count, 5).End(xlUp).Offset(1, 0)
        If Me.Arow1.Value > "" Then
            For X = 1 To 6
               Rows(irow & ":" & irow).RowHeight = 8.25
                irow = Me.Controls("Arow" & X).Value
              Set irow = irow.Offset(0, 1)
                With irow.Font
                    .Name = "Arial"
                    .Size = 11
                    .Color = -16776961
                    .Parent.InsertIndent 2
                End With
             Set irow = Nothing
            Next
        End If
        End With

Display More

irow = .Cells(Rows.Count, 5).End(xlUp).Offset(1, 0)

Thanks for help! I tried the code, but this line come back with an Run-time error '91': error. Object variable or With block variable not set.

Re: Cell Formatting in Userform Data Entry Loops

Quote from sktneer;769930

Should be this...

irow = .Cells(Rows.Count, 5).End(xlUp).Offset(1, 0).Row

Thanks, but still no luck.