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

Merhabalar, find komutu ile değil ama, kullanmak isterseniz şöyle deneyebilirsiniz. For a = 1 To [A1048576].End(xlUp).Row If Cells(a, 1) = Int(ComboBox1) And Cells(a, 2) = "c" Then Cells(a, 1).Select Exit For End If Next a Üstteki kodda "c" ifadesi kod içinde giriliyor. Siz bunu dışarıdan...

Aşağıdaki kod ile comboboxdan seçilen isme ve "E" sütunundaki değere göre excel sayfasından veriyi siliyorum.Şimdi yapmak istediğim Combobox'dan değilde Listview1'den seçilen veriyi silsin.Yalnız listview'de satır seçilemiyor.Listbox gibi değil önce onu yazmak gerekiyor.Aşağıdaki kodun ilgili...

Kodu aşağıdaki şekilde uyarladım.Sorun Columns(1) ne yazayım.İsimler sayfa 2 de combobox ve textbox sayfa 4 de. Application.ScreenUpdating = False Sheets(2).Select Columns(1).Find(Sheets(4).ComboBox7).Select Selection.ClearComments Sheets(4).Select Sheets(4).TextBox2 = ""...

Combobox ile sayfa birlikte aynı yerlerde ise sayfadaki ismin üzerine gelince açıklama gözüküyor ama combobox farklı sayfada ise ismin üzerine gelince açıklama gözükmüyor.

Merhaba, 5 adet combobox ile birbiriyle bağlantılı şekilde filtreleme yapmak istiyorum. Tüm olasılıkları aşağıdaki koddaki gibi teker teker yazmalı mıyım yoksa bir kısa yolu var mıdır? Teşekkürler. Private Sub ComboBox_fil_Change() Worksheets(5).Range("A2:AU65500").ClearContents...

Selamun Aleykum, örnek dosya da Private Sub ComboBox1_Change() Application.ScreenUpdating = False Dim PER As Variant On Error Resume Next PER = ComboBox1.Value sonsat = Sheets("Gündem").Cells(Rows.Count, "E").End(3).Row Set ALAN = Range("G8:J" & sonsat).Find(What:=PER) Application.Goto...

Merhaba, Tablodaki verileri, yaptığım bir userform ile yönetecek bir çalışma yapıyorum. combobox tan 'poref' sütünundaki verilerden birini seçip, userformun ilgili alanlarına seçtiğim verini bulunduğu satırdaki diğer verileri alıyorum. veriyi seçmek için şu kodu yazdım: myporef =...

Herkese Merhaba ben aşağıdaki kodla VERİ sayfasından sicil yazmak sureti ile istediğim hücreleri texboxlara getirebiliyorum . Private Sub TexBox1_Change() Dim Bul On Error Resume Next Bul = Sheets("VERİ").Range("B2:B100000").Find(What:=TexBox1, LookIn:=xlValues...

Anladığım kadarıyla userformdaki Getir düğmesinin kodlarını aşağıdakiyle değiştiriniz: Private Sub CommandButton1_Click() Dim iRow, Find, bul_satir, degistir_satır As Long Dim ws As Worksheet Set ws = Worksheets("resmi tatil") 'copy the data to the database For i = 2 To ws.Cells(1...

Arkadaşlar bir makrom Comboboxla seçtiğim hücre aralığından istediğim veriyi seçiyor ve labellere yazı gönderiyor. Diğer makrom ise o hücre aralığında ki satırda herhangi bir silme işlemi veya aynı kişiyi ekleme işlemi olursa onları toplayarak üst satırda hizaya getiriyor. bu makrolar...

Merhaba Sayın Orion1 Vermiş olduğunuz örnek dosyayı kendi uygulamama göre düzenledim.Uygulama çalışıyor yalnız Benim tarih(Textbox) O sütünunda Makine seçmek için de bir Combobox uyguladım.uygulama çalışıyor fakat tarih yada makine araması yaptığımda bana resimlerdeki gibi bir görüntü...

Selamun Aleykum dostlarım, Private Sub ComboBox1_Change() Application.ScreenUpdating = False Dim PER As Variant On Error Resume Next PER = ComboBox1.Value Set ALAN = Range("G8:J65000").Find(What:=PER) Application.Goto Reference:=Range(ALAN.Address), _ Scroll:=False Selection.AutoFilter...

Merhabalar, Userform üzerinde 100'e yakın textbox var. userform açıldığı zaman bunların hepsinin göstermek istiyorum. ancak textbox ölçüleri excel hücrelerinde. userform açıldığında textbox'ların excel hücresinde yer alan ölçülere göre (height, width, top..) userform üzerinde göstermek...

Sayın Uzman Arkadaşlar, Bir çalışma sayfasında Comcobox ile sütünlarda verileri filtreliyorum. Metinsel aramalarda sorun yaşamıyorum. Ancak bir sütuntaki istenilen tarihleri listelemeyi yapamadım. Aşağıdaki kodlarda ne tür bir değişiklik yapmalıyım? Saygılarımla. Private Sub...

Merhabalar İkili kontrol yapıp satırı nasıl silmeliyim ? ComboBox1 = 14770 ComboBox2 = ANKARA ise bu kaydı silebilmek için ikisini birleştirip silmek istiyorum ancak hata vermektedir. Set bul = Sheets("Sayfa1").[B:B].Find(ComboBox1) And Sheets("Sayfa1"). [D : D].Find(ComboBox2) If...

Merhaba Ayarlar sayfamın A3 hücresinde : İ.EMİRALİ A9 hücresinde : İ.EMİR isimleri mevcut Combobox'tan isim seçince textbox1'e aynı ismi yazmasını istiyorum. Lakin ben "İ.EMİR" seçtiğimde find komutu "İ.EMİRALİ" ismini textboxa yazıyor Yani combobox'da hangi isim varsa, textboxda da o isim...

iyi günler, çalışma sayfalarından forma veri getiriyorum. "AC-KAPA" sayfasından gelen veriler yanlış oluyor. isim aranan sütün ve verilerin çekileceği sütün da doğru, çözemedim.Private Sub ComboBox1_Change() Set s = Sheets("ANASAYFA") ADI = Trim(ComboBox1.Text) 'aranan isim aramadaki...

iyi akşamlar; 11 çalışma sayfalı firma bilgilerini içeren çalışma kitabını hazırladım. son olarak yaklaşık 11 çalışma sayfasındaki verilerden gerekli olanları tek formda görüntülemek istiyorum. ilk sayfanın A sütünunda olan firma adları diğer bütün çalışma sayfalarının B sütünun da ortak...

arkadaşlar merhaba aşağıdaki find komut kodu ile combobox1 deki değeri aratabiliyoruz ben şunu yapabilirmiyim acaba combobox 1 yada "Hizmet Dışı" bu ikisinden bulduklarını getir gibi koda combobox1 or "Hizmet Dışı" yazdım ama tutmadı varmıdır bir yöntemi acaba With...

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