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