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

Private Sub UserForm_Initialize() Dim veri(), i&, ii%, sut% veri = Sheets("Sayfa1").Range("B10:J24").Value With ListBox1 .ColumnCount = 5 For i = 1 To UBound(veri) .AddItem veri(i, 1) sut = 1 For ii = 2 To UBound(veri, 2)...

Merhaba tekrardan, Yapılan uyarılardan sonra, açmış olduğum konu ile ilgili olarak ListView yerine Listbox kullanmaya çalışıyorum. Konu ile ilgili olarak aşağıda Cari adlı excel sayfası üzerinde yapabildiğim kodları Access deki Cari adlı tablo üzerinde yapmaya çalışıyorum. İlgili kodlar...

Merhaba, Excelde userform ve diğer nesneleri kullanarak yaptığım bazı uygulamaları Listview ve Access e yansıtmaya çalışıyorum. Şöyleki, Excelin sayfalarını veri tabanı gibi kullanmaktaydım ve süzme, listeleme işlemlerinde özellikle listbox kullanmaktaydım. Yapmaya çalıştığım şey; Excel...

Bu şekilde deneyiniz. Küsüratlı sayılarda yuvarlama yapmak sorunu çözebilir. Option Explicit Sub ToplamAl() Dim Veri As Variant, X As Long, Say As Long, Son As Long Son = Sheets("sayfa1").Cells(Rows.Count, 1).End(3).Row If Son < 3 Then Son = 3 Veri = Range("A2:B" &...

Sevgili arkadaşlar aşağıdaki kodlar ile bi raporlama yapıyorum(bu kodları bu forumda ki çok değerli arkadaşlar yazdı). Raporlama sonuçlarını çalışma sayfasına aktarınca A Sütununda numaralandırma yapıyor(1.2.34....... diye) Veriler çok fazla olduğu için bu raporlamayı çok yavaşlatıyor çok uzun...

Küsürat bölümünü arttırdığınızda o rakamları görebilirsiniz. Konuyla ilgili linki inceleyebilirsiniz. http://www.excelgurusu.com/excelde-kayan-nokta-hesaplamalari-ve-tutarsizlik/ Userform kodunuzda kullandığınız Format kullanımından kaynaklı sorun yaşıyorsunuz. Aşağıdaki gibi değiştirirseniz...

Cevap 1: Üstteki satırları bulun alttakilerle değiştirin 'Veri = Range("A2:B" & Son) Veri = Range("A2:C" & Son) 'Liste(say, 2) = Veri(i, 2) Liste(say, 2) = Veri(i, 3) 'Liste(.Item(Veri(i, 1)), 2) = Liste(.Item(Veri(i, 1)), 2) + Veri(i, 2) Liste(.Item(Veri(i, 1)), 2) = Liste(.Item(Veri(i, 1))...

@yamahato, Siz de aşağıdaki kodu deneyebilirsiniz. Private Sub TextBox1_Change() Dim S1 As Worksheet, WF As WorksheetFunction, Adres_Listesi As Object, Adres As String Dim Aranan_Metin As Variant, Metin_Say As Integer, Liste As Variant Dim Son As Long, Veri As Variant, X As Long...

Ustam Allah sizlerden binkere razı olsun zamanınızı emeğiniz verdiniz çok teşekkür ediyorum.

Arama işlemini düzenledim deneyiniz. Sub KayitlariAl() Dim S1 As Worksheet, WF As WorksheetFunction, Adres_Listesi As Object Dim Adres As String, Aranan_Metin As Variant, Metin_Say As Integer Dim Liste As Variant, Son As Long, Veri As Variant, X As Long, Y As Long, Say As Long...

Merhaba, Aşağıdaki kodlarda diziler ile ilgili yerde nasıl değişiklik yapmalıyım ki şu sonuca ulaşayım. Redimin geçtiği kod aralıklarını Cari sayfasından C ve D sütunları olmak üzere iki sütunu almak için kullanmaktaydım. Ancak daha sonra veri almam gereken sütun sayısını 4 e çıkardım. C, D...

Merhaba, Aşağıdaki kod, ilgili sayfada "B2" de yazan sütun için ve o sütunun son boş hücresine kayıt yapıyor, Örneğin, "B2" de "D" yazıyor ve son dolu hücre "D15" ise kayıt "D16" ya yapılıyor, İsteğim, makronun "B2" de yazan sütun için, ilk boş hücreye kayıt yapmasıdır, Örneğin, "B2" de "D"...

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 TextBox1.Value = "" Then MsgBox "Lütfen Sicil Numarasını Giriniz !!!", 16, "Dikkat" End If If TextBox1.Value = "" Then Exit Sub ReDim...

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

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 TextBox1.Value = "" Then MsgBox "Lütfen Sicil Numarasını Giriniz !!!", 16, "Dikkat" End If If TextBox1.Value = "" Then Exit Sub ReDim...

Private Sub Workbook_SheetChange(ByVal sh As Object, ByVal Target As Range) Dim Sayfa As Worksheet, Alan As Range, Veri As Range, Aranan As String, Bul As Range, Adres As String, Mesaj As String, Dizi As Object, Say As Long On Error Resume Next Set Alan = Range("D2:D1048576")...

Nasıl kullanacağınızın mantığını anlamadım. Çünkü bu şekilde kullanırsanız kod amacının dışına çıkmış olur gibi geldi bana. Userformun kod bölümüne ekleyip deneyiniz. ThisWorkbook sayfasındaki kodları silebilirsiniz. Private Sub UserForm_Initialize() Call Mukerrer_Bul End Sub Private Sub...

Merhaba, Deneyiniz. 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 TextBox1.Value = "" Then MsgBox "Lütfen Sicil Numarasını Giriniz !!!", 16, "Dikkat" End If If TextBox1.Value = "" Then Exit Sub...

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

Merhaba, Listbox özellikler de "columnHeads" özelliğini True yaptıktan sonra; başlıkları manuel olarak nasıl ekleyebiliriz? RowSource yöntemiyle otomatik geliyor, yalnız List yönteminde başlıklar boş geliyor. bunu manuel olarak nasıl yazabiliriz? Redim Dizi (1 to 10, 1 to 6) me.ListBox1.list...