makroda hata

[cebelitarık]

Forumun değerli üyeleri hayırlı günler

yaptığım bir userform uygulaması normal çalırken
şimdi aşağıdaki hata mesajını vemektedir
ve userform açılmamamaktadır.

Run-time error '424'
object required

ne anlama gelmektedir
saygılar

 

[Ferhat Pazarçevirdi]

Merhabalar

VBE'de Menüden, Tools->References'e girin.

Başında "Missing" yazan referans(lar)ınız eksiktir. Yükleyin.

 

[cebelitarık]

Sayın fpc teşekkür ederim
missingleri nerden yükleyeceğimi bulamadım.
References penceresi içerisinde missing ile başlayan bir şey bulamadım.
ayrıca browser penceresindende aradım
bulamadım.

ancak benim makroda hata veren ve userformu açtırmayan satırı buldum o satır aşağıdaki şekilde dir
' ListBox1.Column(1, sat).Value = Format(ListBox1.Column(1, sat).Value, "dd.mm.yyyy")
Bu satırı kaldırınca userform açıldı.
bu satırı koymammın sebebi listbox un içindeki tarih kolonunda tarikhler
1/23/2008 olarak gözükmektedir ben bunu 23.01.2008 şeklinde biçimlemek için koymuştum ama bu kod bir kaç kez çalıştıktan sonra userform açılmaz oldu ve yukarda yazdığım hatayı verdi

 

[Ferhat Pazarçevirdi]

Bahsettiğiniz satırda hata almanız, anormal bir durum.

Eğer Missing/Kayıp referans yoksa, muhtemelen fazla (ilgisiz) referans(lar) vardır o zaman. References pencersinde nelerin işaretli olduğunu bildirir misiniz?

 

[cebelitarık]

Sayın Fpc
References penceresinde aşağıdakilerin kutucukları işaretli 5 adet

Visual Basic for Aplication
Microsoft Excel 11.0 Object library
OLE Automaticion
Microsoft Office 11.0 Object library
Microsoft Forms 11.0 Object library

ayrıca bu references penceresindeki şeyler ne işe yarar?

ListBox1.Column(1, sat).Value = Format(ListBox1.Column(1, sat).Value, "dd.mm.yyyy")
bu satırın yazılışı normalmi şu şekilde yazsak olurmu?
ListBox1.Column1.Value = Format(ListBox1.Column1.Value, "dd.mm.yyyy")


userformun tüm kodu şudur
Private Sub UserForm_Initialize()
Dim i As Long, sat As Long
ListBox1.RowSource = ""
For i = 2 To [M65536].End(3).Row

If Cells(i, "M").Value = Val(DEFTERDUZELTFORM.cbAd.Value) Then

ListBox1.AddItem
ListBox1.ColumnCount = 9
ListBox1.ColumnWidths = "20;55;35;60;110;35;25;80;35"
' ListBox1.Column(1, sat).Value = Format(ListBox1.Column(1, sat).Value, "dd.mm.yyyy")
ListBox1.Column(0, sat) = Cells(i, "A").Value
ListBox1.Column(1, sat) = Cells(i, "B").Value
ListBox1.Column(2, sat) = Cells(i, "C").Value
ListBox1.Column(3, sat) = Cells(i, "M").Value
ListBox1.Column(4, sat) = Cells(i, "L").Value
ListBox1.Column(5, sat) = Cells(i, "D").Value
ListBox1.Column(6, sat) = Cells(i, "E").Value
ListBox1.Column(7, sat) = Cells(i, "G").Value
ListBox1.Column(8, sat) = Cells(i, "S").Value
sat = sat + 1
ücret = ücret + Cells(i, "S").Value
End If
Next
Label119 = ücret

End Sub

 

[Ferhat Pazarçevirdi]

Peki, Listbox1 adında bir nesne var mı Projenizde? İsmini değiştirmişseniz, kodlar satırda, belki de bundan çuvallıyordur ...

 

[cebelitarık]

Listbox1 nesnesi mevcuttur.

 

[Ferhat Pazarçevirdi]

5 Nolu mesajınızdaki kodları sonradan ilave etmişsiniz anlaşılan, ben cevap yazdığımda yoktu ...

Bu satırı ; ' ListBox1.Column(1, sat).Value = Format(ListBox1.Column(1, sat).Value, "dd.mm.yyyy"), üç satır aşağıya çekip kodları tekrar çalıştırınızç

 

[cebelitarık]

Sayın fpc

dediğinizi yaptım yine aynı hata mesajını vermektedir
bu satırı kaldırdığımda düzelmektedir

biçimlendirmeyi başka bir şekilde yapmak mümkünmüdür.
ilginiz için teşekkür ederim

 

[Ferhat Pazarçevirdi]

Ben kodlarınıza hiç müdahale etmeden çözebilirmiyiz diye böyle bir gidişat takip ettim ama demekki olmayacak.

Siz Listbox'ın 1.sütunundaki verinin tarih formatında mı görünmesini istiyorsunuz? Buna ek başka şekillendirmeler de olacak mı?

 

[Orion1]

Aşağıdaki gibi denermisiniz?

ListBox1.Column(1, sat) = Format(ListBox1.Column(1, sat), "dd.mm.yyyy")