- Katılım
- 25 Haziran 2009
- Mesajlar
- 25
- Excel Vers. ve Dili
- 2007 Tr
Ekte gönderdiğim dosyada userform1 de Listboxun 1. satırına tıklayınca run-time hatası veriyor nedeni ne olabilir ? Bir türlü çözemedim gitti.
userform Initialize kodları
Listbox1 click kodları
userform Initialize kodları
Kod:
Private Sub UserForm_Initialize()
Application.Visible = False
ListBox1.ColumnHeads = True 'listboxta birinci satiri sabitler tiklanmaz
ListBox1.RowSource = "verog!A2:n" & Sheets("verog").Range("a65536").End(3).Row
ListBox1.ColumnWidths = 25 & ";" & 100 & ";" & 40 & ";" & 70 & ";" & 70 & ";" & 70 & ";" & 100 & ";" & 100 & ";" & 50 & ";" & 200 & ";" & 80 & ";" & 200 & ";" & 80 & ";" & 200 & ";"
Application.WindowState = xlMaximized
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
End SubListbox1 click kodları
Kod:
Sheets("verog").Select
ListBox1.ColumnHeads = True
TextBox55 = ListBox1.Column(0)
TextBox13 = ListBox1.Column(1)
TextBox14 = ListBox1.Column(2)
TextBox15 = ListBox1.Column(3)
TextBox16 = ListBox1.Column(4)
TextBox17 = Format(ListBox1.Column(5), "dd.mm.yyyy")
TextBox18 = ListBox1.Column(6)
TextBox19 = ListBox1.Column(7)
TextBox20 = ListBox1.Column(8)
TextBox21 = ListBox1.Column(9)
TextBox22 = ListBox1.Column(10)
TextBox12 = Format(ListBox1.Column(11), "dd.mm.yyyy")
TextBox11 = ListBox1.Column(12)
TextBox23 = ListBox1.Column(13)