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

Çok teşekkür ederim Korhan Bey emeğinize sağlık

Deneyiniz. TextBox50 olarak ayarladım. Siz kendi dosyanıza göre düzenlersiniz. Option Explicit Private Sub CommandButton1_Click() Dim My_Array() As Variant, X As Long, Total As Long Dim Txt As String, No As Byte, X_Time As Double X_Time = Timer ListBox1.Clear...

Tekrar sayıları için aşağıdaki kodu deneyebilirsiniz. Option Explicit Private Sub CommandButton1_Click() Dim My_Array() As Variant, X As Long Dim Txt As String, No As Byte, X_Time As Double X_Time = Timer ListBox1.Clear With...

Hocam yazdığınız kodu yapıştırdım ama olmadı. Nerede hata yapıyorum bir türlü bulamadım.

Elinizdeki VBA kodu, bir UserForm'daki TextBox21'e girilen metne göre "data" sayfasının C sütunundaki verileri filtreleyip ListBox1'e listelemeye çalışıyor Private Sub TextBox21_Change() Dim S1 As Worksheet, WF As WorksheetFunction, Adres_Listesi As Object, Adres As String Dim...

Arkadaşlar, sayın hocalarım, direkt sormuyorum inanın saatlerdir arıyorum. ADD için yapmaya çalıştığım bir dosya var. Tamamı bana ait değil. Hocalarımın yazdığı kodlar da var. Arama kısmını yapamadım. ListBox "data" adlı sayfadan alıyor @Korhan Ayhan hocamın yazdığı bir kodu uyarlamaya...

aşağıdaki kod büyük küçük harf ayrımı yapmadan sıralama yapar. Private Sub UserForm_Initialize() Dim ws As Worksheet Dim wsNames() As String Dim i As Long, j As Long Dim temp As String ' Çalışma kitabındaki sayfa isimlerini bir diziye aktar ReDim wsNames(1 To...

Teşekkür ediyorum sayın Necdet bey.

aynı cevabı bana verdi :). Alfabetik sıralamaya gerek yok dedim ben de

Merhaba, Chat GPT'nin yanıtı : Private Sub UserForm_Initialize() Dim ws As Worksheet Dim wsNames() As String Dim i As Long, j As Long Dim temp As String ' Çalışma kitabındaki sayfa isimlerini bir diziye aktar ReDim wsNames(1 To ThisWorkbook.Sheets.Count) i = 1...

Dosya isimleri gerçekten böylemi :D GPT-4 Böyle bişiler üretti Private Sub UserForm_Initialize() Dim folder As Object Dim fileSystem As Object ' Ana klasör yolunu belirleyin Set fileSystem = CreateObject("Scripting.FileSystemObject") Set folder =...

Scripting.FileSystemObject Ad a göre sıralama yaparken dosya isminde ki her bir karakteri tek tek sıraladığından dolayı rakamlarında her bir karakterini tek tek sıraladığından bu şekilde gözüküyormuş. sayılar 1, 10, 100, 101 gibi sıralanırken 2, 3 gibi dosyalar 101'den sonra gelmektedir. Sizin...

Hocam çok teşekkürler. Sayenizde yeni şeyler öğrendim. Fakat bir önceki kodlar bana daha uygun. Burda işler karıştı. Çünkü en son attığınız kodlar sanırım tüm klasörlerdeki dosyaları alıyor ve hepsini sıralıyor. Bana ise klasör-klasör alarak sıralama yapması gerekli. Yani ilk klasörü al sırala...

Dosyaları klasördeki gibi sıralı bir şekilde ListBox1'e aktarmak için dosyaları listelemeden önce bir koleksiyona veya diziye ekleyip, ardından bu diziyi sıralayarak ListBox1'e ekleyebiliriz. Bu şekilde, dosyalar klasördeki alfabetik veya doğal sıralama ile (yani 1.jpg, 2.jpg, 10.jpg gibi)...

teşekürr ederim yardım ve destekleriniz için ama ben yapmak istediğimi anlatamadım başka yolla çözdüm sağolun yardımlarınız için.....

Private Sub CommandButton1_Click() ListBox1.Clear Call ListeAl(ListBox1, TextBox1.Text, "*.pdf", CheckBox1.Value) End Sub Private Sub CommandButton2_Click() ListBox2.Clear Call ListeAl(ListBox2, TextBox3.Text, "*.jpg", CheckBox2.Value) End Sub Sub ListeAl(Lst As...

userformunuzun kod bölümüne kopyalayıp yapıştırın. Private Sub UserForm_Initialize() ListBox1.ColumnCount = 4 ListBox1.ColumnWidths = "70;70;70;70" hepsı End Sub Sub hepsi() Application.ScreenUpdating = False On Error Resume Next Set s1 = Sheets("anasayfa") s1.AutoFilterMode = False Dim...

Merhaba, veri tabanından listbox a 15 sutunlu verileri filtreleyip listbox da görebilyorum. İsteğim listboxda görünen verilerin tamamını değil de istediğim sutunları "LİSTEGORUSME" sayfasında istediğim sutunlara aktarmak istiyorum. ek teki kod ile yapmaya çalışyorum bir yerlerde hata var...

Merhaba, Ustalarımızdan öğrenip kendi kullandığım listbox a veri alma koduna bakarak kendinize uyarlayabilirsiniz. Private Sub UserForm_Initialize() ListBox1.ColumnCount = 9 ListBox1.ColumnWidths = "74;120;266;64;70;36;36;36" GOSTER End Sub Sub GOSTER() Application.ScreenUpdating = False...

Merhaba. Açtığım konu ile ilgili destek almam mümkün mü?. Konuyu kendi bilgime göre şöyle yapabilirim diye düşündüm. Medot yanlışmıdır ya da gereksiz midir bilmiyorum. Textbox yerine excel sayfası kullanabilirim diye düşündüm. Listbox1 de çoklu seçim yapıp bunları excel sayfasında ilgili sütuna...