Costcost
Altın Üye
- Katılım
- 3 Ekim 2018
- Mesajlar
- 76
- Excel Vers. ve Dili
- Excel 2003-2007/2010
- Altın Üyelik Bitiş Tarihi
- 03-12-2025
Merhabalar,
Userform üzerinde 100'e yakın textbox var. userform açıldığı zaman bunların hepsinin göstermek istiyorum. ancak textbox ölçüleri excel hücrelerinde. userform açıldığında textbox'ların excel hücresinde yer alan ölçülere göre (height, width, top..) userform üzerinde göstermek istiyorum. combobox'lı kod bulmuştum. ama, combobox kullanmadan nasıl yapılacağını bulamadım.
aşağıda kodun bir kısmı var. combobox olan kısımları sildim. diğer türlü nasıl yapabilirim acaba. combobox'sız yapılabilir mi? yardımcı olursanız sevinirim. şimdiden teşekkür ederim.
Private Sub UserForm_Initialize()
On Error Resume Next
Sheets("alfa").Activate
For b = 150 To 50 Step -1 ' 100 e yakın textbox var..
Controls("Textbox" & b).Visible = True
If Controls("Textbox" & b) <> "" Then
Controls("Textbox" & b).Visible = True
End If
Next b
For a = ????????
Sheets("alfa").Activate
Set j = Sheets("alfa").Range("C:C").Find(a)
'alfa sayfasından ölçüleri alıyor...
Controls("Textbox" & a).Visible = Sheets("alfa").Cells(j.Row, 11)
Controls("Textbox" & a).Top = Sheets("alfa").Cells(j.Row, 12)
Controls("Textbox" & a).Height = Sheets("alfa").Cells(j.Row, 13)
Controls("Textbox" & a).Width = Sheets("alfa").Cells(j.Row, 14)
Controls("Textbox" & a).Left = Sheets("alfa").Cells(j.Row, 15)
Controls("Textbox" & a).DragBehavior = 1
Controls("Textbox" & a).ControlTipText = Sheets("alfa").Cells(j.Row, 10)
Controls("Textbox" & a).MultiLine = True
Next a
End Sub
Userform üzerinde 100'e yakın textbox var. userform açıldığı zaman bunların hepsinin göstermek istiyorum. ancak textbox ölçüleri excel hücrelerinde. userform açıldığında textbox'ların excel hücresinde yer alan ölçülere göre (height, width, top..) userform üzerinde göstermek istiyorum. combobox'lı kod bulmuştum. ama, combobox kullanmadan nasıl yapılacağını bulamadım.
aşağıda kodun bir kısmı var. combobox olan kısımları sildim. diğer türlü nasıl yapabilirim acaba. combobox'sız yapılabilir mi? yardımcı olursanız sevinirim. şimdiden teşekkür ederim.
Private Sub UserForm_Initialize()
On Error Resume Next
Sheets("alfa").Activate
For b = 150 To 50 Step -1 ' 100 e yakın textbox var..
Controls("Textbox" & b).Visible = True
If Controls("Textbox" & b) <> "" Then
Controls("Textbox" & b).Visible = True
End If
Next b
For a = ????????
Sheets("alfa").Activate
Set j = Sheets("alfa").Range("C:C").Find(a)
'alfa sayfasından ölçüleri alıyor...
Controls("Textbox" & a).Visible = Sheets("alfa").Cells(j.Row, 11)
Controls("Textbox" & a).Top = Sheets("alfa").Cells(j.Row, 12)
Controls("Textbox" & a).Height = Sheets("alfa").Cells(j.Row, 13)
Controls("Textbox" & a).Width = Sheets("alfa").Cells(j.Row, 14)
Controls("Textbox" & a).Left = Sheets("alfa").Cells(j.Row, 15)
Controls("Textbox" & a).DragBehavior = 1
Controls("Textbox" & a).ControlTipText = Sheets("alfa").Cells(j.Row, 10)
Controls("Textbox" & a).MultiLine = True
Next a
End Sub