Yardım Userform ile girilen formül otomatik çalışmıyor

seckinb

Yeni Üye
Katılım
3 Haz 2019
Mesajlar
1
Puanları
1
Yaş
29
Konum
istanbul
Ad Soyad
seckin bilgic
Merhaba
0 olarak girilen veriler grafikte görünmesin diye =yoksay() formülünü kullanmak istedim.
değerleri userform aracılığı ile hücrelere giriyorum.

formül otomatik olarak devreye girmiyor AD? olarak kalıyor. nasıl otomatik aktifleştiririm?

Kod:
Private Sub submit1_Click()
Dim ssheet1 As Worksheet
Set ssheet1 = ThisWorkbook.Sheets("Kanlar")

nr = ssheet1.Cells(Rows.count, 1).End(xlUp).Row + 1

ssheet1.Cells(nr, 1) = CDate(Me.DTpick1)
ssheet1.Cells(nr, 2) = CDec(Me.tbWBC)
ssheet1.Cells(nr, 3) = CDec(Me.tbHB)
ssheet1.Cells(nr, 4) = CDec(Me.tbPLT)
ssheet1.Cells(nr, 5) = CDec(Me.tbUREA)
ssheet1.Cells(nr, 6) = CDec(Me.tbKREA)
ssheet1.Cells(nr, 7) = CDec(Me.tbTBIL)
ssheet1.Cells(nr, 8) = CDec(Me.tbDBIL)
ssheet1.Cells(nr, 9) = CDec(Me.tbINR)
ssheet1.Cells(nr, 10) = CDec(Me.tbKALS)
ssheet1.Cells(nr, 11) = CDec(Me.tbALB)
ssheet1.Cells(nr, 12) = CDec(Me.tbNSE)
ssheet1.Cells(nr, 13) = CDec(Me.tbKROGA)
ssheet1.Cells(nr, 14) = CDec(Me.tbCEA)

For nInputRow = 1 To 14
    If ssheet1.Cells(nr, nInputRow) = 0 Then
        ssheet1.Cells(nr, nInputRow) = "=yoksay()"
    End If
Next nInputRow

Application.ScreenUpdating = True
Worksheets("Kanlar").Select

End Sub



olması gereken
 
Üst Alt