type mismatch hatası alıyorum yardım eder misiniz

[busradag]

Private Sub btnEkle_Click()
frmTeklif.show
End Sub
Private Sub btnKapat_Click()
Unload Me
End Sub
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 çalışmıyor ve intialize kısmında type mismatch hatası alıyorum. Yardımcı olabilir misiniz?

 

[Muzaffer Ali]

Merhaba.
Hata aldığınız initailize kodlarını eklememişsiniz.
Aslında dosyanızı eklerseniz daha hızlı ve doğru yanıt alırsınız.
Dosyanızda özel bilgiler varsa bir kopyasını alıp özel bilgileri silerek dosya.tc gibi bir paylaşım sitesine ekleyebilirsiniz.

 

[busradag]

Merhaba.
Hata aldığınız initailize kodlarını eklememişsiniz.
Aslında dosyanızı eklerseniz daha hızlı ve doğru yanıt alırsınız.
Dosyanızda özel bilgiler varsa bir kopyasını alıp özel bilgileri silerek dosya.tc gibi bir paylaşım sitesine ekleyebilirsiniz.

Bu şekilde ekledim umarım olmuştur. Yardımcı olabilirseniz çok sevinirim. 2 gündür bu hata yüzünden ilerleyemedim
sipariş formu

 

[Muzaffer Ali]

Sub TeklifListesi()

Kodlarında bulunan teklif değişkenin tipini Listitems yapmışsınız. Değişken tipi Listitem olmalı.

Sub TeklifListesi()
Dim teklif As ListItems

Doğrusu

Sub TeklifListesi()
Dim teklif As ListItem