power468
Altın Üye
- Katılım
- 23 Aralık 2017
- Mesajlar
- 42
- Excel Vers. ve Dili
- 2016
- Altın Üyelik Bitiş Tarihi
- 21-08-2025
Aşağıdaki kodlarla excel sayfasındaki verileri görüntülüyorum. Ancak yukarı aşağı kaydırdığımda konu başlıkları da kayboluyor sabit kalsın istiyorum. Birde başlıkların üstünde excel sütun harfleri de görünüyor onlarda görünmese daha iyi olur. yardımcı olursanız sevinirim.
Private Sub UserForm_Click()
'ListBox özellikleri belirleniyor
a = WorksheetFunction.CountA(Sheets("ŞGENEL").Range("A1:A65536")) + 1
ListBox4.RowSource = "ŞGENEL!A1
" & a
ListBox4.ColumnCount = 16
ListBox4.ColumnHeads = True
ListBox4.ColumnWidths = "40;90;100;90;90;90;100;70;100;80;100;70;90;70;70;100;100"
End Sub
Private Sub UserForm_Click()
'ListBox özellikleri belirleniyor
a = WorksheetFunction.CountA(Sheets("ŞGENEL").Range("A1:A65536")) + 1
ListBox4.RowSource = "ŞGENEL!A1
" & aListBox4.ColumnCount = 16
ListBox4.ColumnHeads = True
ListBox4.ColumnWidths = "40;90;100;90;90;90;100;70;100;80;100;70;90;70;70;100;100"
End Sub