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

Merhaba, userform üzerinde bulunan bir listboxta 2 adet kolonum var. 1. kolona belirli bir klasördeki tüm csv dosyalarımın listesini aşağıdaki kodla (başında yıldız olan satırlar olmadan) getiriyorum. Sorunsuz. 2. kolona (tabii ki her dosyanın isminin kendi satırına, o dosyanın) A2 hücresinin...

Biraz uğraştım. Yaptıklarımı ekleyeyim. İlk gönderdiğimi dikkate almayın. Buton ve CommoBoxların TabIndexlerini 1 den 8 e kadar özellikler penceresinden ayarlayın. CommandButton1 kodlarının baş tarafına aşağıdakini ekleyin. If ComboBox2.ListIndex < 0 Then MsgBox "İzin kullanım yılı...

Userform'in kodlarını aşağıdakiyle değiştirip deneyiniz. Tabi formun boyutlarında ve yerleşiminde de düzeltme yapmanız gerekecek, onları halledersiniz: Private Sub CommandButton1_Click() Dim k As Range, ilk_adres As String, A As Long Dim i As Long, syf As String, myarr() ListBox1.Clear If...

https://www.excel.web.tr/threads/sayfalarda-muekerrer-kayit-kontrolue.192180/#post-1090298 Saygıdeğer hocalarım, Yukarıdaki Korhan Ayhan beyin eklediği örneğe göre Ben tüm sayfaların D sütunlarında yeni yazılacak kayıtları değil yazılı tüm kayıtların kontrolünü yapmak istiyorum. Bunun için...

Eski kodları silip (module1 dahil) aşağıdaki kodları ilgili bölümlerine ekleyiniz. Veri Girişi sayfası kod bölümüne: Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, [E10:E20]) Is Nothing Then Exit Sub If Target.Count > 1 Then Exit Sub deg = Target.Value...

Korhan Bey, Son yazdığınız kodu kendi çalışmamda denedim, ilgili userform altındaki tüm kodları sildim, sadece sizin verdiğiniz kodu bıraktım. Ancak şu satırda TextBox15 = Evaluate(Formul) could not set the value şeklinde hata alıyorum. Verdiğiniz kodu ayrıca nextlevel in örnek dosyasına...

Yusuf bey, excel sayfası üzerinde işlem yapmıyorum. Excel sayfası üzerinden veri alıyorum, userform üzerindeki textboxlarda bazı işlemler yaptırıp oluşan yeni veriyi farklı excel sayfasına aktarmaya çalışıyorum. Excel sayfalarına manuel dokunuş yapmamaktayım çalışmamda.

Dosyanıza UserForm ekledim. Dosyayı indirip açınca F3 tuşuna basın. Ekrana gelen formda bir kutucuk göreceksiniz. Barkodu okuttuğunuzda oradaki kutucuğa barkod yazılacak. E sütununda barkodu bulur ve sarı renge boyar. Yeni bir barkod için kutucuğu boşaltır. Barkod okuyucudan gelen veri 10...

merhaba; excel de userformda değiştir butonuna tanımladığım kodlar sonrası 2020 sayfasında güncelleme yapmıyor. Formülü bir de siz kontrol edebilir misiniz. Şimdiden teşekkürler Private Sub CommandButton4_Click() On Error GoTo bitir aranan = TextBox4.Value Range("D:D").Find(aranan).Select...

Sayın @byfika , cc: Sayın @Ömer , Sayın @Korhan Ayhan Sayın Korhan Ayhan ve Sayın Ömer 'in özelikle listbox kod önerileri ve Sayın byfika'nın textbox31 ve textbox32 yanlarındaki bul tuşları için verdiği önerilerle çalışmanın bu sayfasında istenen fonksiyonlara erişilmiş oldu. Not : Sayın...

Merhabalar, Listbox ta seçilen şahsın satırını silmek için userform kodlarına alttaki kodları ilave edip deneyiniz... Private Sub cmdSIL_Click() For a = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(a) Then ara = ListBox1.List(a, 0)...

Merhaba arkadaşlar userform'u ma bul düğmesi ekledim ve düğmeye tıkladığımda inputbox açılıyor, kayıt numarası girilerek "Veriler" sayfasında yer alan verileri tarıyor. Fakat userform açılış sayfası "Ana Sayfa". Ne yaptıysan bul dugmesını verıler sayfasında arattıramadım. Ancak userformu...

Her iki kodda mükemmel çalışmakta. Yine başka bir sorunum çıktı ortaya şu kodlardan sonra userform açıldıktan sonra webrowser üzerinden pdf önizlemesi yapabiliyorum. Me.WebBrowser1.Navigate ListBox1.Column(1) Application.Wait (Now + TimeValue("0:00:01")) Fakat arama yaptıktan sonra listboxtan...

UserForm Kodlarını aşağıdakiyle değiştirin Dim Bul As Range Private Sub ComboBox1_DropButtonClick() ComboBox1.RowSource = "Sayfa1!b2:b" & [Sayfa1!b65536].End(3).Row End Sub Private Sub ComboBox2_Change() End Sub Private Sub CommandButton1_Click() satır = Range("b500").End(xlUp).Row + 1...

Arkadaşlar Userform da hazırlanan textbox ile excel sayfasındaki ilgili sütunda "veri süz" yapıyorum. Süzülen veriler anında (Userform'u kapatıp açmadan) birbiri ile alakalı iki listbox kutularında nasıl listelettirebilirim. Aşağıdaki kodda bir eksiklik var sanırım. Textbox'a yazdığım kelimeye...

Sayın @PLİNT dosya üzerinde çok uğraştım ama hata veriyor. kendi kodlarımı da revize ettim textboxları gücelledim sizin kodlarla birleştirince olmadı. Userform açılmıyor Olmayınca sabah bir çok yeri formda sildim. yeniden textbox yaptım ama hala taha mesajı verince dosyayı size göndermenin...

Merhaba, Tablodaki verileri, yaptığım bir userform ile yönetecek bir çalışma yapıyorum. combobox tan 'poref' sütünundaki verilerden birini seçip, userformun ilgili alanlarına seçtiğim verini bulunduğu satırdaki diğer verileri alıyorum. veriyi seçmek için şu kodu yazdım: myporef =...

"Workbook_Open" Prosedüründeki kodları da aşağıdaki gibi değiştiriniz. Private Sub Workbook_Open() Dim Tarihbul Set Tarihbul = Range("A1:A100000").Find(Date, , xlValues, xlWhole) If Not Tarihbul Is Nothing Then Application.Visible = False UserForm1.Show End If End Sub

İlgilendiğiniz için teşekkür ederim. Olayı şu şekilde detaylandırırsam daha iyi yardımcı olunur düşüncesindeyim. Userform kullanarak; Private Sub txtadsoyad_Change() txtadsoyad.Value = StrConv(txtadsoyad.Value, vbProperCase) On Error Resume Next Dim bul As Range Set bul = Sheets("Personel...

Ekteki dosyayı deneyiniz. Dosyanız da Userform olmadığı için bir butona ekledim kodları. Şartlarınıza uyan satırları belirliyor eğer satırların silinmesini istiyorsanız 'Call Sil_satir başındaki tırnağı kaldırın. Option Explicit Sub Sartli_Satir_Sil() Dim Rng, Srt1, Srt2, c, firstAddress...