DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub UserForm_Activate()
Dim sat, s As Integer
Cbgeldiğikurum.Clear
For sat = 2 To Sheets("GELENKURUM").Range("C65536").End(xlUp).Row
If Cells(sat, "c") <> "" Then
Cbgeldiğikurum.AddItem
Cbgeldiğikurum.List(s, 0) = Cells(sat, "c")
s = s + 1
End If: Next
End Sub
Private Sub UserForm_Activate()
Dim sat As Long
Cbgeldiğikurum.Clear
For sat = 2 To Sheets("GELENKURUM").Range("C65536").End(xlUp).Row
If Cells(sat, "c") <> "" Then Cbgeldiğikurum.AddItem Cells(sat, "c")
Next
End Sub