AccessTr.neT
Özel Seçimli Liste Oluşturmak - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Özel Seçimli Liste Oluşturmak (/konu-ozel-secimli-liste-olusturmak.html)

Sayfalar: 1 2 3 4 5 6

RE: Özel Seçimli Liste Oluşturmak - hayalibey - 16/04/2021

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

RE: Özel Seçimli Liste Oluşturmak - hayalibey - 16/04/2021

(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ı.

RE: Özel Seçimli Liste Oluşturmak - hayalibey - 16/04/2021

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.

RE: Özel Seçimli Liste Oluşturmak - feraz - 16/04/2021

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


RE: Özel Seçimli Liste Oluşturmak - hayalibey - 16/04/2021

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

RE: Özel Seçimli Liste Oluşturmak - feraz - 16/04/2021

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("DLol").EntireColumn.AutoFit
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