sayı olarak algılama hatası

[Erhan Üstünel]

merhabalar, ben problemimi ekde belirttim,

kısaca makroyla hesaplanan yüzde değeri tablomda sayı olarak algılanmıyor sanırım, toplam aldıramıyorum..

yardımcı olabilecek olan varmı acaba

 

[Erhan Üstünel]

sanırım cevap yok

 

[Ferhat Pazarçevirdi]

Merhabalar

Ekteki dosyayı inceleyiniz.

Sayı olarak algılamama problemine karşılık, komutunuz aşağıdaki şekilde değiştirilmiştir.

Cells(say, 12).Value = Format((Cells(say, 11) * dblOran) / 100, "0.00") [COLOR="Red"][B]* 1[/B][/COLOR]

Ayrıca, Userform üzerinden hesaplama yapabilmeniz için, YuzdeHesapla koduna parametre ilavesi ile aşağıdaki şekilde revize edilmiştir.

Sub YuzdeHesapla(ByRef dblOran As Double)
    Dim say As Integer
    For say = 1 To Cells(65536, 11).End(3).Row + 1 ' HER AY LİSTENE GÖRE SATIR SAYISINI DÜZELT
        If IsNumeric(Cells(say, 11)) And Not Cells(say, 11).Value = "" Then
            Cells(say, 12).Value = Format((Cells(say, 11) * dblOran) / 100, "0.00") * 1 ' HER AY YÜZDE ORANINI DÜZELT
        End If
    Next
End Sub

Ayrıca, UserForm'daki butonun Click olayına aşağıdaki kod yazılmıştır.

Private Sub CommandButton1_Click()
    If IsNumeric(TextBox2) Then
        Call YuzdeHesapla(TextBox2)
    Else
        MsgBox "Girdiğiniz veri sayısal olmalı", vbCritical, "Uyarı"
        
        With TextBox2
            .SelStart = 0
            .SelLength = Len(.Text)
            .SetFocus
        End With
    End If
        
End Sub

Örnek dosyayı da inceleyiniz.

.

 

[Erhan Üstünel]

Hocam ne diyeyim bilmiyorum, süpersiniz..
sağolun varolun