Bahsettiğiniz talebinize yönelik olarak;
Alternatif bir yöntem olarak şu kodları da deneyebilirsiniz.
Yine,kod sayfasında UserForm_Initialize olay yordamı içerisinde yer alan kodların yerine
Private Sub UserForm_Initialize() 'formu tam ekran yapma
Dim X1 As Long, Y1 As Long, Y2 As Long, X2 As Long
Dim CX As Double, CY As Double
Dim MyCtrl As Control
X1 = Application.Width
Y1 = Application.Height
X2 = Me.Width
Y2 = Me.Height
CX = X1 / X2
CY = Y1 / Y2
Me.Width = X1
Me.Height = Y1
For Each MyCtrl In Me.Controls
MyCtrl.Top = MyCtrl.Top * CY
MyCtrl.Left = MyCtrl.Left * CX
MyCtrl.Width = MyCtrl.Width * CX
MyCtrl.Height = MyCtrl.Height * CY
On Error Resume Next
MyCtrl.Font.Size = MyCtrl.Font.Size * CY
On Error GoTo 0
Next
'ATOZ112
'AŞAĞIDAKİ KODLAR DAHİL EDİLMİŞTİR
Dim hucresay
hucresay = 2
Do While Cells(hucresay, 2) <> ""
Me.ComboBox6.AddItem Cells(hucresay, 2) & " " & Cells(hucresay, 3)
hucresay = hucresay + 1
Loop
End Sub Kodlarını dahil edebilirsiniz.
CELLS
Cells(rowIndex, columnIndex)
kod kalıbı ile kullanılmaktadır.
rowIndex,satır numarasını ifade ederken;
columnIndex de,sütun (kolon) numarasını ifade eder.
Cells(hucresay, 2) ifadesi ile 2.satır 2.sütundaki AD kolonunu,
Cells(hucresay, 3) ifadesi ile 2.satır 3.sütundaki SOYAD kolonunu belirtmektedir.
Bilginize…iyi çalışmalar,saygılar.
