Özel Seçimli Liste Oluşturmak

Zafer Hocam dediginizi yaptım. Yeni userforma bakma imkanınız var mi acaba

(15/04/2021, 17:16)userx yazdı: Sayın hayalibey basit olarak buton koduna

[A1] = "SN"
[B1] = "Sicili"
[c1] = "ADI"
[D1] = "SOYADI"
[E1] = "RÜTBESİ"

yazarak dener misiniz?

Hocam çok teşekkür ederim bu pratik bilgi işe yaradı.

Zafer Hocam dosyada bi şeyler yapmaya çalışırım ben
Ama yarım kaldı yardımınıza ihtiyacım var.

Bir de ComboBoxlarin içerisinde Sn adı soya di Sicili Rütbesi olamayacak
ComboBoxlar Bürosu ifadesinden başlayacak

Yardımcı olursanız cok sevinirim.

Alttaki koddaki A1 yerine F1 yazılacak sadece abey Bürosundan başlayacaksa.

For x = 6 To 14

        Controls("ComboBox" & x).Column = ThisWorkbook.Sheets("VERÝ").Range("A1:N1").Value

    Next x

Ama Zafer hocam liste sıralı gelmiyor ya sorun burda başlıyor
Misal veri sayfasındaki
1. Sıradaki 5 sıradaki 16. Sıradaki veri alınıyor
Tasarı sayfasına rütbe ve sicile göre atıyor ya Hocam
Şimdi bundan sonra. Yapılacaklar başlıyor
Siciller benzersiz veri
Sicillerin karşısına F den başlayarak comboboxta seçilen veriyi bulup getirmesi lazım.
Bu konuda yarımcı olabilir misiniz Zafer Hocam

Abey zaten kodlarınızın çoğu gereksiz ve yanlış.
Mesela alttakini eklemişsiniz kod veri sayfasında çalışırsa veri sayfasına kaydeder a1,b1....gibi yerlere.


[a1] = "SN"
[B1] = "Sicili"
[c1] = "Adı"
[D1] = "Soy Adı"
[e1] = "Rütbesi"

-----------------------------------------------------------
Alttakilerde aynı şekilde.

Columns("A:A").EntireColumn.AutoFit
Columns("B:B").EntireColumn.AutoFit
Columns("C:C").EntireColumn.AutoFit
Columns("E:E").Select
Range("E5").Activate
Columns("D Columns("E:E").EntireColumn.AutoFit
Columns("F:F").EntireColumn.AutoFit
Columns("F:F").ColumnWidth = 20.57
Columns("F:F").ColumnWidth = 30.71
Columns("G:G").ColumnWidth = 30.71
Cells.Select
Range("A5").Activate

Cells.EntireColumn.AutoFit
Cells.EntireRow.AutoFit