• 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'da Boş Hücreye Sıfır Yazdırma

dadayaz

dadayaz

Yeni Üye
Katılım
20 Şub 2021
Mesajlar
5
En iyi yanıt
0
Puanları
1
Yaş
32
Konum
İstanbul
Ad Soyad
Yasin Yas
Office Vers.
2020
Merhabalar,

İş yerinde veri girişi için kullanılacak bir UserForm tasarlıyorum. Fire ve hat duruş sürelerini girdiğim textboxlarda bazılarını boş bırakma durumu olabiliyor. Boş bırakılması gereken durumlarda hücreye 0 (sıfır) yazdırabilir miyim?

Desteğiniz için şimdiden teşekkür ederim.

Örneğin; Elektriksel arıza olmadıysa ilgili yere sıfır yazması gerekiyor.

Screenshot_3.png
Kod: 
Dim Sonsatır As Variant


Private Sub BOLUM_Change()

If bolum.Value = "Kişisel Bakım" Then

hatadi.RowSource = "Data!pchatlar"

Else

hatadi.RowSource = "Data!muhatlar"

End If


End Sub

Private Sub kaydet_Click()



Sonsatır = WorksheetFunction.CountA(Worksheets("AnaVeri").Range("A:A")) + 1

        Worksheets("AnaVeri").Cells(Sonsatır, 1) = 1
        Worksheets("AnaVeri").Cells(Sonsatır, 2) = bolum
        Worksheets("AnaVeri").Cells(Sonsatır, 3) = hatadi
        Worksheets("AnaVeri").Cells(Sonsatır, 4) = CDbl(sapkodu)
        Worksheets("AnaVeri").Cells(Sonsatır, 5) = CDbl(planlanan)
        Worksheets("AnaVeri").Cells(Sonsatır, 6) = CDbl(gerceklesen)
        Worksheets("AnaVeri").Cells(Sonsatır, 7) = CDbl(personelsayisi)
        Worksheets("AnaVeri").Cells(Sonsatır, 8) = CDbl(calismasure)
        Worksheets("AnaVeri").Cells(Sonsatır, 9) = CDbl(elektrik)
        Worksheets("AnaVeri").Cells(Sonsatır, 10) = CDbl(ayar)
        Worksheets("AnaVeri").Cells(Sonsatır, 11) = CDbl(urungecis)
        Worksheets("AnaVeri").Cells(Sonsatır, 12) = CDbl(diger)
        Worksheets("AnaVeri").Cells(Sonsatır, 13) = CDbl(kapak)
        Worksheets("AnaVeri").Cells(Sonsatır, 14) = CDbl(valf)
        Worksheets("AnaVeri").Cells(Sonsatır, 15) = CDbl(etiket)
        Worksheets("AnaVeri").Cells(Sonsatır, 16) = CDbl(kutu)
        Worksheets("AnaVeri").Cells(Sonsatır, 17) = CDbl(yuzuk)
        Worksheets("AnaVeri").Cells(Sonsatır, 18) = CDbl(koli)
        Worksheets("AnaVeri").Cells(Sonsatır, 19) = CDbl(tup)
        Worksheets("AnaVeri").Cells(Sonsatır, 20) = CDbl(sise)
        
        

End Sub
 
muygun

muygun

Uzman
Katılım
19 Ağu 2018
Mesajlar
498
En iyi yanıt
28
Puanları
43
Konum
Excel 2003
Ad Soyad
Mustafa UYGUN
Office Vers.
Office 2003
Merhaba;
Sonsatır = WorksheetFunction.CountA(Worksheets("AnaVeri").Range("A:A")) + 1
satırından sonra;
For i = 1 To 20
Worksheets("AnaVeri").Cells(Sonsatır, i) = 0
Next i
Worksheets("AnaVeri").Cells(Sonsatır, 1) = 1
if bolum<>"" then Worksheets("AnaVeri").Cells(Sonsatır, 2) = bolum
if hatadi<>"" then Worksheets("AnaVeri").Cells(Sonsatır, 2) = hatadi
...
...
...

Kodlarını düzenleyerek deneyin.

İyi çalışmalar.
 
dadayaz

dadayaz

Yeni Üye
Katılım
20 Şub 2021
Mesajlar
5
En iyi yanıt
0
Puanları
1
Yaş
32
Konum
İstanbul
Ad Soyad
Yasin Yas
Office Vers.
2020
muygun' Alıntı:
Merhaba;
Sonsatır = WorksheetFunction.CountA(Worksheets("AnaVeri").Range("A:A")) + 1
satırından sonra;
For i = 1 To 20
Worksheets("AnaVeri").Cells(Sonsatır, i) = 0
Next i
Worksheets("AnaVeri").Cells(Sonsatır, 1) = 1
if bolum<>"" then Worksheets("AnaVeri").Cells(Sonsatır, 2) = bolum
if hatadi<>"" then Worksheets("AnaVeri").Cells(Sonsatır, 2) = hatadi
...
...
...

