Sorgu için arama sonuçları: find+combobox

merhaba Aşağıdaki kodda combobox change olayında arama yaptırıyorum ama formul olan hücredeki değeri getirmiyor.Bunun bir çözümü varmıdır.? Teşekkürler Kod: Private Sub ComboBox33_Change() Worksheets("veri").Select Range("e2:e64000").Find(ComboBox33.Value).Activate...

MERHABA ARKADAŞLAR AŞAĞIDA KIRMIZI İLE İŞARETLEDİĞİM YERİ İNCELERSENİZ DAHA İYİ ANLARSINIZ. Private Sub CommandButton1_Click() Sheets("KSM-LİST").Select For a = 1 To 3 If Controls("combobox" & a) = "" Then MsgBox "VERİ GİRİŞİ EKSİKTİR" Exit Sub End If Next Dim M As Range Set M =...

merhaba Dosya göndermeden halledilebilir düşüncesiyle sadece kodu gönderiyorum. aşağıdaki kod run time 91 hatası veriyor. uzun uğraşlardan sonra hatanın e sütunundan kaynaklandığını farkettim.Bu sütunda formul bulunmakta, formulsuz değeri direk yazınca hata ortadan kalkıyor ancak formul...

slm.arkadaşlar formdaki button ve komutları aşağıdaki gibidir.combo ile verileri textlere ve diğer yerlere getiriyorum ancak verilerde değişiklik yapıp değiştir dediğimde texlerdeki verileri değiştirmiyor.optionbuton ve chekbox ları değiştiriyor,texleri değiştirmiyor.acaba verileri illaki...

Çalışmalarımda combobox ve Textbox lara verileri Kitabı açıp veriyi alıp tekrar kapatıyordum. Üstadların yardımı ile Kapalı kitaptan veri almaya başladım. Daha önceden Userform daki Combobox52 ye veriyi Workbooks.Open ThisWorkbook.Path & "\personel_bilgi.xls" '======== Combobox52'ye Veri...

Merhaba arkadaşlar herkese iyi bayramlar... Aşağıdaki kodlarda kırmızı ile işaretli satır için ekteki hata mesajını alıyorum yardımcı olabilir misiniz? Private Sub MultiPage1_change() If MultiPage1.Value = 0 Then On Error GoTo m End If If MultiPage1.Value = 1 Then On Error GoTo n End If End...

