Userform açılmıyor

[Yüksel Varlı]

Kafayı sıyırmak işten değil arkadaş. Koskoca Userform1 i görmüyor, Object Required diyor.

 

[ZorBey_]

Merhaba
İyi Çalışmalar
Dosyanız Ektedir.

 

[Yüksel Varlı]

Sayın Asr35,
Bu saatte ilgilendiğiniz için teşekkür ederim. Bir programın hatasını bulmak, onu yeniden yapmaktan zordur. Ama şimdi de şöyle bir hata oluştu. İngilizcem olmadığı için hata kodlarından da anlamıyorum. Müsaitseniz bakar mısınız.

 

[ZorBey_]

Sizde İngilizce Yok
Bende Kodlardan Anlama Yok
Umarım Bir Arkadaş Yardımcı Olur.

 

[ZorBey_]

'ComboBox2.RowSource = "Sayfa1!y1:y" & WorksheetFunction.CountA(Sheets("sayfa1").Range("y:y"))
İptal ettim Form Açıldı

 

[Ömer BARAN]

UserForm'a ait
Private Sub UserForm_Initialize()

olayında sorun var, ne olduğuna bakmadım (gerçi kod işinden pek anlamam ama)
sadece yukarıdaki initialize olayını devre dışı bırakınca form açılıyor.
O kodları kontrol edin bence.
İyi günler.

 

[Yüksel Varlı]

@asr35,
Sağolun, bu da yeterli

@omer.baran
Sayın asr35in belirttiği kodları silince form açıldı. Bu sefer #3. mesajda gönderdiğim resimdeki hatayı alıyorum. İşin kötü tarafı 10 dakika önce ben bu kodları çalıştırdım. Sorunsuz çalışıyordu. Şimdi tık yok

 

[ZorBey_]

Siz Benim Gönderdiğim Dosyayı Değilde
Sizin ilk Dosyanız ÜZerinde
'ComboBox2.RowSource = "Sayfa1!y1:y" & WorksheetFunction.CountA(Sheets("sayfa1").Range("y :y"))
İptal edin
Birde Öyle Deneyin

 

[ZorBey_]

'Dim Liste As ListItem ' Öncelikle list item için bir değişken tanımlayalım
İptal edin

 

[ZorBey_]

Bu Dosyayı Denermisiniz

 

[Yüksel Varlı]

Denedim, sonuç değişmedi. Hata sizin yaptığınız işlemlerden değil.

 

[ZorBey_]

En Son Gönderdiğim Dosyayı Denedinizmi

 

[Yüksel Varlı]

ben cevap yazana kadar sizi iki cevap daha yazmışsınız. Özür

 

[Yüksel Varlı]

Şimdi denedim. ListWiev de seçilen malzemenin kaçıncı sırada olduğunu gösteriyor.

 

[ZorBey_]

Yani Oldumu
Çalışıyormu

 

[Yüksel Varlı]

Görünen bu... Çalışmıyor.
@asr35 kardeş, sabah salim kafayla bir daha bakarız. Çok acil değil nasılsa. Sizi yormayalım.

 

[ZorBey_]

Şu Resimdeki Uygulamayı Denermisiniz

 

[ZorBey_]

Bu Dosya Çalışıyor Denermisiniz

 

[vardar07]

Arkadaşım userform_intialize kısmında eğer userform üzerinde yoksa

ComboBox2.RowSource = "Sayfa1!y1:y" & WorksheetFunction.CountA(Sheets("sayfa1").Range("y:y"))

Busatırı silerseniz çalışır.

 

[Levent Menteşoğlu]

Sayfa1'in "Y" sütununda veri olmalı. Bu sütun boş olduğu için aşağıdaki satırda hata veriyor. Sayfa1!y1:y0 olamaz.

ComboBox2.RowSource = "Sayfa1!y1:y" & WorksheetFunction.CountA(Sheets("sayfa1").Range("y:y"))