Hücre degerlerini 1 sayisina sabitlemek

[denfab76]

Merhaba,

Asagidaki kod ile bütün sayfalarda G hücresine bir rakam yazdigim zaman sayfa1de C19 hücresine yazmis oldugum bu rakamlarin degini topluyor. Bütün sayfalarda G hücrelerine hangi rakami yazarsam yazayim Sayfa1 de C19 hücresine sadece 1 eklemesi icin kod üzerinde nasil bir degisiklik olmasi gerekiyor. Tesekkürler.


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
With Sh
If .Name = "Sayfa1" Or Intersect(Target, .[G:G]) Is Nothing Or _
Not IsNumeric(Target.Value) Then Exit Sub
Application.EnableEvents = False
Sheets("Sayfa1").[C19] = Sheets("Sayfa1").[C19] + Target.Value
Application.EnableEvents = True
10: End With
End Sub

 

[Ömer]

Merhaba,

Sheets("Sayfa1").[C19] = Sheets("Sayfa1").[C19] + Target.Value

Bu satırda Target.Value yerine 1 yazarak deneyiniz.

 

[Seyit Tiken]

Ben olayı farklı anladım.

If [c19]>1 Then exit sub

Bu şekilde deneyiniz.

 

[denfab76]

Seyit Bey belirtmis oldugunuz kod u tam olarak nereye eklemem gerekiyor.

 

[Ömer]

#2 mesajdaki kod istediğinizi vermedi mi?

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    With Sh
        If .Name = "Sayfa1" Or Intersect(Target, .[G:G]) Is Nothing Or _
            Not IsNumeric(Target.Value) Then Exit Sub
        Application.EnableEvents = False
            Sheets("Sayfa1").[C19] = Sheets("Sayfa1").[C19] + 1
        Application.EnableEvents = True
10: End With
End Sub

 

[denfab76]

Ömer Bey 2. mesajdaki kod istedigimi verdi, ben sadece Seyit Bey in belirtmis oldugu kod u denemek istedim. Her ikinizede cok tesekkür ederim.