maalesef listede adınız yok
aşağıdaki resimde yer alan uyarıyı veriyor

(12/05/2021, 17:08)Oğuz Türkyılmaz yazdı:

(12/05/2021, 16:53)berduş yazdı: xlsb uzantısı hakkında çok bilgim yok ben de bir yerlerde hızlı olduğunu okumuştum, sadece o kadar
ama çalışmanızda sertifika sorunu var o nedene de normalde uyguladığım yöntemlerle makrolarınızı çalıştıramadım mecburen tüm makrolara izin vermek zorunda kaldım

---

(12/05/2021, 16:48)Oğuz Türkyılmaz yazdı: Kodun bu hali eskiye nazaran belki bir tık daha yavaş

tam olarak hangi kodu kullandınız?
kaç satır veri vardı?

1200 satır veri var ve sürekli artıyor. Formun yüklenmesi olayına bugün feraz hocamın yaptığı comboboxtaki verilerin alfabetik sıralanması ile ilgili kod dan önceki hızlı haline göre şu an belki bir tık daha yavaş ama hiç önemli değil yeterince hızlı. Ama eminim dosya xlsx yada xlsm olsaydı bu kadar hızlı olmazdı eminim. Çünkü açılışta yüklenmede ve kayıtda gerçekten müthiş fark yarattı diğer dosya türlerine göre. İyi ki o makaleyi okumuşum. Sertifika sorunu Dijital imza ile ilgili sanırım tools bölümünden dijital imza bölümüne bir bakarmısınız benim adım geçiyor olması lazım geçmiyorsa listeden seçip tekrar tamam dediğinizde makroları yine eski haline getirebilirsiniz. Ben de işyerindeki bilgisayardan evdeki bilgisayara geçince aynı sorunu yaşadım ve dediğim şekilde hallettim ama sizde nasıl hallolacağı konusunda bir fikrim yok açıkçası. Normalde benim dijital imzayı kullanmamın sebebi karşı tarafın güvenle benden gelen dosyaları açması için ama uygulamaya koyalı sanırım ilk siz benden gelen dosyayı açtınız ve bende merak ettim şimdi neden bu şekilde olduğunu.

---

(12/05/2021, 17:02)feraz yazdı:

(12/05/2021, 16:48)Oğuz Türkyılmaz yazdı: xlsb uzantılı dosya ile çalışmak bende hangi durumlarda sıkıntı yaratabilir

Benim bildiğim dosya boyutunu küçültüyor.Birde Excel dosya bozulursa xlsb ya hiç kurtarılmıyor yada çok zormuş kurtarma.Tabii hızlı xlsm ye göre.Başkada bir fark yok diye duymuştum.

Hergün yedek alacağım başka çarem yok. Buna değer. Şu an hızından çok memnunum.

---

1200 satır ve 32 33 gibide sütun sayısı.

Ado şimdi örneğin kaç saniye sürüyor 3000 satır için?
Ayrıca system.collectionobject diye olayda var.o kodu yazarsam çalıştırıp denersiniz hız abey.
Bu Ado dediğim gibi önceden Türkçe karakterleri en altta sıralıyordu şimdi değil çok garip

@berduş hocam bu dosyada bir denermisiniz lütfen sonra kaldıralım dosyayı

---

@feraz hocam şuan 1200 satır kadar var 1 aya kadar verileri girmem biter 3000 3500 arası bir satır olur. dosyanın şuan dolu halini yükledim bakanilirsiniz sizd de sertifika sorunu oluyormu bilgilendirirseniz sevinirim.

kodu hem ilk yüklediğiniz haliyle hem de bu haliyle denedim pek fark göremedim
Not :referans eklenmiş.
kullanıdığım kod:

Private Sub UserForm_Initialize()



   Dim sonStr As Long

  

    With ThisWorkbook.Sheets("Ana_Sayfa")



        sonStr = .Cells(.Rows.Count, "c").End(xlUp).Row

        'hy____________________________AçılırKutu_Deneme

        Dim Sql As String

        Dim ADO_RS As ADODB.Recordset

        Dim ADO_CN As ADODB.Connection



        Sql = "SELECT [F1] " & _

              "FROM [Ana_Sayfa$C2:C" & sonStr & "] " & _

              "ORDER BY [F1];"



        Set ADO_RS = New ADODB.Recordset

        Set ADO_CN = New ADODB.Connection



        ADO_CN.ConnectionString = "provider=Microsoft.ACE.OLEDB.12.0;data source=" & ThisWorkbook.FullName & _

                                  ";extended properties=""excel 8.0;hdr=No"""

        ADO_CN.Open

        ADO_RS.Open SQL, ADO_CN, 3, 1



        If ADO_RS.RecordCount = 0 Then GoTo son



        ADO_RS.MoveLast

        ADO_RS.MoveFirst



         ComboBox_FirmaUnvani.Column = ADO_RS.GetRows



son:

        ADO_RS.Close

        ADO_CN.Close

        Set ADO_RS = Nothing

        Set ADO_CN = Nothing

'hy_____________________________________________Bitti

    End With



    Application.AutoCorrect.AutoExpandListRange = True



    IlleriAktar

    TextBox_Tarih = Format(Date, "dd.mm.yyyy")



        With TextBox_Tarih

        .SelStart = 0

        .SelLength = .TextLength

        End With



End Sub

isterseniz

        ADO_RS.MoveLast

        ADO_RS.MoveFirst

satırları devre dışı bırakarak da deneyebilirsiniz ama dediğim gibi ben pek hız farkına rastlamadım

---

ama ilginçtir excelin kendi filtrelemesinde bile
Kocacam ve AKPEN yapı listenin en sonunda

Evet hocam bana da kafayı yedirtti o filtreleme konusu ama utandım konu açmaktan. Şu anki hali hız olarak benim için yeterli eski ve yeni hali arasında pek fark kalmadı fark formun yüklendiği olayına yazılan ADO olmadan feraz hocamın yazdığı koddan sonra alfabetik sıralamalı haliyle sıralama olmadan önceki hali arasında bende çok fark yaratmıştı. Yanlış anlaşılma olmasın. Şu an ADO lu hali alfabetik sıralama yapılmamış haliyle hemen hemen aynı bende yani sorun yok. @berduş hocam Dosyayı açarken sorunla karşılaştınız mı yine asıl onu merak ediyorum.

mevcut sertifika sorunu devam ediyor
bahsettiğim gibi setifika yüklenmesi başarılı dese bile sertifikanız güvensiz olarak adlediliyor

hepsini çalıştır yapıyorum, o zaman çalışıyor

---

bu arada listedeki sorunlu olan Kocacam ve AKPEN YAPI silinip yeniden yazılınca düzeliyor

---

son haliyle sorununuz çözüldü mü?
cevaplanmışlara taşıyalım mı?