Hata Mesajı

[İsmail Küçükşengün]

Merhabalar;

Çalışan bir userformda, kodlarla ufak bir değişiklik yaptığımda,
aşağıdaki hata mesajı vermekte ve form açılmamaktadır.

Düzeltilmesi için ne yapılabilir.

 

[Recep İpek]

Userform açılış kodlarını ekleyebilirmisiniz?

 

[İsmail Küçükşengün]

Sn.ripek;
Private Sub CommandButton83_Click()
UserForm13.Show
End Sub

 

[Recep İpek]

Yanlış anlattım galiba.

Userformunuzun Initialize veya Activate kodlarını ekleyebilirmisiniz?

 

[İsmail Küçükşengün]

Private Sub UserForm_Initialize()

TextBox30 = Sheets("veri1").Range("AK2").Value
TextBox31 = Sheets("veri1").Range("AL2").Value

TextBox32 = Sheets("veri1").Range("AK2").Value
TextBox33 = Sheets("veri1").Range("AL2").Value
ComboBox1.RowSource = "veri1!A2:A6536"
Formu_Temizle




Sheets("veri1").Select



Range("A3:AB65500").Select
Selection.Sort Key1:=Range("D3"), Order1:=xlDescending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("D3").Select
ListBox1.RowSource = ("veri1!A2:G65500")
ListBox1.ColumnCount = 7 'Listbox'un Kolon sayısı
ListBox1.ColumnWidths = "100;140;110;40;40;110;100" 'Listbox'un Kolon genişlikleri
ListBox2.ColumnCount = 7 'Listbox'un Kolon sayısı
ListBox2.ColumnWidths = "100;140;110;40;40;110;100" 'Listbox'un Kolon genişlikleri
say = WorksheetFunction.CountA(Worksheets("veri1").Range("A:A")) 'faturalar A sütunundaki dolu hücre sayısı.
ListBox2.RowSource = "veri1!" & "A3" & ":" & "G" & say

End Sub

Activate'de kod yok

 

[Recep İpek]

Formu_Temizle makrosu var ise

bu satırı aşağıdaki şekilde değiştirebilirmisiniz?

Call Formu_Temizle

 

[İsmail Küçükşengün]

Sn. ripek;

Sonuç değişmedi.

 

[Recep İpek]

Dosyanızın boyutu küçük ise veya örnek olarak düzenleyip eklerseniz bir bakalım.Bende merak ettim doğrusu....

 

[Recep İpek]

Anladığım kadarıyla userform üzerinde gizli veya benzeri bir kontrole bilgi alamıyor.Yahut kontrollerin ismi ile kodlardaki isimler birbirlerini tutmuyor gibi görünüyor.

 

[İsmail Küçükşengün]

Sn. ripek;

İlginize çok teşekkürler.

Formu temizle kodlarını silerek sorunumu çözdüm.
Selamlarımla.