Labele veri alamıyorum.

[s.savas]

İyi geceler arkadaşlar.
Ekli dosyada frmRAPOR isimli formda bulunan, ComboBox1 deki bütçe koduna göre ComboBox2 deki değer "m.21-f" ve "m.22-d" haricindeki alım türleri seçilince Label126 için 2011_BÜTÇESİ sayfasının D sütunundan, Label129 için ise L sütunundan veri alıyor. Ancak "m.21-f" ve "m.22-d" alım türleri seçilince Label129 için L sütunundan veri alınamıyor.

Sorunuma bir göz atarsanız memnun olurum.

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 = 5
    Select Case ComboBox2.Value
    Case "m.21-f", "m.22-d"
    If frmONAY.CheckBox1.Value = True Then
    grup
    Exit Sub
    End If
   b = 4
    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
  
If ComboBox1 <> "" And ComboBox2 <> "" Then
    b = 13
    Select Case ComboBox2.Value
    Case "m.21-f", "m.22-d"
    If frmONAY.CheckBox1.Value = True Then
    grup1
    Exit Sub
    End If
   b = 12
    End Select
        With Sheets(Sayfa & "_BÜTÇESİ")
            For x = 10 To .Range("B65536").End(3).Row
                  If .Cells(x, 2) = ComboBox1 Then
                  Label129 = .Cells(x, b)
                  Label129.Caption = FormatCurrency(.Cells(x, b).Value, 2)
                    Exit For
                    End If
            Next
        End With
    End If 
End Sub

Sub grup()
Sayfa = Left(Sheets("BÜTÇE_KODU").Range("D1"), 4)
Select Case ComboBox1.ListIndex
Case 1 To 23, 32, 42, 47 To 53, 55 To 56
Label126.Caption = FormatCurrency(Sheets(Sayfa & "_BÜTÇESİ").Range("D7").Value, 2)

Case 24 To 31, 33 To 36, 41, 43 To 46, 54
Label126.Caption = FormatCurrency(Sheets(Sayfa & "_BÜTÇESİ").Range("D8").Value, 2)

Case 0, 37, 38
Label126.Caption = FormatCurrency(Sheets(Sayfa & "_BÜTÇESİ").Range("D9").Value, 2)

End Select
End Sub

Sub grup1()
Sayfa = Left(Sheets("BÜTÇE_KODU").Range("D1"), 4)
Select Case ComboBox1.ListIndex
Case 1 To 23, 32, 42, 47 To 53, 55 To 56
Label129.Caption = FormatCurrency(Sheets(Sayfa & "_BÜTÇESİ").Range("L7").Value, 2)

Case 24 To 31, 33 To 36, 41, 43 To 46, 54
Label129.Caption = FormatCurrency(Sheets(Sayfa & "_BÜTÇESİ").Range("L8").Value, 2)

Case 0, 37, 38
Label129.Caption = FormatCurrency(Sheets(Sayfa & "_BÜTÇESİ").Range("L9").Value, 2)

End Select
End Sub

 

[peleryn]

Merhabalar;

Çok ayrıntılı bakmadım ama sanırım Label129 = .Cells(x, b) vb şekilde yazdığınız satırları Label129.Caption = .Cells(x, b) şeklinde yazmanız gerekecek.

 

[s.savas]

Üstat teşekkür ederim, dediğiniz şekilde düzelttim, sonuç değişmedi.