Aktif hücre oran

[mesudiye_052]

Selamlar

İnputbox' a default olarak gelen active hücre sayı ise %10'ü hesaplıyor
yanlız aktif hücre metin ise hata veriyor
Metin lerde hata vermemesi ve defaul olarak metin ibaresini nasıl yazarız..

Sub deneme()
    InputBox prompt:=IIf(IsNumeric(ActiveCell) = True, "Sayı", "Metin"), _
    Title:="Oran hesaplama", Default:= _
    IIf(IsNumeric(ActiveCell) = True, ActiveCell * 10 / 100, "Metin olmaz")
End Sub

Saygılar;

 

[Ömer]

Merhaba,

Bu şekilde deneyiniz.

Sub deneme()
Dim sor As String
 
a = IIf(IsNumeric(ActiveCell) = True, "Sayı", "Metin")
b = "Oran hesaplama"
 
If IsNumeric(ActiveCell) = True Then
    c = ActiveCell * 10 / 100
Else
    c = "Metin olmaz"
End If
 
sor = InputBox(a, b, c)
 
End Sub

.

 

[mesudiye_052]

Selamlar;

Sayın Ömer

çok teşekkür ederim

 

[Ömer]

Rica ederim.

Selamlar.