boş olan hücrelere veri kaydı

[xxihsidxx]

herkese iyi çalışmalar
commandbutton ile bir sayfadaki "a1:e20" bölgesinde boş olan hücrelere - işareti ile doldurmak istiyorum.bunun kodu nasıldır acaba

 

[Ali]

Sub değiştir()
Range("A1:E20").Select
Selection.Replace What:="", Replacement:="-", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub

 

[xxihsidxx]

çok teşekkürler

 

[Ali]

- işaretlerinin ortalanması içinde aşağıdaki kodlar daha uygun olacaktır

Sub değiştir()
Range("A1:E20").Select
With Application.ReplaceFormat
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
Selection.Replace What:="", Replacement:="-", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=True
End Sub