Userformun birinde çalışan kod diyerinde hata veriyor.

[s.savas]

Merhaba arkadaşlar aşağıdaki kod frmONAY isimli formda çalışırken frmRAPOR isimli formda hata vermektedir.
Hata kaynağını bulamıyorum, yardımcı olacak arkadaşlara teşekkür ederim.

Private Sub ComboBox2_Change()
Dim Bul As Range, Sayfa As String
Sayfa = Left(Sheets("BÜTÇE_KODU").Range("D1"), 4)

   If ComboBox1 <> "" And ComboBox2 <> "" Then
    b = 13 '"M" sütunu
    Select Case ComboBox2.Value
    Case "m.21-f", "m.22-d"  'combo value "m.21-f", "m.22-d" ise
    If CheckBox1.Value = True Then
    grup
    Exit Sub
    End If
   b = 12 '"L" sütunu
    End Select
        With Sheets(Sayfa & "_BÜTÇESİ")
            For x = 10 To .Range("B65536").End(3).Row
                  If .Cells(x, 2) = ComboBox1 Then
                  Label126 = .Cells(x, b)
                  Label126.Caption = FormatCurrency(.Cells(x, b).Value, 2)
                    Exit For
                    End If
            Next
        End With
    End If
 
End Sub

 

[Mehmet Şahin]

Merhaba,
dosyanız bende hata verdi ama, ilk bakışta frmRAPOR formunda CheckBox1'i göremedim.

 

[s.savas]

Üstat CheckBox1 frmONAY formunda bulunmaktadır. Bu işlem için

If frmONAY.CheckBox1.Value = True Then

şeklinde tanımlıyorum fakat sorun hep b=13 kısmında takıldı, bir adım ötesine gidemedim.

 

[s.savas]

Arkadaşlar kod bloğunun en başında bulunan Option Explicit'i kaldırınca sorun çözüldü.