B

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

  • Konuyu başlatan Konuyu başlatan busradag
  • Başlangıç tarihi Başlangıç tarihi
B

busradag

Normal Üye
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
 
Tarihe göre sırala Oylamaya göre sırala
Ömer BARAN' Alıntı:
@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.
Genişletmek için tıklayın ...
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 ?
Kod: 
Görüntülemek için giriş yapmanız gerekmektedir.
(31 satır)
 
Oyla 0 Olumsuz oyla
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.
 
Oyla 0 Olumsuz oyla
Ö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?
 
Oyla 0 Olumsuz oyla
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
 
Oyla 0 Olumsuz oyla
@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.


1663546196070.webp
 
Oyla 0 Olumsuz oyla
Yanıt için giriş yapmanız veya üye olmanız gerekir.
Üst