hocalarım aşağıdaki kodu inceler ve hatami sölermisiniz; combo box 1-3-4-5 seçimlerinden denk gelen hücreye combobox 2 deki veriyi aşağıdaki kod ile yazdırmadım ; seçimde sorun yok ama yazırmak için ComboBox2.Value = Range( " & .Name & " sayfasındaki " & .Cells(satir, sutun).Address) bu...

Merhabalar; Başta bu kodların sahibi olan Sn.Ayhan ERCAN'a teşekkür ederim. Aşağıdaki kodların işleyişini bozmadan combobox ile a5'den a65536'ya kadar olan verileri karşılaştırmak istiyorum. Yani işlem Command butona basılınca combobox içindeki veri ile örneğin a5'i karşılaştır aynısıysa devam...

Değerli Dostlar Selamlar, Aşağıda yazılı olan kodlarla ComboBox1 deki değerle change olayına bağlı olarak veri alıyorum. 2. bir işlem olarak da ComboBox1 deki deşeri Sayfa3 D sütununda aratıp G sütunundaki verileri lListBox1 de listelemek istiyorum. Ancak bir hata oluşuyor. Bulamıyorum. Private...

Değerli Dostlar Selamlar, Sayfa1 ComboBox1 deki kişiyi Sayfa2 B sütununda arayıp kaydırarak veri almaya çalışıyorum. Kodlar aşağıda nerede hata yapıyorum. Private Sub ComboBox1_Change() On Error Resume Next Set s1 = Sayfa1 Set s2 = Sayfa2 Set KRİTER = s1.ComboBox1 S1.Select...

Arkadaşlar Hepinize Selam. Userformda bir çalışma hazırladım sorunsuz çalışıyor. Fakat takıldığım iki soru belirdi kafamda şöyle ki; 1-Personele evrak koçanı zimmetliyorum her koçan 50 yaprak. Kayıt yaparken koçan ilk no ve son no.larını yazıyorum. Sonradan bunu sorgularken sorgulama kodu...

arkadaşlar aşağıdaki makroda yavaşlamama sebeb ne olabilir bakarsanız sevinirim Dim cmb(14) As New Class1 Private Sub ComboBox1_Change() Set S1 = Sheets("sayfa1") S1.Range("h1").Value = ComboBox1.Value ListBox2.Clear For a = 2 To S1.[b65536].End(3).Row If S1.Cells(a, "b") = TextBox1 And...

Combobox'a veri aldırıp seçim yaptıktan sonra , seçime göre Texbox1'e sayfa3 C sütunundaki veriyi getiriyorum Dim Aranan As String Dim Satir As Integer Aranan = ComboBox52.Value If Aranan = "" Then Exit Sub Satir = Worksheets("Sayfa3").Range("b:b").Cells.Find(Aranan...

combobox'da seçtiğin sayfada arama yapıp veriyi bulduğunda değeri texbox2'e yazması mümkünmü? aşağıdaki gibi bir kod bu texbox1'e yazdığım değeri sadece ürünler sayfasında arıyor.combobox'da seçtiğim sayfa değişik olduğundan problem çıkıyor doğru çalışmıyor.kodu combobox'a göre...

Private Sub CommandButton2_Click() Sheets("Personel_Bilgi").Select If TextBox1.Value = "" Then MsgBox "Personel No'su Boş Olamaz..!", vbCritical TextBox1.SetFocus Exit Sub End If If MsgBox("DEĞİŞİKLİK YAPMAK İSTYORMUSUNUZ.?", vbQuestion) = vbNo Then...

Private Sub ComboBox2_Change() Dim Aranan As String Dim Satir As Integer Aranan = ComboBox2.Value If Aranan = "" Then Exit Sub Satir = Worksheets("Sayfa3").Range("B:B").Cells.Find(Aranan, Worksheets("Sayfa3").Range("B65000"), xlFormulas, xlPart, xlByRows, xlNext, False, False).Row...

Combobox'a Adı ve Soyadı sütunlarını birleştirerek aldım. Private Sub UserForm_Activate() Workbooks.Open ThisWorkbook.Path & "\personel_bilgi_1.xls" Worksheets("Sayfa3").Select '======== Combobox1'e Veri Alma ====================== a = WorksheetFunction.CountA(Range("B:B")) For i = 2 To a...

arkadaşlar aşağıdaki kodda Textbox22 çalışmıyor bir bakarsanız sevinirim Textbox21 den farkı sayfa1 den bilgiyi alacak Selamlar Private Sub TextBox1_Change() Set S1 = Sheets("sayfa1") With ListBox1 .ColumnCount = 1 .ColumnWidths = "65;" End With ListBox1.Clear For suz = 2 To...

arkadaşlar aşğıdaki kodda textbox22 yi bulmam gerek textbox21 den yine aynı firmanın sayfa1 deki d sütünu toplamları çıkarılacak Private Sub TextBox1_Change() Set S1 = Sheets("sayfa1") With ListBox1 .ColumnCount = 1 .ColumnWidths = "65;" End With ListBox1.Clear For suz = 2 To...

Private Sub Listbox1_Change() On Error Resume Next Set sh = Sheets("MÜŞTERİLER") satir = sh.Columns(1).Find(ListBox1.Text).Row For i = 1 To 46 UserForm1.Controls("textbox" & i).Text = sh.Cells(satir, i) Next Cells(ListBox1.ListIndex + 2, 1).Select End Sub...