AccessTr.neTMicrosoft ExcelExcel Cevaplanmış Soruları

Userform_ınitialize Sorunu

1 2 3
19/05/2020, 22:08

m_demir

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
19/05/2020, 23:55

feraz

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

https://www.microsoft.com/tr-TR/download...x?id=30653
19/05/2020, 23:59

m_demir

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
20/05/2020, 00:06

feraz

(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.
20/05/2020, 00:14

m_demir

Teşekkürler Hocam ben de iyiyim.

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


20/05/2020, 00:18

feraz

Pekii kod nasıl hata veriyor resim varmı?
1 2 3