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

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

Yusuf Bey, Çok teşekkürler, istediğim gibi olmuş görünüyor.

Listbox1'in kodlarını aşağıdakilerle değiştirip dener misiniz? Private Sub ComboBox1_change() 'On Error Resume Next ListBox1.ColumnCount = 98 ListBox1.ColumnWidths = "30;60;180;60;50;100;50;50;50" Dim k As Range, adrs As String, j As Byte, a As Long ReDim myarr(1 To 12, 1 To 1) With...

Değerli arkadaşlarım daha önce yine burada arkadaşların yazdığı alttaki kodla işlerimi hallediyordum. Şimdi sizlerden eğer mümkünse bir şey rica ediyorum. 1-Gitmek istediğim sayfayı TextBox a yazarken büyük küçük harf duyarlı olmasa(Küçük harfle yazınca tekrar silip yazmam gerekiyor) 2-Yanlış...