"run time error 9 subscript out of range" sorunu

[manisalı88]

Arkadaşlar makro "run time error 9 subscript out of range" sorununu veriyor. dosya ekte bana yardımcı olabılır mısınız

 

[Emir Hüseyin Çoban]

. . .

Şu kısmı kontrol ediniz.
Userform1 de UserForm_Initialize altındaki kodlarda
Kırmızı ile belirttiğim alanı kontrol ediniz.
Sheets("Sayfa1") gibi bir sayfa ismi olmalı.

Private Sub UserForm_Initialize()

yuk = Me.Width
gen = Me.Height
buyuk = ""
'Combo.RowSource = "Sayfa1!E3:E" & Sheets("sayfa1").[E65536].End(3).Row

For i = 1 To sut
Controls("Label" & i) =[COLOR="Red"][B] Sheets("")[/B][/COLOR].Cells(1, i).Value
Combo.AddItem Sheets("REHBER").Cells(1, i).Value
Controls("ComboBox" & i).ControlTipText = Sheets("REHBER").Cells(1, i).Value

. . .

 

[manisalı88]

çok sagolun tesekkur ederim