Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Userform_ınitialize Sorunu

m_demir
m_demir
Excel Cevaplanmış Soruları
17
1138

Userform_ınitialize Sorunu

Çözüldü #1
m_demir
Aktif Üye
m_demir
Bul
Aktif Üye
Adı Soyadı: De.... Yı....
Yaşı: 65
Konum: -
Ofis Versiyonu: Ofis 2010 64 Bit
Son Oturumu: 19/12/2022,14:17
Yorumları: 640
Konuları: 129
Kayıt Tarihi: 03/06/2016
Teşekkür Puanı: 0
Mesleğiniz: Grafiker
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ı: 3)
Cevapla
#2
feraz
Uzman
feraz
Bul
Uzman
Adı Soyadı: Za....
Yaşı: 46
Konum: -
Ofis Versiyonu: Ofis 2016 32 Bit
Son Oturumu: Bugün,14:34
Yorumları: 3.396
Konuları: 95
Kayıt Tarihi: 30/03/2013
Teşekkür Puanı: 301
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
m_demir
Aktif Üye
m_demir
Bul
Aktif Üye
Adı Soyadı: De.... Yı....
Yaşı: 65
Konum: -
Ofis Versiyonu: Ofis 2010 64 Bit
Son Oturumu: 19/12/2022,14:17
Yorumları: 640
Konuları: 129
Kayıt Tarihi: 03/06/2016
Teşekkür Puanı: 0
Mesleğiniz: Grafiker
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
Cevapla
#4
feraz
Uzman
feraz
Bul
Uzman
Adı Soyadı: Za....
Yaşı: 46
Konum: -
Ofis Versiyonu: Ofis 2016 32 Bit
Son Oturumu: Bugün,14:34
Yorumları: 3.396
Konuları: 95
Kayıt Tarihi: 30/03/2013
Teşekkür Puanı: 301
(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.
Cevapla
#5
m_demir
Aktif Üye
m_demir
Bul
Aktif Üye
Adı Soyadı: De.... Yı....
Yaşı: 65
Konum: -
Ofis Versiyonu: Ofis 2010 64 Bit
Son Oturumu: 19/12/2022,14:17
Yorumları: 640
Konuları: 129
Kayıt Tarihi: 03/06/2016
Teşekkür Puanı: 0
Mesleğiniz: Grafiker
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
feraz
Uzman
feraz
Bul
Uzman
Adı Soyadı: Za....
Yaşı: 46
Konum: -
Ofis Versiyonu: Ofis 2016 32 Bit
Son Oturumu: Bugün,14:34
Yorumları: 3.396
Konuları: 95
Kayıt Tarihi: 30/03/2013
Teşekkür Puanı: 301
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