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

örnek dosyada f sütununda arama yapıyoruz. Formülleri korumak için sayfa korumalı Sayfa korumalı iken oto filtreyi F sütununda kullanıyoruz sıkıntımız korumalı halde iken diğer sütunlardada filtrenin aktif olması (en azından C sütunundaki filtreyi kullanmak) Örnek dosyam linktedir ...

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

Harikasın hocam çok teşekkür ederim.

"Option Explicit" örnek dosyanızda yoktu, Yazmasanızda olur ama yazarsanız; Option Explicit on veya off , belirtilmezse "on" olarak kabul edilir, kod içindeki, değişkenlerin ne olduğunu açıklamak gerekir örnekte "dim s1 as worksheet" gibi. "Textbox" ların boşaltılması için aşağıdaki kodları...

Teşekkür ederim PLİNT hocam ilgin için. Ancak hata verdi. Anladığım kadarıyla C ve D lerin hangi sayfada olduğunu bilemediği için hata veriyor. Nereye eklemem lazım sayfa adını aceba

Merhaba Aşağıdaki gibi denermisiniz? Private Sub TextBox2_Change() Set s1 = Sheets("Sayfa1") If TextBox2 <> "" Then Set ara = s1.Range("B:B").Find(TextBox2, , , xlWhole, , , False) If Not ara Is Nothing Then TextBox10 = s1.Cells(ara.Row, "C") End If End Sub Private Sub TextBox10_Change()...

Sabaha kadar sürdü sonunda başardım galiba :) İki dosya ekliyorum biri kısa döngüyle diğeri uzun.Bir deneyiniz iyice benim beyin yandı :) http://dosya.co/tqa9k7q8cni3/DENEME68.xlsm.html http://dosya.co/gom1yzjl3g1j/DENEME68_-_KsaDongu.xlsm.html Private Sub ListView1_OLEDragOver yerine...

Kodu alttaki gibi denermisiniz? Kırmızı yerlere dikkat edin.Sadece Textbox2 için yaptım örnek olarak. Private Sub TextBox2_Change() k = 2 ara = Controls("TextBox" & k).Name Controls("TextBox" & k).MultiLine = True Sheets("ALFA").Activate Set t = Sheets("ALFA").Range("B:B").Find(ara)...

Alternatif ; :cool: Private Sub ARA_Click() Dim k As Range, adrs As String, x As Byte Set k = Sayfa1.Range("B3:B" & Rows.Count).Find(ComboBox1.Value, , xlValues, xlWhole) If Not k Is Nothing Then TextBox1.Value = k.Value For x = 2 To 8 Me.Controls("TextBox" & x) = k.Offset(0, x -...

Merhabalar, Araç Takip programı yapmaya çalışıyorum sonunada geldim. ancak tarih ile listbox ta süzme yapamadım. excel sayfa adı =liste tarih sütunu = "E" sütunu Textbox1 ile Textbox2 tarih girip CommandButton1 'e tıkladığımda Listboxta sadece seçilen raih aralığının listenme kodu için yardım...

Deneyiniz: Private Sub CommandButton1_Click() Label3.Visible = True Columns(1).ClearContents Columns(2).ClearContents Set wd = CreateObject("word.Application") wd.Visible = True yol = ThisWorkbook.Path Dosya = Dir(yol & "\*doc*") Do While Dosya <> "" wd.Application.Documents.Open yol & "\" &...

Merhabalar, Userform üzerinde 1 listview ve 100'e yakın textbox bulunmakta. listview'e kayıt ettiğim verileri, textbox'a sürükleyerek bırakıyorum. textbox'a bıraktığım veriyi tekrar mouse'la başka textbox'a sürükle bırak yöntemiyle hallediyorum. sorunum ise, textbox'tan textbox'a veriyi...

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

Aslında haklısınız öyle deneyeyim. Aslında zamandan tasarruf etmek için bu yöntemle ilerledim ama temeli sağlam atmamış olacağım. Size çok teşekkür ederim. Kendim hazırlayacağım formda da yardımcı olursanız sevinirim.

Listboxdaki ListBox1_Click olayında For a = 0 To 11 Controls("textbox" & a + 1) = ListBox1.column(a) Next kısmı bende hata veriyor. Listboxdan veri sectiğiniz zaman döngüde textbox6 yı da arayacak. Ama textbox6 yerine ComboBox2 eklendiği için textbox6 bulamayacak ve hata verecek. Bende hata...

Aşağıdaki kocu deneyin. Sub ilkhücreyibul() Dim ws As Worksheet Dim aranan As String Dim alan As Range Dim sayfa As String Dim i As Integer aranan = Sheets("Sayfa1").TextBox1.Text If aranan = "" Then Exit Sub For Each ws In Worksheets Set alan = ws.Cells.Find(What:=aranan) If Not alan Is...

Merhaba, Sipariş numarası girilen bir textbox var, buraya 15 karakterli giriş yapılabilmeli sadece, bunun dışında ise uyarı vermeli. Aşağıdaki gibi koldar yazdım fakat 15 karakterden az olsa da giriş yapılabiliyor. Hata nerede yardımcı olabilir misiniz? Set data_2 = Sheets("Talep Geçmişi")...

arkadaşlar merhaba. Sorunum şöyle, 2 textboxum var ve bunların içinde ki değeri *** çalışması sayfasında arayıp yanında ki değerden düşürcek. Örnek verecek olursak: Textbox1'e fatih yazdım Textbox2'e de 5 yazdım. Sayfam; ahmet 5 fatih 120 salih 8 . . . diye devam etmekte. textbox'1e fatih ya...

Selam arkadaşlar Textbox1 ile arama yapıp bulduğu değerlere göre Listbox oluşturuyorum. Textbox1 e veri girip enterladıkdan sonra imlec Textbox2 ye gidiyor. Ben ise tekrar Textbox1 e geri dönmesi ve döndüğünde içinin boş olmasını istiyorum. Kullandığım kodlar aşağıdaki gibidir. Bu kodlar...

Saygı değer Üstatlar Kodları Düzeltme konusunda yardımcı olursanız sevinirim 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 =...