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

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

Merhaba bu kodları kullanarak comboboxta seçilen satırda bulunan verileri textbox a alıyorum. Burada yapmak istediğim seçtiğim satırın hücre numarasını textbox a almak yani Comboboxtan "a50" hücresi seçildiyse bunu görmek Private Sub ComboBox4_Change() Set bul =...

Textbox ile Listbox da arama yaparken ve kutuyu boşaltırken çok fazla bekliyorum. Sorun veya sıkıntı nerde olabilir? Private Sub TextBox5_Change() Dim k As Range, adrs As String, j As Byte, a As Long, myarr() ReDim myarr(1 To 3, 1 To 1) With Worksheets("MALZEME") Me.ListBox3.RowSource =...

merhaba, Private Sub TextBox1_Change() Application.ScreenUpdating = False evn = Range("a10000").End(3).Row evn2 = TextBox1.Value Set evn3 = Range("a1:a10000").Find(What:=evn2) For i = 2 To evn If UCase(Mid(Cells(i, 1).Value, 1, Len(TextBox1.Value))) <> UCase(TextBox1.Value) Then Rows(i).Hidden =...