Sorgu için arama sonuçları: Listbox1+redim

Merhabalar; Aşağıda eklediğim dosya ile toplu mail atmak istiyorum. Ancak döngü kurgusunda bir hata yapıyorum. Ek teki sitede sorun yaşadığım yer TOPLU MAİL AT butonu. Yardımlarınız için teşekkür ederim. Not: Deneme sırasında mail atabilir. Private Sub CommandButton4_Click()...

Detay açıklama, örnek userform daki combobox da "seyhan" ı seçip textbox 2 ye "kemal" yazdığımda (B sutunu)seyhan ilçesindeki (D sutunu) kemal olanlar listelensin. aşağıda bir şeyler yapmaya çalıştım. Next satırında hata veriyor. Dim s1 As Worksheet, S2 As Worksheet, S3 As Worksheet, Veri As...

Çok Teşekkür Ederim 2 Gündür Bununla Uğraşıyordum.

Merhaba. Aşağıdaki kodları ReDim Preserve myarr(1 To 10, 1 To a) ListBox1.Column = myarr Aşağıdakiler ile değiştirip deneyin. If a > 0 Then ReDim Preserve myarr(1 To 10, 1 To a) ListBox1.Column = myarr End If

Aşağıdaki Kod İle Veri Arama Yaparken Veri Bulunamayınca Debug Hatası Veriyor Bana Yardımcı Olabilecek Varmı ? Kod'da Hata Veren Kısım Olarak ReDim Preserve myarr(1 To 10, 1 To a) Olarak Gözükmekte Private Sub CommandButton1_Click() If OptionButton1.Value = True Then Call bul_59(TextBox2)...

Merhaba Arkadaşlar Ekteki Örnekte Bulunan Arama İşleminde Tek "DATA" sayfasında arama yapmaktadır Diğer Tüm Sayfalarda da Arama Yapmasını Nasıl Sağlayabilirim ? Private Sub CommandButton1_Click() If OptionButton1.Value = True Then Call bul_59(TextBox2) End Sub Private Sub bul_59(ByVal txt...

Merhaba Arkadaşlar Ekteki Örnekte Bulunan Arama İşleminde Tek "DATA" sayfasında arama yapmaktadır Diğer Tüm Sayfalarda da Arama Yapmasını Nasıl Sağlayabilirim ? Örnek Dosya Örnek Kodlar Private Sub CommandButton1_Click() If OptionButton1.Value = True Then Call bul_59(TextBox2) End Sub...

Merhabalar , Vba da kendimi geliştirmek istiyorum arkadaşlar sizlerin sayesinde pat çat birşeyler yapmaya başladım nette bulduğum bir formu hem kendimi geliştirip hemde kendime göre uyarlamak adına birşeyler yapıyorum 2 çeşit option radio butonu ekledim fotosunu paylaşıyorum. burda yapmak...

iyi akşamlar; kullandığım kodda listboxta hem tarih ve hem de sayı formatı kullanmak gerekiyor. Private Sub UserForm_Initialize() Dim z As Object, Liste() If Sheets("I_TKP").AutoFilterMode Then Sheets("I_TKP").AutoFilterMode = False Set z = CreateObject("Scripting.dictionary") Liste =...

Değerli arkadaşlar elimdeki aşağıdaki kod ile TexBox İle ListBox da süzme yaptırıyorum.Yalnız şöyle bir sıkıtı var küçük harfle arama yaptığımda sonuca ulaşamıyorum birde diyelim ki yazım yanlışı yaparsam bütün yazdığımı silip tekrar yazmam gerekiyor o işlem içinde geriye doğru sildikçe sonuca...

Arkadaşlar, Halit Hoca'nın verdiği bir kod ile Userform3'e rastgele bir veriyi butonla çağırabiliyorum. Ben bu işlemi aynı butonla, sırayla 3'ten 12'ye kadar olan aynı formattaki (aynı nesneleri içeriyor ve nesne isimleri aynı) userformlara çağırmak istiyorum. Bir döngü oluşturmak gerekiyor ama...

Merhabalar Userform üzerinde 1 ad listbox ve 2 ad textbox bulunmaktadır.Excel sayfasından Listboxa 45 sutunluk veri çekiyorum.Textboxtlara girdiğim değerlere göre ilgili sütünlarda arama yapmak istemekteyim. Forumdan bulduğum kodlara göre Textbox 1 ve Textbox 2 içerisine yazdığım değere göre...

Private Sub TextBoxBUL_Change() Dim k As Range, adrs As String, j As Byte, a As Long ReDim myarr(1 To 2, 1 To 1) If TextBoxBUL.Text = "" Then ListBox1.RowSource = "GENEL BİLGİLER!C2:D" & Sheets("GENEL BİLGİLER").[A65536].End(xlUp).Row Exit Sub End If With Worksheets("GENEL BİLGİLER")...

Herkese kolay gelsin. Textbox ile listbox ta arama yaptırıyorum.Arama sonucu listboxtan seçilen satırdaki ürün bilgilerini textboxlara alıyorum. Bu bilgileri güncellemek istiyorum. Arama kodları Private Sub TextBox6_Change() 'TEXTBOX BÜYÜK HARF TextBox6 = Replace(TextBox6, "i", "İ") TextBox6 =...

Merhabalar formda bulduğum kodlar aile hekimliğinde kullanabileceğim 3000 kişilik bir hasta grubunun bilgilerini analiz etme, aşı takibi yapma, izlem takibi yapma, kayıt işlemleri ve ay sonu hazırlanacak 20 küsür raporları buradan hızlı bir şekilde yapmak istiyorum. Sorunum şöyle telefonlar...

Merhabalar. Arkadaşlar Halit Bey'in çalışmasından alıntılarla Listbox multiselect ile sadece seçilen sayfaları aktarmaya çalışıyorum. Ancak n = 0 For i = ListBox1.ListCount - 1 To 1 Step -1 If ListBox1.Selected(i - 1) = True Then ReDim Preserve myArray(n) myArray(n) = i n = n + 1 End If Next...

Herkese Merhabalar.Gelirler ve Giderler adında iki sayfam var bunlarda 3. sütunlardaki tarih aralığına göre listbox1 e gelirleri listbox2 ye de giderleri listeliyor fakat listelenecek veri yok sa hata veriyor.Hatayı ortadan nasıl kaldırabilirim lütfen yardımlarınızı rica ediyorum.Aşağıdaki kodu...

Merhaba, Aşağıdaki kod ile veriler ComboBox1'de süzme sonucu, yani girilen ilk harfe göre Listbox'ta listleniyor, ancak büyük küçük harflerde sorun çıkarıyor. Yardımlarınızı bekliyorum. Private Sub ComboBox1_Change() Dim s As Long, k As Byte ListBox1.ColumnCount = 3 'ListBox3.Clear...

Arkadaşlar dosyam büyük olduğu için yükleyemedim. Aşağıdaki kodlarla verileri giriyorum son satırda toplamları gösteriyor. Satır veriyi silip veya verileri değiştirdiğim zaman alttaki toplamlar değişmiyor aynı kalıyor. Private Sub CommandButton1_Click() 'Application.ScreenUpdating = False...

Değerli hocalarım merhaba bir problemim var ve çözemedim Aşağıdaki kod ile Combobox içerisinden seçtiğim ürünü listbox tan filtreliyorum sorun şu filtrelemeden önce kolon başlıkları listboxta mevcuttu filtreledikten sonra yok oluyor şunu yapabilmem mümkün mü çıkan sonucun üstüne başlık satırı...