Listbox'un İlk satırını Kilitlemek

[ahmedummu]

Merhaba arkadaşlar.

Listbox'a veriler listelendiğinde İlk satırını kilitleyebilir miyiz. Yani Mouse ile tıkladığımızda seçilmesin. Yine Listbox'un İlk satırın satır yüksekliğini iki satır veya üç satır yüksekliğinde ayarlayabilir miyiz. Yardımcı olursanız sevinirim.

 

[Korhan Ayhan]

Satır yüksekliği için bir şey yapamazsınız. Fakat ilk satırı sabitleyebilirsiniz.

Sayfanızda ilk satırın başlık olduğu varsayılmıştır. Yani 1. satırı başlık olduğunu varsaydım.

Private Sub UserForm_Initialize()
    ListBox1.RowSource = "A2:E10"
    ListBox1.ColumnHeads = True
End Sub

Ek olarak uygulamalı dosya ektedir.

 

[ahmedummu]

Teşekkür ederim Korhan bey.

Benim dosyadaki başlıklar 4. satırda. Başlıklar kilitlenen yerin altında kalıyor. Kilitlenen yere getiremedim.

 

[Korhan Ayhan]

Bu durumda verileri yükleme kodunuz aşağıdaki gibi olmalıdır.

ListBox1.RowSource = "A5:E100"

 

[ahmedummu]

Kodlar aşağıdaki gibi.

CommandButton3_Click
Sheets("ÜBORD").Select
    With ListBox2
    .RowSource = "b5:v100"
    .ColumnHeads = True
        .ColumnCount = 21
        .ColumnWidths = "100;0;20;20;20;20;0;0;40;40;40;40;40;40;40;40;40;40;40,40,40"
        .RowSource = "B4:V" & Cells(Rows.Count, "B").End(xlUp).Row
    End With

A sütunu boş. Veriler B sütunundan V sütununa kadar.

 

[Korhan Ayhan]

2 defa RowSource satırı kullanmışsınız. Birisini siliniz.

 

[ahmedummu]

Tamam düzeldi.

 

[ahmedummu]

Bir de

SABİTLER sayfasında 13,9842 ve 13,4481 verilerim var (eski ve yeni saat ücretleri )

Bu verileri aşağıdaki kod ile değişkenlere atayıp

eskisaatuc = Sheets("SABİTLER").Range("b6").Value
yenisaatuc = Sheets("SABİTLER").Range("b5").Value

Aşağıdaki kodlar ile Exfcel sayfasına yazdırdığımızda,

ActiveCell.Offset(0, 6).Value = eskisaatuc
ActiveCell.Offset(0, 7).Value = yenisaatuc

eskisaatuc doğru yazılıyor 13,4481
yenisaatuc ise 14,0000 olarak yazılıyor. Yardımcı olabilir misiniz.

 

[Korhan Ayhan]

Bu değişkenleri kod başlangıcında DIM ile tanımlamış olabilirsiniz. Bunu kontrol ediniz.

 

[ahmedummu]

Tamam düzeldi. Değişken tipi yanlış tanımlanmış.

Teşekkürler.

 

[burhancavus61]

Başlığı sabitleme olayı Multipage içinde olan birden fazla listboxlar için geçerlimidir.

 

[Korhan Ayhan]

RowSource metodunu kullandığınız sürece başlıkları sabitleyebilirsiniz. ListBox sayısı önemli değildir.

 

[burhancavus61]

o zaman bir yerde hata yapıyorum demektir teşekkürler hocam
sağolun çözdüm