DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub UserForm_Initialize()
With ComboBox1
.AddItem "EVLİ"
.AddItem "BEKAR"
End With
ComboBox3.RowSource = "c4:c" & Cells(65536, "c").End(xlUp).Row
End Sub