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

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

Örnek bir kod yazdım, kendinize uyarlarsınız. TextBox'tan çıkınca çalışır. Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) Dim osma As Range Set osma = Cells.Find(TextBox1.Value, , , 1) If Not osma Is Nothing Then Range("A1") = osma.Offset(0, 1).Value End...

Aşağıdaki kod ile N9 hücresine ürün cinsi girildiğinde N10 hücresinde fiyatı buluyor.Yapılmak istenen aranan değerin hücreye değilde Textbox'a girilerek bulunmasıdır.Tabi sonucuda textboxda gösterecek.İlgilenecek arkadaşa teşekkür ederim. Private Sub Worksheet_SelectionChange(ByVal Target As...

Korhan Bey ilginize Teşekkürler. sizin gönderdiğiniz kod'u ben formuma uyarlayamadım. Olay şu 2 tane Listbox var Bu Kur'an-ı Kerim için oluşturduğum bir tasarım Listbox1 deki sure isimlerine tıklattığımda 2 adet Textbox'un birine Arapça ayetleri diğerine Meali surenin tamamı geliyor. Listbox2 ye...