Solved: problem filling empty cells

[mehdoush]

hey guys

i'm using a table that contains 3 columns, Column B sometimes contains blank cells, i want a code that fills in blank cells in column B with "blank" string.

thnks in advance
regards

[mehdoush]

hey guys

i'm using a table that contains 3 columns, Column B sometimes contains blank cells, i want a code that fills in blank cells in column B with "blank" string.

thnks in advance
regards

[bryVA]

I am not very knowledgeable about this but you could try something like this:

Public Sub Add_Blank()
Application.ScreenUpdating = False
Range("A1").Select
Do
If ActiveCell.Offset(0, 1) = "" Then
ActiveCell.Offset(0, 1) = "Blank"
End If
ActiveCell.Offset(1, 0).Select
Loop Until ActiveCell = ""
Application.ScreenUpdating = True
End Sub

This assumes that Column A doesn't have blanks.

Hope this helps

[georgiboy]

Sub FillBlank()
Dim rCell As Range
Dim MyRange As Range
Dim EndRow As Long

EndRow = Range("B" & Rows.Count).End(xlUp).Row

Set MyRange = Range("B2:B" & EndRow)

For Each rCell In MyRange.Cells
If rCell.Value = "" Then
rCell.Value = "blank"
End If
Next rCell

End Sub

[mdmackillop]

Sub Blanks()
Dim Rw As Long, i As Long
Rw = Cells.Find("*", Range("A1"), , , xlPrevious).Row
For i = 1 To Rw
If Cells(i, 2) = "" Then Cells(i, 2) = "blank"
Next
End Sub

[mdmackillop]

Threads merged

[mehdoush]

thank you guys, you're great ;)