A2 ile AA100 arasındaki Hücrelerdeki verileri + işaretinden sonraki sayı ve harfleri Butona tek tıklamayla silme bu konuyla ilgili yardımcı olabilir misiniz?
Sub kod()
With Range("A2:AA100")
dz = .Value
For a = LBound(dz) To UBound(dz)
For b = LBound(dz, 2) To UBound(dz, 2)
If dz(a, b) <> "" Then dz(a, b) = Split(dz(a, b), "+")(0)
Next
Next
.Value = dz
End With
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.