Skip to main content

AccessTr.neT


Özel Seçimli Liste Oluşturmak

Özel Seçimli Liste Oluşturmak

Çözüldü #1
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ı.
.rar Özel Listeden Sıralama.rar (Dosya Boyutu: 60,14 KB | İndirme Sayısı: 4)
Cevapla
#2
Sayın hayalibey basit olarak buton koduna

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

yazarak dener misiniz?
"Dünyayı fazla düşünme."
Cevapla
#3
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
Cevapla
#4
Zafer Hocam örnek bir dosya eklemeniz mümkün mü
Ya da kodları paylaşabilir misiniz
Cevapla
#5
Zafer Hocam yazdığınız kodları ben uygun yere yazamadım. Ekteki dosyama kodları ayarlamanız mümkün mü acaba
Cevapla
#6
(15/04/2021, 23:26)feraz yazdı: Private Sub CommandButton16_Click()
Bu kodun içinde kodlar var.Sadece dediğim kod eklenecek abey.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task