comboboxtan sectiğim bir sayfayı listboxa aktarırken
Run-time error '380' hatası alıyorum. kod aşağıda verdim yardımcı olursanız sevinirim...
Private Sub UserForm_Initialize()
Dim X As Byte
Dim Buton_Adı() As Variant
Dim Sistem_Genişlik As Long, Sistem_Yükseklik As Long
Dim Form_Genişlik As Long, Form_Yükseklik As Long
Dim Genişlik_Oranı As Double, Yükseklik_Oranı As Double
Dim Nesne As Control
Sistem_Genişlik = Application.Width - 8
Sistem_Yükseklik = Application.Height - 8
Form_Genişlik = UserForm1.Width
Form_Yükseklik = UserForm1.Height
Genişlik_Oranı = Sistem_Genişlik / Form_Genişlik
Yükseklik_Oranı = Sistem_Yükseklik / Form_Yükseklik
UserForm1.Width = Sistem_Genişlik
UserForm1.Height = Sistem_Yükseklik
For Each Nesne In UserForm1.Controls
Nesne.Top = Nesne.Top * Yükseklik_Oranı
Nesne.Left = Nesne.Left * Genişlik_Oranı
Nesne.Width = Nesne.Width * Genişlik_Oranı
Nesne.Height = Nesne.Height * Yükseklik_Oranı
On Error Resume Next
Nesne.Font.Size = Nesne.Font.Size * Yükseklik_Oranı - 1
On Error GoTo 0
Next
ListBox1.ColumnCount = 11
ListBox1.ColumnHeads = True
ListBox1.ColumnWidths = "30;50;60;80;220;50;50;50;50;50;50"
ListBox1.RowSource = ComboBox3.Text & "!A1:k" & Cells(65536, "a").End(3).Row 'Bu satırı ekledikten sonra hata verdi.
For I = 2 To Cells(65536, "a").End(3).Row
Next
TextBox3 = Format(Date, "dd.mm.yyyy")
TextBox4 = Format(Date, "dd.mm.yyyy")
Calendar1.Value = Date
Calendar1.Visible = False
Calendar2.Value = Date
Calendar2.Visible = False
Dim ws As Worksheet
For Each ws In Worksheets
Me.ComboBox3.AddItem ws.Name
Next
End Sub
Run-time error '380' hatası alıyorum. kod aşağıda verdim yardımcı olursanız sevinirim...
Private Sub UserForm_Initialize()
Dim X As Byte
Dim Buton_Adı() As Variant
Dim Sistem_Genişlik As Long, Sistem_Yükseklik As Long
Dim Form_Genişlik As Long, Form_Yükseklik As Long
Dim Genişlik_Oranı As Double, Yükseklik_Oranı As Double
Dim Nesne As Control
Sistem_Genişlik = Application.Width - 8
Sistem_Yükseklik = Application.Height - 8
Form_Genişlik = UserForm1.Width
Form_Yükseklik = UserForm1.Height
Genişlik_Oranı = Sistem_Genişlik / Form_Genişlik
Yükseklik_Oranı = Sistem_Yükseklik / Form_Yükseklik
UserForm1.Width = Sistem_Genişlik
UserForm1.Height = Sistem_Yükseklik
For Each Nesne In UserForm1.Controls
Nesne.Top = Nesne.Top * Yükseklik_Oranı
Nesne.Left = Nesne.Left * Genişlik_Oranı
Nesne.Width = Nesne.Width * Genişlik_Oranı
Nesne.Height = Nesne.Height * Yükseklik_Oranı
On Error Resume Next
Nesne.Font.Size = Nesne.Font.Size * Yükseklik_Oranı - 1
On Error GoTo 0
Next
ListBox1.ColumnCount = 11
ListBox1.ColumnHeads = True
ListBox1.ColumnWidths = "30;50;60;80;220;50;50;50;50;50;50"
ListBox1.RowSource = ComboBox3.Text & "!A1:k" & Cells(65536, "a").End(3).Row 'Bu satırı ekledikten sonra hata verdi.
For I = 2 To Cells(65536, "a").End(3).Row
Next
TextBox3 = Format(Date, "dd.mm.yyyy")
TextBox4 = Format(Date, "dd.mm.yyyy")
Calendar1.Value = Date
Calendar1.Visible = False
Calendar2.Value = Date
Calendar2.Visible = False
Dim ws As Worksheet
For Each ws In Worksheets
Me.ComboBox3.AddItem ws.Name
Next
End Sub
