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ı...
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.