UserForm_Initialize() birleştirme

[hassan26]

Selam arkadaşlar iki farklı başlangıç kodunu birleştirebilirmiyiz. İkiside lazım ama birleştirince hata veriyor (iki defada yazamıyoruz)
Private Sub UserForm_Initialize()
Set SS = Sheets("SIRA")
Son = SS.Cells(65536, 3).End(xlUp).Row
For X = 3 To Son
If SS.Cells(X, 3) = "BOŞ" Or SS.Cells(X, 3) = "" Then: GoTo Devam
ComboBox3.AddItem SS.Cells(X, 3)
Devam: Next
End Sub
Private Sub UserForm_Initialize()
Dim X As Integer
For X = 1 To 12
ComboBox1.AddItem Format(DateSerial(Year(Now), X, 1), "mmmm")
Next
ComboBox1.Value = Format(DateSerial(Year(Now), Month(Now), 1), "mmmm")

For X = 1900 To 2100
ComboBox2.AddItem X
Next
ComboBox2.Value = Year(Now)
End Sub
Saygılar

 

[hassan26]

Sayın Korhan Ayhan beyin yaptığı Calendar nesnesini başka bir forma aktardım onun için başlangıç kod çakışması oluyor.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde birleştirebilirsiniz.

[COLOR=#ff0000][COLOR=black]Private Sub UserForm_Initialize()[/COLOR]
[/COLOR]Dim X As Long
For X = 1 To 12
ComboBox1.AddItem Format(DateSerial(Year(Now), X, 1), "mmmm")
Next
ComboBox1.Value = Format(DateSerial(Year(Now), Month(Now), 1), "mmmm")
 
For X = 1900 To 2100
ComboBox2.AddItem X
Next
ComboBox2.Value = Year(Now)
 
Set SS = Sheets("SIRA")
Son = SS.Cells(65536, 3).End(xlUp).Row
For X = 3 To Son
If SS.Cells(X, 3) = "BOŞ" Or SS.Cells(X, 3) = "" Then: GoTo Devam
ComboBox3.AddItem SS.Cells(X, 3)
Devam: Next
End Sub

 

[hassan26]

Üstad teşekkür.
Bende aynısını yapmış ve denemiştim olmamıştı hata bende sanıp sordum evet hata bendeymiş Net seçim (Option Explicit) komutunu silmediğim için oluyormuş.
Saygılar.