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
Sub değiştir()
Range("A1:E20").Select
Selection.Replace What:="", Replacement:="-", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
- 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
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.