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

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

Private Sub UserForm_Initialize() Dim rng, veri, liste, i, ii, say, bb, b, ky, miktar, sut, s, uz, alan, son Set alan = Range("B4") son = Cells(Rows.Count, 2).End(3).Row With CreateObject("Scripting.Dictionary") For Each rng In Range("B5:B" &...

Private Sub UserForm_Initialize() Dim rng, veri, liste, i, ii, say, bb, b, ky, miktar, sut, s, uz With CreateObject("Scripting.Dictionary") For Each rng In Range("B5:B" & Cells(Rows.Count, 2).End(3).Row).SpecialCells(xlCellTypeVisible).Areas If rng.Address = "$B$4"...

Görünürlük açısından çizgi eklemek olabilir belki. Private Sub UserForm_Initialize() Dim veri, liste, i, ii, say, bb, b, ky, miktar, sut, s, uz If Selection(1).Value = "" Then Exit Sub veri = Selection.Value If Not IsArray(veri) Then ReDim veri(1, 1): veri(1, 1) = Selection.Value...

Gayet güzel çalışııyor elinize sağlık. Kodun üstüne adınızı yazacağım.

Mevcut şartlarda aşağıdaki kodlar işinizi görecektir muhtemelen. Ancak şartlar değiştiğinde hata oluşması muhtemeldir. Deneyiniz... Dim a As Integer Dim b As Byte, s As Byte, x1 As Byte Dim x As String Dim dz As Variant ReDim dz(ListBox1.ListCount - 1, 1) For b = LBound(dz) To UBound(dz)...

Korhan bey rica etsem listviewe bu kodların uyarlanmış halini yazabilir misiniz. Listbox ve Listview farklı olduğu için açıkcası listview e nasıl uyarlanabilir çözemedim.