Kod Problemi!

[baykan_m]

Merhaba Arkadaşlar,

Userformun açılışı ve açılınca comboboxlara il ilçe getirmesi için aşağıdaki kodları uyguladım. Tam ekran kodu güzel çalışıyor ancak il ilçe ekleme kodu eklendiği zaman userforma girmiyor hata veriyor. Sanırım il ilçede yazılan Dim hcr As Range, rng As Range kodunda hata veriyor. Bu kodu nasıl güncelleyebiliriz arkadaşlar?

Private Sub UserForm_Initialize()
Dim X1 As Long, Y1 As Long, Y2 As Long, X2 As Long
Dim CX As Double, CY As Double
Dim MyCtrl As Control
X1 = Application.Width
Y1 = Application.Height
X2 = Me.Width
Y2 = Me.Height
CX = X1 / X2
CY = Y1 / Y2
Me.Width = X1
Me.Height = Y1
For Each MyCtrl In Me.Controls
MyCtrl.Top = MyCtrl.Top * CY
MyCtrl.Left = MyCtrl.Left * CX
MyCtrl.Width = MyCtrl.Width * CX
MyCtrl.Height = MyCtrl.Height * CY
On Error Resume Next
MyCtrl.Font.Size = MyCtrl.Font.Size * CY
On Error GoTo 0
Next

Dim hcr As Range, rng As Range
Set rng = Sheets("tanımlar").Range("e5", Range("e5").End(xlDown))
ComboBox1.RowSource = ""
    For Each hcr In rng
        If hucredeg <> hcr.Value Then ComboBox1.AddItem hcr.Value
        hucredeg = hcr.Value
    Next
End Sub

Private Sub ComboBox1_Change()
Dim hcr As Range, rng As Range
Set rng = Sheets("tanımlar").Range("e5", Range("e5").End(xlDown))
ComboBox2.RowSource = ""
ComboBox2.Clear
    For Each hcr In rng
        hucredeg = hcr.Value
        If hucredeg = ComboBox1.Value Then
            ComboBox2.AddItem hcr.Offset(, 1).Value
        End If
    Next
ComboBox2.ListIndex = 0
End Sub

 

[baykan_m]

Arkadaşlar yarımcı olabilecek yok mu acaba

 

[Haluk]

Dosyanın kendisini ekleyin ki ona göre bir çözüm bulalım ...

.