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

Teşekkür ederim elinize sağlık. Bu sefer çalıştı. 2 şey daha soracağım. İlki Bu kodda arama yapıldığında iletişim kutusu çıkmasını istemiyorsam ne yapmam lazım. Her sonraki aramaya iletişim kutusundaki evet komutu ile değil de CommondButton1 butonuna tekrar basılmasıyla devam etsin. İkincisi...

Sayfanıza Activex denetimlerinden bir tetxbox ve commandbutton ekleyin (Adlarının TextBox1 ve CommandButton1 olduğunu kabul ediyorum). Sayfa adına sağ tıklayın ve kod görüntüle dedikten sonra açılan sayfaya aşağıdaki kodları yapıştırın Textbox' aranacak veriyi girip commandbuttona basın. C...

Hoşgörünüze sığınarak bir bir fıkra hatırlatmak istiyorum: İlk mesajınızda "D sütununda arayacak" demiştiniz ama örnek dosyanızda veriler C sütununda; "Bir textbox olacak" demiştiniz ama dosyanızdaki textboxın adı "Textbox2"; "E sütunu seçilecek" demiştiniz ama dosyanızda "D sütununun"...

bulduğum veriyi kaydetmek için şöyle bir kod kullanıyorum ve burada da sıra numarası vererek kayıt yapamıyorum. Private Sub CommandButton4_Click() Dim pr As Worksheet Set pr = Sheets("Sayfa2") Dim aranan As String Dim tablo As Range Set tablo = pr.Range("A:D") aranan = TextBox1.Text...

Merhaba yaptığım çalışmada iki ayrı arama butonum var. İşlemi yapıyor ama evet seçeneğinden sonra veriler dolu textbox taki bilgiler kalacak (kalıyor) hayır seçeneğinden sonra textboxlar temizlenip yeni sorgu için imleç textbox1 e gelmesini , aynı şekilde aradığınız kayıt bulunamadı...

Sub SATIRIbul() Dim ws As Worksheet Dim aranan As String Dim alan As Range Dim sayfa As String Dim i As Integer aranan = Sheets("plan").TextBox1.Text If aranan = "" Then Exit Sub For Each ws In Worksheets Set alan = ws.Rows.Find(What:=aranan) If Not alan Is Nothing Then i = i + 1 If i =...

ComboBox nesnesinin üstüne birde TextBox eklemişsiniz. Ne amaçla eklediğinizi bilmiyorum. Bu sebeple ellemedim. Aşağıdaki kodları dosyanıza uyarlarsınız. Hiç bir kontrol kodu eklemedim. Gerekiyorsa kendiniz eklersiniz. Private Sub ComboBox1_Change() TextBox1 = ComboBox1 If ComboBox1...

Bu seferde bu şekilde bir hata mesajı veriyor. Private Sub CommandButton1_Click() Application.DisplayAlerts = False Sheets("TABLO").Select b = WorksheetFunction.CountA(Sheets("tablo").Range("A:A")) Sheets("tablo").Range("a" & b + 1).Select ActiveCell = TextBox7.Value ActiveCell.Offset(0, 1) =...

Uyarlamaya çalıştım ama bir noktadan sonra bıkkınlık veriyor.Aslında aşağıdaki satıra textbox ilavesi yapılsa yeterli olur diye düşünüyorum. Set c = St.[A:A].Find(ComboBox1.Value, , xlValues, xlWhole)

CommandButton5 kodlarını aşağıdakiyle değiştirip deneyiniz. Private Sub CommandButton5_Click() Dim S1 As Worksheet, c As Range, i As Byte Set S1 = Sheets("Ana Sayfa") Set c = S1.[A:A].Find(CDate(TextBox1), LookIn:=xlValues, lookat:=xlWhole) If Not c Is Nothing Then...

Merhaba Aşağıdaki şekilde "textbox" 'a boşluk karakteri eklendiğinde; "*" ile değiştirilerek yapılabilir. ListView1.ListItems.Clear Set alan = sr.Range("A3:G" & [a65536].End(3).Row) Dim aranan As String aranan = "*" & TextBox7.Text & "*" If InStr(1, TextBox7.Text, Chr(32), vbTextCompare) <> ""...

Merhaba Aşağıdaki kod ile Textbox daki yazılı olan veriyi hücrede arama yaptırıyoruz ama aramak istediğimiz cümleleri tam yazmaksak (örneğin ; hücrede "Boyacı Ustası" yazıyor biz textboxa " Boya usta" yazarsak arama maelesef gerçekleşmiyor.Find.ler ile biraz aradım ama bulmadım. Yardımcı olacak...

Aşağıdaki kod ile Textbox'a yazarak Combobox4'deki isime ait excel satırındaki hücreye açıklama ekliyorum.Fakat combobox4'de o isme ait ve çeşitli tarihlere ait birden fazla kayıt var.Bu kayıtların herhangi birine ulaşamıyorum.Sadece ilk kayıtı Combobox4'den seçerek getirebiliyorum oysa ben o...

Selamlar Ayrıca konu açmak istemediğim için buradan devam etmek istedim. Aynı dosyamda aşağıdaki kodlarla firma bilgilerini bulduruyorum. Ancak firma olduğu halde mesaj çıkıyor . Normalde firma olduğunda mesaj çıkarmaması gerekli. Onun için kodlarda nerede hata yaptığımı bulamadım. Saygılar...

Kodun açıklaması şu, Sheets(2).Select 'Sayfa2'yi seç Columns(1).Find(Sheets(4).ComboBox7).Select 'Sayfa2'de A sütunu içinde; Sayfa4'deki Combobox7'nin değerini ara, seç. Selection.ClearComments 'Seçili hücredeki açıklamayı sil Sheets(4).Select 'Sayfa4'ü seç Sheets(4).TextBox2 = "" 've...

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 = ""...

Sitede eski örnekler araştırdım anlamak ve çalıştırmak için , hata vermese de bu kod resmi çağırmıyor , hatayı bulamıyorum. C:\personelfoto klasörü içinde fotoğraflar ve bir de fotoyok resmi var, fotolar .jpg ve adları tc no dur. "fotoyok" resmi aynı resim image1 in arka plan fotosu . Sorun ...

Çok teşekkür ederim. emeğinize sağlık

Merhaba. Formda çok fazla gereksiz ve düzensiz kod var. Fomdaki bütün kodları silin aşağıdakileri ekleyin. Private Sub ComboBox1_Change() MsgBox Ay & " YENİ AY İÇİN PUANTAJ OLUŞTURULACAK" MsgBox Ay & " BİLGİ VE PUANTAJ SAYFALARINDAKİ BİLGİLER SİLİNECEKTİR"...