Replace each blank to a 0 in multiple sheets..

[omairhe]

Peace all,

In worksheets that has name something like "*simple*" , not exact match neither case sensitive.

In Column "F", replace each blank to a = 0 for until last data cell in column A.

Anyone?

 

[njimack]

Untested...

Sub Replace_0()
Dim ws As Worksheet
Dim Last_Row As Long
Application.ScreenUpdating = False
For Each ws In ThisWorkbook.Worksheets
    With ws
        If .Name Like "*simple*" Then
            Last_Row = .Range("A" & Rows.Count).End(xlUp).Row
            Range(.Cells(1, 6), .Cells(Last_Row, 6)).SpecialCells(xlCellTypeBlanks) = 0
        End If
    End With
Next ws
Application.ScreenUpdating = True
End Sub

 

[kevatarvind]

Sub Test()
Application.ScreenUpdating = False
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
    If ws.Name Like "*simple*" Then
        Range("A1").Select
        Do Until ActiveCell.Value = ""
        If ActiveCell.Offset(0, 5).Value = "" Then ActiveCell.Offset(0, 5).Value = 0
        ActiveCell.Offset(1, 0).Select
        Loop
    End If
Next ws
Application.ScreenUpdating = True
End Sub