Макрос когда пустая чейка

[Vitalii197777]

Уважаемые подскажите пожалуйста, как прописать макрос на кнопку если в диапазоне E8:AI11 имеются пустые ячейки(не 0) а именно без значения.Чтоб в этих пустых ячейках прописалась буква В. Спасибо за ранее за ответ!

[Elixi]

Сообщение от Vitalii197777

Чтоб в этих пустых ячейках прописалась буква В

например...

Sub Esli_Pusto_B()
    Dim rng As Range, j As Range
    Set rng = Range("E8:AI11")
    For Each j In rng
        If j = "" Then
            j = "B"
        End If
    Next j
End Sub

[Aleksandr H.]

Sub FindAllBlankCells()
'PURPOSE:Add Zero to All Blank Cells within Selection

Dim BlankCells As Range


'Optimize Code
  Application.ScreenUpdating = False

'Store all blank cells in variable
  On Error Resume Next
  Set BlankCells = Range("E8:AI11").SpecialCells(xlCellTypeBlanks)
  On Error GoTo 0

'Change the value of all blank cells
  If Not BlankCells Is Nothing Then
    
    'Change All Blank Cell Values
      BlankCells.Value = "B"
  
  End If

End Sub