Kod Revize Listbox Uyarlama Hakkında

  • Konuyu başlatan Konuyu başlatan Cengizhan
  • Başlangıç tarihi Başlangıç tarihi

Cengizhan

Kullanıcı
Katılım
28 Tem 2022
Mesajlar
166
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Tarihe göre sırala Oylamaya göre sırala
O çözülen konu sayfasının linkini verebilir misiniz?
Aramayla bulamayabilirim.
Her defasında sıfırdan kodlamaya lüzum yok.
Kendi kodlarımdan kopya çekeyim (ya da siz çekin) dedim.
 
Oyla 0 Olumsuz oyla
Evet oradaki TEK SÜTUNluk bir Listbox imiş.

Mevut kodda üst tarafa Dim liste() diye bir satır ekleyip.
Mevcut With...End with kod blokunu şöyle değiştirin.

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(13 satır)
 
Oyla 0 Olumsuz oyla
Ömer BARAN' Alıntı:
Evet oradaki TEK SÜTUNluk bir Listbox imiş.

Mevut kodda üst tarafa Dim liste() diye bir satır ekleyip.
Mevcut With...End with kod blokunu şöyle değiştirin.

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(13 satır)
Genişletmek için tıklayın ...
girenstok.ListBox1.List = Application.Transpose(liste) hocam burda hata verdi


Kod: 
İndirmek için giriş yapmanız gerekmektedir.
(39 satır)
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
Eklediğiniz son belgede ben bir hata almadım.
Ayrıca benim verdiğim ve bende sorunsuz çalışan kod sadece TextBox1 ile ilgili biliyorsunuz.
 
Oyla 0 Olumsuz oyla
Yeni fark ediyorum.
İlk eklediğiniz belgedeki kodlarla, son belgedeki kodlar tamamen ayrı.
Bence tek belge üzerinde çalışmalısınız.
 
Oyla 0 Olumsuz oyla
USerform'u açtığınızda, ARAMA TEXTBOX'unun hemen üstündeki
OptionButton'lardan biri seçiliyken deniyorsunuz değil mi?
 
Oyla 0 Olumsuz oyla
Yanıt için giriş yapmanız veya üye olmanız gerekir.
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt