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

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

Kodunuza yaptığım ilaveleri kırmızı ile gösteriyorum. kod aktif sayfanın D1 hücresine sayı vermekte Private Sub Frame2_Click() End Sub Private Sub kapat_Click() Unload Me End Sub Private Sub kapat2_Click() Unload Me End Sub Private Sub nsyrara_Change() Dim Sayfa As Worksheet...

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

Sağolun garip olan listboxtan direkt yollarken olmuyor dizi içinden yollarken oluyor. Ado ile olmamasının nedenide Cdate(.List(i - 1, 1)) gibi formatlayınca çözüldü. Aslında hiç döngü ve gerek olmadan çözülür sanmıştım fakat önemli değil dizi kasmıyor hiç. Orjinal dosyamdaki kodda alttaki gibi...