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

Merhaba, Textbox1 karakter sayısı 13 olarak sınırlı. TextBox1_Change() altına aşağıdaki kodları yazdığımda girilen ilk karakterden sonra sorgulama yapıyor ve hata mesajı veriyor. Yapmak istediğim karakter sayısı 13 olduğunda sayfadan sorgulasın, yoksa hata mesajı versin. Bu şekilde bir düzenleme...

Merhaba, Ondalık format ile ilgili denediğim satırları çıkarttım, karışıklık yaratmaması için. Yapmak istediğim Textbox2 ile Conbobox4 ü çarpıp, ondalık basamakları doğru şekilde textbox4 e yazmak. İlginiz ve ayırdığınız zaman için teşekkür ederim. Private Sub ComboBox1_Click() ' Seçilen ürün...

Private Sub CommandButton1_Click() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets("Sayfa2") Dim rowNumber As Long Dim colNumber As Long Dim targetCell As Range Dim searchName As String Dim searchMonth As String Dim addValue As Double...

Merhaba, Örnek Dosya Linki Örnek dosyada verinin 2. satırdan başladığını ve sıralı tarih olduğu varsayılmıştır. İlk tarihi bulamazsa 2. satır, ikinci tarihi bulamazsa son satır dikkate alınarak kodlar hazırlanmıştır. Siz kendinize göre uyarlayınız. Not: TextBox larla uğraşmamak için Ben kodda...

Saygı değer hocalarım merhaba; UserFormda; 20 adet TextBox var (TextBox1, TextBox2, TextBox3........) 20 adet Nesne tanımladım (A1, A2, A3,......) nesnelerin her biri farklı sayfalardaki farklı hücrelerin değeri. yapmak istediğim, for döngüsü ile bu nesneleri textboxlara nasıl tanımlarım...

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem) Dim ws As Worksheet Set ws = ThisWorkbook.Sheets("Personel") Dim tcKimlikNo As String tcKimlikNo = Item.SubItems(1) ' Listview1'in ikinci sütunundaki T.C. Kimlik Numarası Dim arananSatir As Range...

Merhaba arkadaşlar... Excelde 9 sutundan oluşan bir tablom var bu tablomu userform üzerine 1 adet açılır combobox, 1 adet commandbuton ve 8 adet de textbox yaparak aradığımı daha kolay bulayım dedim ve aşağıdaki kodu yazdım. lakin combobox tan isim seçiyorum ve command butona basıyorum fakat...

Son gönderdiğiniz kodda da, targetValue = ListBox1.Value satırında aynı hatayı verdi. Olmazsa sadece bu sayfayı çalışma kitabına dahil edeceğim tekrar. Çalışma kitabının içinde iken hata vermiyordu. Bu kodlar ÜP sayfasıından veri alıyor. Bellek hatası olsa diğer sayfadaki işlemlerde de...

Evet sadece belirttiğim hatayı veriyor.

Anladım hata değil sadece bellek hatası veriyor dimi, Dim wb As Workbook Dim wsUP As Worksheet Dim sut As Long Dim al As Integer Dim targetValue As Variant Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & "ücretli_öğretmenler.xlsx") If Not wb Is Nothing Then Set wsUP = wb.Sheets("ÜP")...

Sub AramaYap() Dim ws As Worksheet Dim aramaTerimi1 As String Dim aramaTerimi2 As String Dim aramaTerimi3 As String Dim bulunanSatir As Range ' Çalışma sayfasını belirle (örneğin, Sayfa1) Set ws = ThisWorkbook.Sheets("Sayfa1") ' TextBox'ları kullanıcıdan alınan...

Merhaba, Öncelikle herkese iyi çalışmalar dilerim. Amatör olarak oluşturmuş olduğum bir listbox içerisinde bir sütuna yönelik aranan bir değeri dosya içerisinde bularak bir buton ile listbox üzerinde siliyorum. Ancak aşağıda oluşturmuş olduğum kodlar çokta kullanışlı olmadı. Asıl yapmak...

Ben bu kodu çalıştıramadım bir türlü alan.Select bölümünde kalıyor

Necdet bey. Çok teşekkür ederim fakat sanırım ben durumu yanlış anlattım. Yapmak istediğim şey şu. 5 tane combobox var diyelim 4 combobox birbiri ile bağlantılı çalışıyor. Örneğin Combobox1'de Aydın seçildi Combobox2'de Aydın'ın ilçeleri listeleniyor. Combobox3 ve 4'te aynı mantıkla çalışıyor...

Merhaba, D2= 16.01.2023 E2 = Kış Textboxta 16.01.2023 tarihi geldiğinde diğer textboxda kış gelsin istiyorum fakat tarih formatında hata alıyorum. Sayılarda çalıştırırken tarih formatında hata alıyorum maalesef kullandığım kod aşağıdaki gibidir. With Sheets("PANEL") sat =...

Merhaba sayın dEdE. aşağıdaki kodda A:C (A-B ve C) sütunlarını ÇÖB sayfasına kopyalıyor. Sağolun siz göndermiştiniz bu kodu. A-B-E sütunlarını nasıl kopyalayabilirim. ":C" yi ":E" yaptım ama yine eskisi gibi sonuç verdi. sh2.Range("A" & Sat2 & ":C" & Sat2 + AySay).Copy sh1.Range("F5")...

Merhaba, Örnek dosyanızda aşağıdaki kodu dener misiniz? Private Sub CommandButton1_Click() Set sh1 = Sheets("ÇÖB") Set sh2 = Sheets("ks") tx1 = CDate(TextBox1.Text) 'TextBox'un içeriği doğal olarak textdir. Bu satır TextBox'un içeriğini Tarihe dönüştürür. AySay = DateDiff("m", tx1, tx2) 'İki...

Hocam çok uğraştırdım farkındayım ama bir türlü çözemiyorum. ayrı bir data sayfası yok trafik - dask ve kasko adında 3 sheet var. verileri buradan çektiriyorum. sıkıntım şu textbox change olayında 3 adet textbox a veriyi getirmek. bu işlemi trafik multipage de yapıyorum. ama daskta olmuyor...

hocam şöyle anlatayım. multipage kullanarak 3 adet page oluşturdum, trafik - dask - kasko, sheetlerde aynı bu şekilde. listboxtan çift tıklama ile plakayı getiriyorum. sonra textbox change den yaralanarak diğer texboxlara bilgi getirtiyorum. trafik page de iken hiçbir sorun yok aşağıda kodlarını...

Merhabalar hayırlı akşamlar, aşağıdaki kod ile listboxta arama yaptırıyorum. Aradığım veri C sütununda. Kod arama yapıyor ancak C sütunundan sonraki verileri getiriyor A ve B Sütunundaki verileri göstermiyor. A ve B sütunundaki verileri de getirmek için ne yapabilirim Private Sub...