Aynı hücrede veri girip işlem yaptırma

[sirkülasyon]

A1 hücresine girdiğim değer 335.944,00 TL den büyükse onbindebeş ile çarpacak.
A1 hücresine girdiğim değer 335.944,00 TL den küçükse sıfır ile çarpacak.
ama sonucu da A1 hücresine yazacak.

Böyle birşey mümkünse makro konusunda yardımcı olabilir misiniz?
Teşekkür eder saygılarımı sunarım.

 

[Ömer BARAN]

Merhaba.
Aşağıdaki kodu sayfanın kod bölümüne uygulayıp denermisiniz.
A1 hücresine veri girişini ENTER veya AŞAĞI OK tuşu ile tamamlayınız.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> [A2].Address Then Exit Sub
If Target.Address = [A2].Address And Cells(1, 1) > 335944 Then
Cells(1, 1) = Cells(1, 1) * 0.0005
Else
Cells(1, 1) = 0
End If
End Sub

 

[Ömer BARAN]

SelectionChange olayındaki iki kodun birleştirilmiş hali olarak aşağıdakini kullanabilirsiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A2,F2:F25,F28:F37")) Is Nothing Then Exit Sub
If ActiveCell = "" Then
    a = Cells(1, 1).Value
    ActiveCell = "Var"
    Cells(2, 1) = ""
 Cells(1, 1) = a
ElseIf ActiveCell = "Var" Then
    a = Cells(1, 1).Value
    ActiveCell = "Yok"
    Cells(2, 1) = ""
 Cells(1, 1) = a
ElseIf ActiveCell = "Yok" Then
    a = Cells(1, 1).Value
    ActiveCell = ""
    Cells(2, 1) = ""
 Cells(1, 1) = a
End If
    
    If ActiveCell.Address = "$A$2" And Cells(1, 1) < 335944 Then
            Cells(1, 1) = 0
    End If
    If ActiveCell.Address = "$A$2" And Cells(1, 1) > 335944 Then
            Cells(1, 1) = Cells(1, 1) * 0.0005
    End If
End Sub