Kodlarını düzenleyerek deneyin.

İyi çalışmalar.
Genişletmek için tıkla ...

Hocam öncelikle teşekkür ederim. Ancak kodları aşağıdaki gibi düzenleyince hata alıyorum. Ayrıca "bolum" ve "hatadi" comboboxları işlevsizleşti.

Kod: 
Dim Sonsatır As Variant


Private Sub BOLUM_Change()

If bolum.Value = "Kişisel Bakım" Then

hatadi.RowSource = "Data!pchatlar"

Else

hatadi.RowSource = "Data!muhatlar"

End If


End Sub

Private Sub kaydet_Click()

Sonsatır = WorksheetFunction.CountA(Worksheets("AnaVeri").Range("A:A")) + 1

For i = 1 To 20
Worksheets("AnaVeri").Cells(Sonsatır, i) = 0
Next i

        Worksheets("AnaVeri").Cells(Sonsatır, 1) = 1
        Worksheets("AnaVeri").Cells(Sonsatır, 2) = tarih
        Worksheets("AnaVeri").Cells(Sonsatır, 3) = bolum
        Worksheets("AnaVeri").Cells(Sonsatır, 4) = hatadi
        If sapkodu <> "" Then Worksheets("AnaVeri").Cells(Sonsatır, 5) = CDbl(sapkodu)
        If planlanan <> "" Then Worksheets("AnaVeri").Cells(Sonsatır, 6) = CDbl(planlanan)
        If gerceklesen <> "" Then Worksheets("AnaVeri").Cells(Sonsatır, 7) = CDbl(gerceklesen)
        If personelsayisi <> "" Then Worksheets("AnaVeri").Cells(Sonsatır, 8) = CDbl(personelsayisi)
        If calismasure <> "" Then Worksheets("AnaVeri").Cells(Sonsatır, 9) = CDbl(calismasure)
        If eletrik <> "" Then Worksheets("AnaVeri").Cells(Sonsatır, 10) = CDbl(elektrik)
        If ayar <> "" Then Worksheets("AnaVeri").Cells(Sonsatır, 11) = CDbl(ayar)
        If urungecis <> "" Then Worksheets("AnaVeri").Cells(Sonsatır, 12) = CDbl(urungecis)
        If diger <> "" Then Worksheets("AnaVeri").Cells(Sonsatır, 13) = CDbl(diger)
        If kapak <> "" Then Worksheets("AnaVeri").Cells(Sonsatır, 14) = CDbl(kapak)
        If valf <> "" Then Worksheets("AnaVeri").Cells(Sonsatır, 15) = CDbl(valf)
        If etiket <> "" Then Worksheets("AnaVeri").Cells(Sonsatır, 16) = CDbl(etiket)
        If kutu <> "" Then Worksheets("AnaVeri").Cells(Sonsatır, 17) = CDbl(kutu)
        If yuzuk <> "" Then Worksheets("AnaVeri").Cells(Sonsatır, 18) = CDbl(yuzuk)
        If koli <> "" Then Worksheets("AnaVeri").Cells(Sonsatır, 19) = CDbl(koli)
        If tup <> "" Then Worksheets("AnaVeri").Cells(Sonsatır, 20) = CDbl(tup)
        If sise <> "" Then Worksheets("AnaVeri").Cells(Sonsatır, 21) = CDbl(sise)
      
      
      

End Sub


Private Sub tarih_Change()
tarih = Format(Date, "dd"".""mm"".""yyyy")
End Sub
 
muygun

muygun

Uzman
Katılım
19 Ağu 2018
Mesajlar
498
En iyi yanıt
28
Puanları
43
Konum
Excel 2003
Ad Soyad
Mustafa UYGUN
Office Vers.
Office 2003
Dosyanızı ekleyin.
(Dosyanızı görmeden yorum yapamam)
 
dadayaz

dadayaz

Yeni Üye
Katılım
20 Şub 2021
Mesajlar
5
En iyi yanıt
0
Puanları
1
Yaş
32
Konum
İstanbul
Ad Soyad
Yasin Yas
Office Vers.
2020
Problem tamamen çözüldü. Çok teşekkür ederim desteğiniz için.
 
muygun

muygun

Uzman
Katılım
19 Ağu 2018
Mesajlar
498
En iyi yanıt
28
Puanları
43
Konum
Excel 2003
Ad Soyad
Mustafa UYGUN
Office Vers.
Office 2003
Ben dosyanıza bakma fırsatı buluncaya kadar sorunu çözmüşsünüz.
İyi çalışmalar.
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst Alt