Adding an X to Column B if Column A is populated

[leigh123]

Hi, I am new to excel VBA. I am trying to create a VBA macro that will mark an X in Column B for all of the current rows. I am looking for it to count all of the current rows starting with "A5". I've attached a copy of the code that I have and a snip of the spreadsheet that I'm working.


Snip of Spreadsheet:

Sort		CLIN	Part Number
1		0001	80510
2		0001	23253
3		0002	25436

Current Code that I have:

Sub Check_All()

Sheets("Material Summary").Activate
Dim MyRange As Range
Dim i As Integer, j As Integer
Set MyRange = Selection
Range("B5").Select
For j = 1 To MyRange.Rows.Count
MyRange.Cells(j, 2) = "X"
Next j
End Sub


I am very new to VBA so any help is appreciated!

 

[Joe4]

Does this do what you want?

Sub Check_All()

    Dim lr As Long
    
    Sheets("Material Summary").Activate
    
'   Find last row in column A with data
    lr = Cells(Rows.Count, "A").End(xlUp).Row
    
'   Populate column B from row 5 to last row
    If lr >= 5 Then
        Range("B5:B" & lr).Value = "X"
    End If

End Sub

 

[DanteAmor]

Hi and welcome to MrExcel.

Try:

Sub Adding_an_X()
  With Range("B5:B" & Range("A" & Rows.Count).End(3).Row)
    .Formula = "=IF(A5<>"""",""X"","""")"
    .Value = .Value
  End With
End Sub