AccessTr.neT

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-...#pid179248 daha öncesi bu link üzerinden yapılmıştı.

Sayın hayalibey basit olarak buton koduna

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

yazarak dener misiniz?

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

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

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

(15/04/2021, 23:26)feraz yazdı: [ -> ]Private Sub CommandButton16_Click()

Bu kodun içinde kodlar var.Sadece dediğim kod eklenecek abey.