Hata Mesajı

[NOKİ69]

Private Sub UserForm_Activate()
Sheets("REH").Select
SON = Cells(65536, "A").End(3).Row
Label19 = Cells(SON, "A")
ComboBox1 = "."
ComboBox1 = ""
Label15 = Range("A1")
Label16 = Range("B1")
Label17 = Range("C1")
Label36 = Range("D1")
Label37 = Range("G1")
Label38 = Range("H1")
ComboBox6.RowSource = "Par!C2:C" & _
WorksheetFunction.CountA(Worksheets("Par").Range("C1:C65536"))
Label24.Caption = Worksheets("PAR").Range("D1")
End Sub



Yukarda belirtilen kod içerisinde "SON = Cells(65536, "A").End(3).Row"
yazılı alanda KOD hatası veriyor ayrıca resimde görülen hata ekranda beliriyor. yardımlarınıza şimdiden teşekkür ederim

 

[hamitcan]

Sorun, o satırdan kaynaklanmıyor diye düşünüyorum. Sorun, bence form içindeki bazı nesnelerin yüklenememesi ile ilgili. Forumda arama yaparsanız, benzer konulara rastlayabilirsiniz.

 

[NOKİ69]

Sorun, o satırdan kaynaklanmıyor diye düşünüyorum. Sorun, bence form içindeki bazı nesnelerin yüklenememesi ile ilgili. Forumda arama yaparsanız, benzer konulara rastlayabilirsiniz.

İngilizcesi olan arkadaşlar çözer umut ederim.