Userform_Initialize Hatası...

[HazaL07]

Merhaba Arkadaşlar İyi GünLer...

Arkadaşlar Alttaki Yazdıgım Kod Hata Veriyor. Nasıl bir Yöntem Uygulamam Gerekiyor Yol Gösterbilirmisiniz Teşekürler Şimdiden...


Private Sub UserForm_Initialize()
For X = 2 To 75
With HAVA_DOLULUK
.Controls("Label" & X - 1).Caption = Cells(5, X)
.Controls("Label" & X - 1).Font.Bold = True
.Controls("Label" & X - 1).ForeColor = vbBlue
End With

With güncelleme1
For i = 1 To 12
ComboBox1.AddItem i + 2005
ComboBox2.AddItem i
End With
End Sub

 

[Mehmet Şahin]

Merhaba,
dosyayı görmeden yazmak sonuç vermeyebilir. Aşağıdaki şekilde deneyiniz.

Private Sub UserForm_Initialize()
With HAVA_DOLULUK
For x = 2 To 75
.Controls("Label" & x - 1).Caption = Cells(5, x)
.Controls("Label" & x - 1).Font.Bold = True
.Controls("Label" & x - 1).ForeColor = vbBlue
Next x
End With

With güncelleme1
For i = 1 To 12
ComboBox1.AddItem i + 2005
ComboBox2.AddItem i
Next i
End With
End Sub

 

[HazaL07]

Merhaba

Dosyada Baz Önemli Bilgiler Oldugu İcin Paylasmak İstemedim. (Yalnış Anlamayın) Yenisini Hazırlamakta Zamanımı Alırdı Olayıda Şu şekilde Cözdüm. İlginiz İcin Teşekür Ederim.

Çalışmalarınızın Devamını Dilerim. Çok Güzel Bir paylaşım Sitesi Benim Gibi Yeni başlayanlar İçin Bulunmaz Bir Kaynak. Ayrıca Uzman Ve Site Yönetici Arkadaşlar çok Güzel İlgileniyor



Burada Yaptığım labellere HücreLerdeki yazılı isimleri Vermek

Private Sub UserForm_Activate()
Label1.Caption = Sheets("Veri").Range("A1")
Label2.Caption = Sheets("Veri").Range("B1")
Label3.Caption = Sheets("Veri").Range("C1")
Label4.Caption = Sheets("Veri").Range("D1")
Label5.Caption = Sheets("Veri").Range("E1")
Label6.Caption = Sheets("Veri").Range("F1")
Label7.Caption = Sheets("Veri").Range("G1")
Label8.Caption = Sheets("Veri").Range("H1")
Label9.Caption = Sheets("Veri").Range("I1")
Label10.Caption = Sheets("Veri").Range("J1")
Label11.Caption = Sheets("Veri").Range("K1")
Label12.Caption = Sheets("Veri").Range("L1")
Label13.Caption = Sheets("Veri").Range("M1")
Label14.Caption = Sheets("Veri").Range("N1")
Label15.Caption = Sheets("Veri").Range("O1")
Label16.Caption = Sheets("Veri").Range("P1")
Label17.Caption = Sheets("Veri").Range("Q1")
Label18.Caption = Sheets("Veri").Range("R1")
Label19.Caption = Sheets("Veri").Range("S1")
Label20.Caption = Sheets("Veri").Range("T1")
Label21.Caption = Sheets("Veri").Range("U1")
Label22.Caption = Sheets("Veri").Range("V1")
Label23.Caption = Sheets("Veri").Range("W1")
Label24.Caption = Sheets("Veri").Range("X1")
Label25.Caption = Sheets("Veri").Range("Y1")
Label26.Caption = Sheets("Veri").Range("Z1")
Label27.Caption = Sheets("Veri").Range("AA1")
Label28.Caption = Sheets("Veri").Range("AB1")
Label29.Caption = Sheets("Veri").Range("AC1")
Label30.Caption = Sheets("Veri").Range("AD1")
Label31.Caption = Sheets("Veri").Range("AE1")
Label32.Caption = Sheets("Veri").Range("AF1")
Label33.Caption = Sheets("Veri").Range("AG1")
Label34.Caption = Sheets("Veri").Range("AH1")
Label35.Caption = Sheets("Veri").Range("AI1")
Label36.Caption = Sheets("Veri").Range("AJ1")
Label37.Caption = Sheets("Veri").Range("AK1")
Label38.Caption = Sheets("Veri").Range("AL1")
Label39.Caption = Sheets("Veri").Range("AM1")
Label40.Caption = Sheets("Veri").Range("AN1")
Label41.Caption = Sheets("Veri").Range("AO1")
Label42.Caption = Sheets("Veri").Range("AP1")
Label43.Caption = Sheets("Veri").Range("AQ1")
Label44.Caption = Sheets("Veri").Range("AR1")
Label45.Caption = Sheets("Veri").Range("AS1")
Label46.Caption = Sheets("Veri").Range("AT1")
Label47.Caption = Sheets("Veri").Range("AU1")
Label48.Caption = Sheets("Veri").Range("AV1")
Label49.Caption = Sheets("Veri").Range("AW1")
Label50.Caption = Sheets("Veri").Range("AX1")
Label51.Caption = Sheets("Veri").Range("AY1")
Label52.Caption = Sheets("Veri").Range("AZ1")
Label53.Caption = Sheets("Veri").Range("BA1")
Label54.Caption = Sheets("Veri").Range("BB1")
Label55.Caption = Sheets("Veri").Range("BC1")
Label56.Caption = Sheets("Veri").Range("BD1")
Label57.Caption = Sheets("Veri").Range("BE1")
Label58.Caption = Sheets("Veri").Range("BF1")
Label59.Caption = Sheets("Veri").Range("BG1")
Label60.Caption = Sheets("Veri").Range("BH1")
Label61.Caption = Sheets("Veri").Range("BI1")
Label62.Caption = Sheets("Veri").Range("BJ1")
Label63.Caption = Sheets("Veri").Range("BK1")
Label64.Caption = Sheets("Veri").Range("BL1")
Label65.Caption = Sheets("Veri").Range("BM1")
Label66.Caption = Sheets("Veri").Range("BN1")
Label67.Caption = Sheets("Veri").Range("BO1")
Label68.Caption = Sheets("Veri").Range("BP1")
Label69.Caption = Sheets("Veri").Range("BQ1")
Label70.Caption = Sheets("Veri").Range("BR1")
Label71.Caption = Sheets("Veri").Range("BS1")
Label72.Caption = Sheets("Veri").Range("BT1")
Label73.Caption = Sheets("Veri").Range("BU1")
Label74.Caption = Sheets("Veri").Range("BV1")
End Sub

Burada Yaptıgım Yıl Ve Ay Seçimi Yaparak Listwievde Görüntülemek

Private Sub UserForm_Initialize()
güncelleme1

For i = 1 To 12
ComboBox1.AddItem i + 2005
ComboBox2.AddItem i
Next
End Sub