Hata Hk.

[Mdemir63]

Selamlar
Anasayfadaki Combobox dan Firma adı seçiyorum bilgilerim geliyor. Sonra Kontrol Zamanlarını Göster butonunu tıkladığımda Userform açılıyor bilgilerde geliyor. Ancak ikinci kez aynı butona tıkladığımda hata veriyor nedenini bulamadım.
Nedeni hakkında bilgisi olan varsa bilgilendirebilirse memnun olurum.

Saygılar

sırasıyla resimler

 

[Mdemir63]

Selamlar
Özür dilerim dosyayı yükleyemiyorum. Orjinal olduğu için.
Bahsettiğim problem hakkında bilgisi olan arkadaşlarımız bilgi verebilirse çok memnun olurum.

Saygılar

 

[ÖmerBey]

Merhaba,
Muhtemelen s değişkeninizin aldığı değer listbox satır sayısından fazla olduğu için hata oluşuyor. Oradaki değişimi takip ederek hatanın kaynağına ulaşabilirsiniz sanıyorum.
Alternatif olarak .AddItem sonrası aşağıdaki mantıkla veri alırsanız bu tür problemlerle karşılaşmazsınız.

s = UserForm1.ListBox1.ListCount - 1
UserForm1.ListBox1.List(s, 0) = Sheets("KONTROL").Cells(i, "L")

 

[Korhan Ayhan]

Alternatif,

For ile başlayan satırın üstüne aşağıdaki satırı ekleyip deneyebilirsiniz.

s = 0

 

[Mdemir63]

Merhaba,
Muhtemelen s değişkeninizin aldığı değer listbox satır sayısından fazla olduğu için hata oluşuyor. Oradaki değişimi takip ederek hatanın kaynağına ulaşabilirsiniz sanıyorum.
Alternatif olarak .AddItem sonrası aşağıdaki mantıkla veri alırsanız bu tür problemlerle karşılaşmazsınız.

s = UserForm1.ListBox1.ListCount - 1
UserForm1.ListBox1.List(s, 0) = Sheets("KONTROL").Cells(i, "L")

@ÖmerBey Hocam çok teşekkür ederim .
Saygılar

 

[Mdemir63]

Alternatif,

For ile başlayan satırın üstüne aşağıdaki satırı ekleyip deneyebilirsiniz.

s = 0

@Korhan Ayhan Hocam çok teşekkür ederim.
Saygılar

 

[Mdemir63]

Selamlar
Ayrıca konu açmak istemediğim için buradan devam etmek istedim.
Aynı dosyamda aşağıdaki kodlarla firma bilgilerini bulduruyorum.
Ancak firma olduğu halde mesaj çıkıyor . Normalde firma olduğunda mesaj çıkarmaması gerekli.
Onun için kodlarda nerede hata yaptığımı bulamadım.

Saygılar

Private Sub btn_bul_Click()
    Set sf = Worksheets("FirmaBilgileri")
    son = sf.Cells(Rows.Count, "B").End(xlUp).Row
    On Error GoTo Bitir
    Aranan = TextBox1.Value
    sf.Range("B:B").Find(Aranan).Select
    Satir = ActiveCell.Row
        For i = 2 To son
          Controls("TextBox" & i).Value = sf.Cells(Satir, i + 1)
        Next i
Exit Sub
Bitir: MsgBox "Aradığınız kayıt bulunamadı!..", vbInformation, "BİLGİ MESAJI"
End Sub

 

[Haluk]

On Error .... kullanımı tehlikelidir.

O satırı kaldırıp, çalıştırın. Hata oluşursa, duruma bakıp çözüm yolu arayın....

.

 

[Mdemir63]

Selamlar
Haluk hocam
bu defa da aşağıdaki gibi hata verdi.

Saygılar

 

[Haluk]

Demek ki, bahsedilen TextBoxXX yokmuş....

.

 

[Mdemir63]

Hocam peki başka bir çözüm öneriniz var mı?

 

[Haluk]

Ne yaptığınızı bilmediğim için yardım da edemem .... Hatanın ne olduğunu bulduğunuza göre, çözümünü de bulabilmeniz gerekiyor.

Kolay gelsin,

.

 

[Mdemir63]

Uğraşıyorum çözüm için. tabi bulabilirsem
Teşekkürler hocam

Saygılar

 

[Mdemir63]

Selamlar

For i=2 To son yerine

For i=2 To 22 yazdım düzeldi.