Como pesquisar e editar apenas células de 'tipo de data' em uma planilha do excel - excel, vba, excel-vba

eu tenho esse código

Sub fill()
Dim rg As Range
Set rg = Range("a1")
Set rg = Range(rg, Cells(ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1, rg.Column))
On Error Resume Next
Set rg = rg.SpecialCells(xlCellTypeBlanks)
On Error GoTo 0
If Not rg Is Nothing Then
rg.Value = "1/1/2020"
End If
End Sub

mas não funciona como eu queria.

Eu preciso pesquisar em um intervalo de planilha do excel inteiro (a1: bj1223) e verificar todas as células de "tipo de data". Quando encontra uma célula que é "tipo de data" e está vazia, eu preciso adicionar o valor "1/1/2020" nesta célula.

obrigado

Respostas:

É isso que você está tentando? Isso primeiro procurará células em branco e, em seguida, verificará se cada célula desse intervalo é de um formato específico "dd/mm/yyyy" Altere isso conforme aplicável.

Sub Sample()
Dim rng As Range, aCell As Range
Dim blnkCells As Range

Set rng = ThisWorkbook.Sheets("Sheet1").Range("A1:BJ1223")

On Error Resume Next
Set blnkCells = rng.SpecialCells(xlCellTypeBlanks)
On Error GoTo 0

If Not blnkCells Is Nothing Then
For Each aCell In blnkCells
If aCell.NumberFormat = "dd/mm/yyyy" Then aCell.Value = "1/1/2020"
Next aCell
End If
End Sub