Skip to main content

AccessTr.neT


Userform_ınitialize Sorunu

Userform_ınitialize Sorunu

Çözüldü #1
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

.rar Per.Çiz2.rar (Dosya Boyutu: 237,27 KB | İndirme Sayısı: 2)
Cevapla
#2
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
Cevapla
#3
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.

Visual Basic Code
    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

Cevapla
#4
(19/05/2020 23:59)m_demir Adlı Kullanıcıdan Alıntı: 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.

Visual Basic Code
    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.
Son Düzenleme: 20/05/2020, 00:09, Düzenleyen: feraz.
Cevapla
#5
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]
Cevapla
#6
Pekii kod nasıl hata veriyor resim varmı?
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task