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

Özel Seçimli Liste Oluşturmak - hayalibey - 15/04/2021

Herkese Merhaba
ekteki dosyada bu kapsamda yine ama bu sefer listbox1 de işaretlenen kişiler aktar diyince temizle butonunun üzerinden fare ile geçtiğinizde Sayfaya Kaydet butonuna bastiktan sonra tasarı sayfası 2. Satırdan itibaren A2 den E sütununa kadar ekleniyor.
Kod buraya kadar çalışıyor ve Sorun yok

Bu sefer Sayfayı hazırla butonuna basınca F sütunundan başlayarak aynı şekilde ilgili personelin cinsiyeti seçilirse cinsiyeti telefonu seçilirse telefonu gelecek.

ComboBoxlarin çalışma prensibi yine aynı olacak ilk satırlara başlık sonra F den başlayarak N ye kadar ilgili personelin seçilen bilgisi gelecek

Bir de A :E arasına
A 1 e SN
B1 e Sicili
C1e Adı
D1 e Soyadı
E1 e Rütbesi
şeklinde başlık atacak .

Zaten F:N arasına önceden başlık atıyordu o devam edecek
Yardımcı olursanız cok sevinirim


https://accesstr.net/konu-secimli-liste-olusturma.html?pid=179248#pid179248 daha öncesi bu link üzerinden yapılmıştı.

RE: Özel Seçimli Liste Oluşturmak - userx - 15/04/2021

Sayın hayalibey basit olarak buton koduna

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

yazarak dener misiniz?

Re: Özel Seçimli Liste Oluşturmak - feraz - 15/04/2021

Kod:
  Sheets("TASARI").Cells.Clear
bu kodu eklemezseniz sorun olur abey.

Private Sub CommandButton16_Click()

    Sheets("TASARI").Cells.Clear

    For x = 1 To 14

        Y = Controls("ComboBox" & x).ListIndex + 1

        If Y > 0 Then Sheets("VERİ").Columns(Y).Copy Destination:=Sheets("TASARI").Columns(x)

    Next x

End Sub


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

Zafer Hocam örnek bir dosya eklemeniz mümkün mü
Ya da kodları paylaşabilir misiniz

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

Zafer Hocam yazdığınız kodları ben uygun yere yazamadım. Ekteki dosyama kodları ayarlamanız mümkün mü acaba

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

(15/04/2021, 23:26)feraz yazdı: Private Sub CommandButton16_Click()
Bu kodun içinde kodlar var.Sadece dediğim kod eklenecek abey.