Sorgu için arama sonuçları: Listbox1+redim

Hayırlı sabahlar. Korhan hocam çok teşekkür ederim. Beni büyük bir stresten kurtardınız. Yaklaşık 10 gündür bu acemi halimle listboxu forumdaki konularda bulunan kodlarla çözmeye çalıştım. Ama bazen olmuyor işte. Hocam ALLAH razı olsun sizden. Hayırlı çalışmalar diliyorum. - Arkadaşlar User...

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

Arama işlemi İÇERİR mantığı ile yapılmaktadır. Private Sub TextBox1_Change() Dim S1 As Worksheet, Veri As Variant, Son As Long Dim Ad As String, Aranan As String, X As Long, Say As Long Set S1 = Sheets("BİLGİ") Son = S1.Cells(S1.Rows.Count, 1).End(3).Row Veri =...

Sub test() Set sh = Sheets("Kendi sayfanız") son = [C:L].Find("*", , , , xlByRows, xlPrevious).Row If son < 2 Then Exit Sub sut = Array(1, 2, 10, 9, 6, 7) a = Range("C2:L" & son).Value ReDim b(1 To UBound(a), 1 To 6) For i = 1 To UBound(a) For j = 0 To UBound(sut)...

bu kodlar çok fonksiyonlu ama bağlayamadım kendi koduma

Herkese Merhaba aşağıdaki kodlarla belirlediğim sütunlarda arama yapabiliyorum ama sorun şu Büyük İ küçük i Ğ ğ Ü ü gibi harfleri exceldeki şekliyle yazmadığım zaman arama yapmıyor. Private Sub TxtAra_Change() With Sayfa11 Dim askm() Dim Son As Long Son = .Range("B" & Rows.Count).End(3).Row...

Dosyanıza göre "Userform" kod penceresine aşağıdaki kodları ekleyip deneyin Private Sub TextBox24_Exit(ByVal Cancel As MSForms.ReturnBoolean) tarihsuz End Sub Private Sub TextBox23_Exit(ByVal Cancel As MSForms.ReturnBoolean) tarihsuz End Sub Sub tarihsuz() Dim i As Long, y As Long, f As Range...

Merhaba Son mesajınızdaki kodları aşağıdaki gibi deneyelim Private Sub Süz_Click() With Sayfa22 If TextBox23.Value = "" Or TextBox24.Value = "" Then MsgBox "Lütfen Tarih seçiniz", vbCritical, "TARİH SEÇME HATASI" Exit Sub End If Label1.Caption = TextBox23.Value Label2.Caption = TextBox24.Value...

Kullandığınız yöntemde sütun başlıkları ListBox nesnesine otomatik eklenir. Tersten sıralama işlemini sayfada yaparsanız kullandığınız yöntemi kullanmaya devam edebilirsiniz. Aksi durumda kod ile hafızada sıralama işlemi yapılırsa sütun başlıkları ListBox nesnesinde görünmeyecektir. Kendiniz...

Deneyiniz. Private Sub CommandButton1_Click() Dim Liste As Variant, X As Long, Y As Byte, Aranan As String, Veri As Variant, Say As Long ListBox1.Clear Liste = Sheets("Sayfa1").Range("A1:E" & Sheets("Sayfa1").Cells(Rows.Count, "E").End(xlUp).Row).Value ReDim Veri(1 To...

Private Sub CommandButton11_Click() End Sub Private Sub CommandButton10_Click() Unload Me Yeni_Pasif_Kaydet.Show End Sub Private Sub CommandButton12_Click() For Each txt In Me.Controls If TypeName(txt) = "TextBox" Then txt.Text = "" End If Next txt End Sub Private Sub...

[KOD] Özel Alt KomutDüğmesi11_Click () Son Alt Özel Alt KomutDüğmesi15_Click () CreateObject ("Shell.Application"). TextBox8.Text dosyasını açın. Son Alt Özel Alt KomutDüğmesi16_Click () CreateObject ("Shell.Application"). TextBox10.Text dosyasını açın. Son Alt Özel Alt...

Aşağıdaki kod ile Comboboxtan Listboxa veriler alınıyor. Ancak, Listbox'ta başlıklar da siliniyor. Başlıklar sabit kalacak şekilde kodu düzenleyebilir miyiz? Private Sub cbkampanya_Change() Dim s As Long, k As Byte ListBox1.ColumnCount = 12 'ListBox1.Clear ListBox1.RowSource = ""...

Aşağıdaki kodları deneyiniz. Private Sub CommandButton1_Click() Dim S1 As Worksheet, Say As Long, Son As Long, X As Long, Y As Byte If Len(TextBox1) <> 11 Then MsgBox "Lütfen girdiğiniz TC numarasını kontrol ediniz!", vbCritical TextBox1.SetFocus Exit Sub...

Merhaba, Bu Çalışma Kitabındaki kodları silerek aşağıdakileri yapıştırın: Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) Dim S1 As Worksheet, BUL As Range If Intersect(Target, Sheets("VERİ").Range("M7")) Is Nothing Then Exit...

Hocam vermiş olduğunuz kodlarla kendime aşağıdaki gibi kod oluşturdum. çalışıyor ama bahsettiğim gibi aynı zamanda texbox3 e girdiğim veriyi D sütununda arayıp girdiğim veriyi içerenleri filtrelemseini istiyorum. ilginiz için teşekkür ederim. Dim S1 As Worksheet, S2 As ListBox, s3 As...

Teşekkürler Hocam süper oldu şimdi hemde uzun süredir aradığım cevabı bulmuş oldum tekrar teşekkürler

Zeki Beyin önerisine göre revize edilmiş kodunuz; Private Sub coklu() Dim i As Integer, j As Integer Dim dizi() As String, query As String Dim con As New ADODB.Connection, RS As New ADODB.Recordset Sayfa1.Range("A1").CurrentRegion.ClearContents For i = 0 To...

Listbox1 çift tıkladığınızda çalışır.Çalışma kitabında Sayfa1 ve sayfa2 var.Kendinize göre ayarlayınız. Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Dim s1 As Worksheet: Dim s2 As Worksheet: Dim i As Integer: Dim say As Integer: Dim b() Set s1 = Sheets("Sayfa1"): Set s2...

Userform üzerine bir CommandButton ekleyiniz ve aşağıdaki kopyalayınız. Private Sub CommandButton1_Click() Dim s1 As Worksheet: Dim i As Integer: Dim say As Integer: Dim b() Set s1 = Sheets("Sayfa1") s1.Range("A15").Cells.ClearContents For i = 1 To ListBox1.ListCount say = say + 1...