FORM KUTUSUNDAN LİSTE KUTUSUNA KOMUT VERME
Private Sub UserForm_Click()
Sheets("günlük").Select
TextBox1.Value = WorksheetFunction.Count(Range("a2:a65000")) + 1
TextBox2.SetFocus
L = WorksheetFunction.CountA(Worksheets("günlük").Range("a1:a10000"))
ListBox1.RowSource = "günlük!a1:a" & L
ListBox1.ColumnCount = 12
ListBox1.RowSource = "günlük!a1:l" & L
' istatislikler yükleniyor
Range("b2").Select
TextBox2.Value = ActiveCell.Offset(0, 0).Value
TextBox3.Value = ActiveCell.Offset(0, 1).Value
TextBox4.Value = ActiveCell.Offset(0, 2).Value
TextBox5.Value = ActiveCell.Offset(0, 3).Value
TextBox6.Value = ActiveCell.Offset(0, 4).Value
TextBox7.Value = ActiveCell.Offset(0, 5).Value
TextBox8.Value = ActiveCell.Offset(0, 6).Value
TextBox9.Value = ActiveCell.Offset(0, 7).Value
TextBox10.Value = ActiveCell.Offset(0,
.Value
TextBox11.Value = ActiveCell.Offset(0, 9).Value
TextBox12.Value = ActiveCell.Offset(0, 10).Value
End Sub