hücredeki değeri 2 ile çarpsın

[mehteroglu1]

sayın arkadaşlar beim şöyle bir sorum olacak
mesela c1 hücresine 2. kayıt yazdığım zaman a1 hücresine girilen değeri 2 ile çarpsın eğer c1 hücresine irat yazdığım zaman b1 hücresini 2 ile çarpsın ama c1 hücresi boş yada başka birşey yazdığımda a1 ve b1 hücrelerine girilen değer kalsın böyle bir makro varmı ayrıca bunları şifreli sayfada kilitsiz hücrelere uygulayacağım

 

[Ali]

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [C1]) Is Nothing Then Exit Sub
If Target = "2.kayıt" Then
Cells(1, 1) = Cells(1, 1) * 2
End If
If Target = "irat" Then
Cells(1, 2) = Cells(1, 2) * 2
End If
End Sub

 

[mehteroglu1]

teşekkürler

elinize sağlık teşekkür ederim