1004 Run time hatası

UserForm ve üzerine eklenecek nesneler ile ilgili bilgileri bu alanda bulabilirsiniz.

1004 Run time hatası

İleti#1)  kesiq » 26 Mar 2021 07:49

Merhabalar aşağıdaki kodu çalıştırıp veri girip butona bastığımda run-time error ‘1004’: Application-defined or object-defined error hatasını alıyorum. Debug tıkladığımda ise sonsatir=Worksheetfunction kısmında sorunu gösteriyor. Konuyla ilgili olarak yardımcı olabilir misiniz?


Kod: Tümünü seç
Private Sub btnkaydet_Click()
Dim sonsatir As Variant
If isemri.Value = "" Or tarih.Value = "" Or cbMusteri.ListIndex < 0 Or cbproje.ListIndex < 0 Or cbdurum.ListIndex < 0 Then
MsgBox "Bilgilerin Hepsini Doldurunuz"
Exit Sub
End If

    If cbMusteri.Value = "HBT" Then
   
   sonsatir = WorksheetFunction.CountA(Worksheets("HBT").Range("B8:B")) + 1
   MsgBox sonsatir
    Worksheets("HBT").Cells(sonsatir, 2) = isemri.Value
    Worksheets("HBT").Cells(sonsatir, 9) = tarih.Value
    Worksheets("HBT").Cells(sonsatir, 11) = cbproje.Value
    Worksheets("HBT").Cells(sonsatir, 12) = cbdurum.Value
   
    End If
   

End Sub
Kullanıcı avatarı
kesiq
Yeni Başlamış
 
Kayıt: 21 Eyl 2020 09:06
Meslek: Elektrik Elektronik Mühendisi
Yaş: 23
İleti: 19
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara

Cevap: 1004 Run time hatası

İleti#2)  okutkan » 26 Mar 2021 10:59

Aşağıdaki kodu modüle ekleyip çalıştırıp hata verecekmi bir bakın.
A1 hücresine sonucu yazdıracak.

Kod: Tümünü seç
Sub calistir ()
Son =Worksheets("HBT").cells(rows.count, "b").end(xlup).row
Set Sf = Worksheets("HBT")
Set aranan = Range("B8:B" & son)

Sf.range("a1") = WorksheetFunction.CountA(Sf.aranan)
End sub
Excel VBA konusunda profesyonel değilim. Excel VBA öğrenmeye çalışıyorum.
Sorulara cevap vermek için araştırıyorum; araştırdıkça daha fazlasını öğreniyorum.
Kullanıcı avatarı
okutkan
Site Dostu
 
Kayıt: 27 May 2017 02:45
Meslek: pol. mem.
Yaş: 29
İleti: 945
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENİZLİ

Cevap: Cevap: 1004 Run time hatası

İleti#3)  kesiq » 26 Mar 2021 14:27

okutkan yazdı:Aşağıdaki kodu modüle ekleyip çalıştırıp hata verecekmi bir bakın.
A1 hücresine sonucu yazdıracak.

Kod: Tümünü seç
Sub calistir ()
Son =Worksheets("HBT").cells(rows.count, "b").end(xlup).row
Set Sf = Worksheets("HBT")
Set aranan = Range("B8:B" & son)

Sf.range("a1") = WorksheetFunction.CountA(Sf.aranan)
End sub


Merhabalar çok teşekkür ederim çözüldü. Bir sorum daha olucak. Sayfalar arasında isemri textboxsına girilen bir değerin HBT,SST,REHİS,MGEO sayfalarının B sutununda aratılması eğer aynı iş emri mevcutsa aynı iş emri mevcut uyarısı vermesini istiyorum. Forumdaki arama ile ilgili olan her şeye baktım fakat kendi koduma uyarlayamadım. Yardımcı olabilir misiniz?
Kullanıcı avatarı
kesiq
Yeni Başlamış
 
Kayıt: 21 Eyl 2020 09:06
Meslek: Elektrik Elektronik Mühendisi
Yaş: 23
İleti: 19
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara

Cevap: 1004 Run time hatası

İleti#4)  okutkan » 26 Mar 2021 16:50

Hangi sayfadaki b sütununda HBT,SST,REHİS,MGEO isimlerinin olup olmadığını sorgulayacak ?
Excel VBA konusunda profesyonel değilim. Excel VBA öğrenmeye çalışıyorum.
Sorulara cevap vermek için araştırıyorum; araştırdıkça daha fazlasını öğreniyorum.
Kullanıcı avatarı
okutkan
Site Dostu
 
Kayıt: 27 May 2017 02:45
Meslek: pol. mem.
Yaş: 29
İleti: 945
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENİZLİ

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: 1004 Run time hatası

İleti#5)  okutkan » 26 Mar 2021 16:52

Sorunuzu sonradan anladım. Örnek dosya paylaşırsanız yardımcı olayım.
Excel VBA konusunda profesyonel değilim. Excel VBA öğrenmeye çalışıyorum.
Sorulara cevap vermek için araştırıyorum; araştırdıkça daha fazlasını öğreniyorum.
Kullanıcı avatarı
okutkan
Site Dostu
 
Kayıt: 27 May 2017 02:45
Meslek: pol. mem.
Yaş: 29
İleti: 945
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENİZLİ

Cevap: Cevap: 1004 Run time hatası

İleti#6)  kesiq » 29 Mar 2021 15:40

okutkan yazdı:Sorunuzu sonradan anladım. Örnek dosya paylaşırsanız yardımcı olayım.


Merhabalar sorunu çözdüm fakat bir noktada daha takıldım. Elimde ListBox1 var içinde 12 değer var. Birden fazla seçim için Multi özelliğini açtım. Fakat mesela listboxtan 3 veri seçilecek bu veriler Sheet1 sayfasındaki A2 hücresine virgülle yazılacak. Kısaca seçilen 2 veya daha fazla listboxta seçilen değer aynı hücreye aralarında virgülle nasıl aktartabilirim?
Kullanıcı avatarı
kesiq
Yeni Başlamış
 
Kayıt: 21 Eyl 2020 09:06
Meslek: Elektrik Elektronik Mühendisi
Yaş: 23
İleti: 19
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: 1004 Run time hatası

İleti#7)  okutkan » 29 Mar 2021 21:59

Kod: Tümünü seç
Private Sub ListBox1_Change()
    Sheets("Sayfa1").Range("a1") = ""

For i = 0 To ListBox1.ListCount - 1
deneme = ListBox1.List(i, 0)

  If ListBox1.Selected(i) Then
    Sheets("Sayfa1").Range("a1") = Sheets("Sayfa1").Range("a1").Text & ListBox1.List(i, 0) & ","
  End If
Next
End Sub
Excel VBA konusunda profesyonel değilim. Excel VBA öğrenmeye çalışıyorum.
Sorulara cevap vermek için araştırıyorum; araştırdıkça daha fazlasını öğreniyorum.
Kullanıcı avatarı
okutkan
Site Dostu
 
Kayıt: 27 May 2017 02:45
Meslek: pol. mem.
Yaş: 29
İleti: 945
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENİZLİ


Forum UserForm ve Diğer Nesneler

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe