AccessTr.neT
Userform_ınitialize Sorunu - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Userform_ınitialize Sorunu (/konu-userform-initialize-sorunu.html)

Sayfalar: 1 2 3


Userform_ınitialize Sorunu - m_demir - 19/05/2020

Merhaba arkadaşlar 
Eklediğim uygulamada UserForm1 çakıışmiyor.
 UserForm_Initialize aşağıdaki kodları sildiğim zaman açılıyor. UserFom1 çalışması için aşağıdaki kodu nasıl değiştirebilirim.

Kod:
Dim col As Object
    Set col = CreateObject("System.Collections.ArrayList")

    For i = 7 To [d65536].End(3).Row
        If Not col.contains(CStr(Cells(i, "d").Value)) = True Then
          col.Add CStr(Cells(i, 4))
     
      End If
    Next
ComboBox3.Clear
If col.Count > 0 Then
    col.Sort
    ComboBox3.List = col.toarray
End If
Set col = Nothing




RE: Userform_ınitialize Sorunu - feraz - 19/05/2020

Bende çalışıyor.
Eğer Framework yüklü değilse ondan olabilir altttan indirip yükleyip deneyebilirsiniz.

https://www.microsoft.com/tr-TR/download/details.aspx?id=30653


RE: Userform_ınitialize Sorunu - m_demir - 19/05/2020

Merhaba Hocam Nasılsınız. Hocam bende de çalışıyordu. Ofis programını kaldırıp ayni versiyonu yenden yükledim çalışmadı. Neden kaynaklanıyor bilmiyorum.

Aşağıdaki şekilde çalışıyor.


    For i = 7 To [d65536].End(3).Row
        If WorksheetFunction.CountIf(Range("d7:d" & i), Cells(i, "d")) = 1 Then
          ComboBox3.AddItem CStr(Cells(i, 4))
      End If
    Next




RE: Userform_ınitialize Sorunu - feraz - 20/05/2020

(19/05/2020, 23:59)m_demir yazdı: Merhaba Hocam Nasılsınız. Hocam bende de çalışıyordu. Ofis programını kaldırıp ayni versiyonu yenden yükledim çalışmadı. Neden kaynaklanıyor bilmiyorum.

Aşağıdaki şekilde çalışıyor.


    For i = 7 To [d65536].End(3).Row
        If WorksheetFunction.CountIf(Range("d7:d" & i), Cells(i, "d")) = 1 Then
          ComboBox3.AddItem CStr(Cells(i, 4))
       End If
    Next

Şükür sizi sormalı.Yukardaki kodla alakası yok alttaki koddan dolayı verdiğim linktekini indirip kurunuz.
Kod:
CreateObject("System.Collections.ArrayList")

ilk verdiğiniz kod verileri benzersiz yapıp sıralama yapar.Dahada yapamazsanız önceki dosyanızda vardı sıralama vs.. onları kullanabilirsiniz.


RE: Userform_ınitialize Sorunu - m_demir - 20/05/2020

Teşekkürler Hocam ben de iyiyim.

Framework yüklemek istediğim zaman zaten yüklü uyarısını alıyorum.

[Resim: do.php?img=10227]


RE: Userform_ınitialize Sorunu - feraz - 20/05/2020

Pekii kod nasıl hata veriyor resim varmı?