• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

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

seckinb

Yeni Üye
Katılım
3 Haz 2019
Mesajlar
1
En iyi yanıt
0
Puanları
1
Yaş
34
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

VQ2odR.jpg



olması gereken
vaYk9D.jpg
 
Üst Alt