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

  1. B

    combobox arama

    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...
  2. A

    Mükerrer kayıt hakkında

    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 =...
  3. B

    combobox hatası

    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...
  4. E

    değiştir komutu ve arabul arasındaki ilişki

    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...
  5. D

    Combobox'a ExecuteExcel4Macro ile veri alıp Textbox değer atama

    Ç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...
  6. N

    Multipage sayfalarında kod çalıştırma

    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...
  7. C

    combobox ile seçileni hücreye yazdırma

    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...
  8. C

    combobox ile hücre karşılaştırma

    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...
  9. K

    ComboBox taki değeri Sayfa3 te arayıp ListBoxta listelemek

    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...
  10. K

    ComboBox daki veriyi Sayfa2 de aratmak.

    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...
  11. H

    Arama kriterine ilk ve son numara arasını dahil etmek

    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...
  12. C

    çok yavaş çalışan makro

    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...
  13. D

    Textbox'a Parçal ile veri alma

    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...
  14. Y

    combobox'daki sayfada arama

    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...
  15. F

    TextBoxta Delete ile sildiğim zaman işlem yapmıyor

    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...
  16. D

    Hata ile karşılaşınca makro devam etsin

    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...
  17. D

    Combobox'tan (Birleştirilmiş veri ) seçime göre Textbox'a bilgi

    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...
  18. C

    ikinci textboxta sayfa değişikliği

    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...
  19. C

    kod yardımı

    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...
  20. F

    listboxta yaptığımı comboboxta yapmak

    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...
Üst