type mismatch hatası alıyorum yardımcı olabilir mi

[busradag]

Excel Versiyonu

Excel 2016

Excel Sürümü

64 Bit

Excel Dili

Türkçe

Private Sub UserForm_Initialize()
TeklifSayisiGoster
TeklifListele
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode <> 1 Then Cancel = 1
End Sub
Sub TeklifSayisiGoster()
stBar.Panels(2).Text = lstTeklifler.ListItems.Count
End Sub
Sub TeklifListele()
Dim y As Long
Dim teklif As ListItems
lstTeklifler.ListItems.Clear
For y = 2 To 1000000
If Sheets("Teklif").Range("A" & y).Value = "" Then Exit For
Set teklif = lstTeklifler.ListItems.Add(Text:=Sheets("Teklif").Range("A" & y).Value)
teklif.SubItems(1) = Sheets("Teklif").Range("B" & y).Value
teklif.SubItems(2) = Sheets("Teklif").Range("C" & y).Value
teklif.SubItems(3) = Sheets("Teklif").Range("D" & y).Value
teklif.SubItems(4) = Sheets("Teklif").Range("E" & y).Value
teklif.SubItems(5) = Sheets("Teklif").Range("F" & y).Value
teklif.SubItems(6) = Sheets("Teklif").Range("G" & y).Value
teklif.SubItems(7) = Sheets("Teklif").Range("H" & y).Value
teklif.SubItems(8) = Sheets("Teklif").Range("I" & y).Value
teklif.SubItems(9) = Sheets("Teklif").Range("J" & y).Value
teklif.SubItems(10) = Sheets("Teklif").Range("K" & y).Value
teklif.SubItems(11) = Sheets("Teklif").Range("L" & y).Value
Next
TeklifSayisiGoster
End Sub

Teklif listesi açılmıyor ve intialize kısmında type mismatch hatası alıyorum yardımcı olabilir misiniz

 

Son satıra kadar Borders kodu yazma

Ado ile Listboxta Filtreleme yapma

[Ömer BARAN]

@busradag
İlgili userformda, kodda adı belirtilen nesnelerin mevcut olduğundan emin misiniz?
Sorularınızı örnek belge üzerinden sorarsanız daha hızlı ve net çözüme ulaşmanız kolaylaşır.

 

[busradag]

@busradag
İlgili userformda, kodda adı belirtilen nesnelerin mevcut olduğundan emin misiniz?
Sorularınızı örnek belge üzerinden sorarsanız daha hızlı ve net çözüme ulaşmanız kolaylaşır.

cevap için teşekkür ederim. vip olmadığım için dosya yükleyemiyorum. Kod bu şekilde. intialize kısmında zaten nesne tanımlamış olmuyor muyum? nasıl nesneleri ekleyeceğim ?

Görüntülemek için giriş yapmanız gerekmektedir.
(31 satır)

 

[Ömer BARAN]

Diyelim userform üzerinde textbox yok ve siz userform_initalize kodunda TextBox1.Value = "123" yazdınız.
Hata almanız kaçınılmaz, zira userform üzerinde böyle bir nesne yok.

Hatanın başka nedenleri de olabilir, örnek belge görmek gerekir.

 

[busradag]

Diyelim userform üzerinde textbox yok ve siz userform_initalize kodunda TextBox1.Value = "123" yazdınız.
Hata almanız kaçınılmaz, zira userform üzerinde böyle bir nesne yok.

Hatanın başka nedenleri de olabilir, örnek belge görmek gerekir.

mail üzerinden göndersem bakabilir misiniz?

 

[Ömer BARAN]

Özel iletişimle sorun hakkında fikir verilecekse "forum neden var" sorusunun cevabı ne olacak!
"Benzer ihtiyacı/sorunu olan diğer üyelerimizin hakları ne olacak" değil mi?

 

[busradag]

Özel iletişimle sorun hakkında fikir verilecekse "forum neden var" sorusunun cevabı ne olacak!
"Benzer ihtiyacı/sorunu olan diğer üyelerimizin hakları ne olacak" değil mi?

haklısınız ben dosyayı gösterebilmek için demiştim . sipariş formu Bu şekilde eklesem olur mu ?

 

[ExcelDepo]

Merhaba,

Öncelikle aramıza hoş geldiniz.
Yardım alma çabanız, ihtiyacınız kesinlikle tarafımızca anlaşılır bir husustur.
Lakin bu süreçte bizlerinde bazı beklentileri mevcuttur.
O yüzden kayıt olurken kabul ettiğiniz Kullanım ve Şartlar bölümümüze bir göz atmanızı rica ederim.

İyi çalışmalar

 

[Ömer BARAN]

@busradag

KAYIT OLMA ekranında bu konuda bilgi zaten var.
Renk ve yazı boyutuna rağmen dikkatten kaçmış olabilir diye ekran görüntüsünü paylaşayım dedim.