Hücre değerini butonla değiştirme

[hkaragoz]

Arkadaşlar yapmak istediğim sayfa üzerinde belirlediğim hücrelerde örneğin "S" harfi varsa butona basdığımda aynı hücrenin değeri "100" olarak değişsin.

 

[Orion1]

ctrl+h tuş kombizanosyonu ile yapabilirsiniz.
Önce istediğiniz alanı seçmeyi unutmayın.

 

[hkaragoz]

Dogru bu sekilde olur fakat benim istedigim birden fazla degiskeni ayni anda bi butonla degistirmek

 

[Orion1]

Dogru bu sekilde olur fakat benim istedigim birden fazla degiskeni ayni anda bi butonla degistirmek

Dosyanız ektedir.

Private Sub CommandButton1_Click()
Dim aralik As String, hcr As Range
If RefEdit1.Value = "" Then Exit Sub
aralik = Replace(RefEdit1.Value, "Sayfa1!", "")
For Each hcr In Range(aralik)
    If UCase(hcr.Value) = "S" Then hcr.Value = 100
Next
MsgBox "İşlem tamamlanmıştır." & vbLf & "evrengizlen@hotmail.com", _
    vbOKOnly + vbInformation, Application.UserName
   
End Sub