Sayıysa Çarp, Sayı Değilse Pas Geç

[baydeniro]

Merhaba Arkadaşlar

Aşağıdaki gibi bir makro kodu derledim ama tam beceremedim. Amacım şu;

B sütununa (Column 2) girilen veri sayı ise C sütununa x 2 yapsın, girilen veri metinse sadece bir sağa geçsin

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
If Target.Column = 2 > 0 Then

Target.Offset(0, 1) = Target.Offset(0, 0)*2
Target.Offset(0, 2).Select
Else
Target.Offset(0, 1).Select
End If
End If
End Sub

 

[EmrExcel16]

Merhaba If Target.Column = 2 > 0 Then yerine If IsNumeric(Target.value) Then seklinde denermisin.

 

[baydeniro]

EmrExcel16 üstadım satır oldu, çok teşekkür ederim, sağlıcakla kalın

 

[EmrExcel16]

EmrExcel16 üstadım satır oldu, çok teşekkür ederim, sağlıcakla kalın

Rica ederim .