• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Sütunda Özel Süzgeç

O

omeryılmaz

Katılım
30 Kasım 2006
Mesajlar
411
Excel Vers. ve Dili
Excel 2007 - Türkçe
ListBox1 de seçtiğim sütunlara ait verilerin aynı sıra ile ListBox2 de listelenmesini istiyorum.

Şimdiden yardım ve ilginiz için şükranlarımı sunuyorum
 

Ekli dosyalar

Evren Hocam eline sağlık
Amacım: hergün personelimize ait sütunlarda kayıtlı veriler üzerinden (Sicil No. İlk İşe Başlama, Adresi.... vs.) yeni listeler istenmekte bunları pratik Listboxlar aracılığı ile yapıp masa üstüne aktarmak ve ilgili yerlere göndermek, Onun için Personelin ismi ilk ListBox Kolonunda olmalı diğerleri ListBox1den seçilenler (Sicil No. İlk İşe Başlama, Adresi.... vs.) gelmeli... Sayfa aynı kalsın sayfayı süzmesine gerek yok
 

Ekli dosyalar

Son düzenleme:
omeryılmaz' Alıntı:
Evren Hocam eline sağlık
Amacım: hergün personelimize ait sütunlarda kayıtlı veriler üzerinden (Sicil No. İlk İşe Başlama, Adresi.... vs.) yeni listeler istenmekte bunları pratik Listboxlar aracılığı ile yapıp masa üstüne aktarmak ve ilgili yerlere göndermek, Onun için Personelin ismi ilk ListBox Kolonunda olmalı diğerleri ListBox1den seçilenler (Sicil No. İlk İşe Başlama, Adresi.... vs.) gelmeli... Sayfa aynı kalsın sayfayı süzmesine gerek yok
Genişletmek için tıkla ...
Ben sayfa üzerinde herhangi bir işlem yapmadım.
adece kendi kodlarımı sizin istediğiniz yerlere ekledim.
Siz istemiyorsanız kendi kodlarınızı silebilirsiniz.Benim onlarla işim olmadı.:cool:
 
Personelin İsmi Olan B sütununun ListBox2 ye sabit gelmesi
 
omeryılmaz' Alıntı:
ListBox1 de seçtiğim sütunlara ait verilerin aynı sıra ile ListBox2 de listelenmesini istiyorum.

Şimdiden yardım ve ilginiz için şükranlarımı sunuyorum
Genişletmek için tıkla ...

yapılan dosyanda bende bazı ilaveler yaptım arka planda bir dosya açıyor ve siliyor bu doğrultuda listbox1 den seçiminizi yapınız ve Aktar (Yeni Personel Listesi) Olarak düğmesine tıklayınız .dosyanızı istediğiniz gibi oluşturacaktır
 

Ekli dosyalar

ListBox2 deki verileri Aktarmak istediğimde "C:\" & "Yeni Personel Listesi" & ".xls" de oluşan dosyaya neden hatalı aktarmaktadır. ListBoxtan işaretlenip süzülen veriler aktarılmamaktadır. Aşağıdaki kodu başka bir yerden aldım ama olmadı

On Error Resume Next
Dim xlApp As Object
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = False
Set NewWB = xlApp.Workbooks.Add
Set MySh = NewWB.Worksheets(1)
nRow = ListBox2.ListCount
'not burası 10 sutundan sonrasını hata verir
nColumn = 10 'ListBox2.ColumnCount
MySh.Range("A1", Cells(nRow, nColumn).Address) = ListBox2.List
WBname = "C:\" & "Yeni Personel Listesi" & ".xls"
NewWB.SaveAs WBname
MsgBox WBname & " Adinda Bir Excel Kitabi olusturulmustur...", _
vbInformation, "Yeni Liste"
xlApp.Quit
Set xlApp = Nothing
Set MySh = Nothing
Set NewWB = Nothing
 
sayfaya attıktan sonra listboxt1 de işaretli olmayan sütunları gizleyiniz.
Veya sayfaya sadece listbox1 de gözüken sütunları atın.:cool:
 
Aşağıdaki gibi kodunuz düzenleyiniz.:cool:
Kod: 
MySh.Range("A1", Cells(nRow, nColumn).Address) = ListBox2.List
[B][COLOR="Red"]For i = ListBox2.ListCount - 1 To 1 Step -1
    If ListBox2.Selected(i) = False Then MySh.Columns(i + 1).Delete
Next[/COLOR][/B][/COLOR][/B]
 
Aşağıdaki kodla Şimdi Sadece "B" sütunundaki Personel isimlerini aktarıyor

Private Sub Aktar_Click()
On Error Resume Next
Dim xlApp As Object
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = False
Set NewWB = xlApp.Workbooks.Add
Set MySh = NewWB.Worksheets(1)
nRow = ListBox2.ListCount
'not burası 10 sutundan sonrasını hata verir
nColumn = 10 'ListBox1.ColumnCount
MySh.Range("A1", Cells(nRow, nColumn).Address) = ListBox2.List
For i = ListBox2.ListCount - 1 To 1 Step -1
If ListBox2.Selected(i) = False Then MySh.Columns(i + 1).Delete
Next
WBname = "C:\" & "Yeni Personel Listesi" & ".xls"
NewWB.SaveAs WBname
MsgBox WBname & " Adinda Bir Excel Kitabi olusturulmustur...", _
vbInformation, "AKD.YAZILIM"
xlApp.Quit
Set xlApp = Nothing
Set MySh = Nothing
Set NewWB = Nothing
End Sub
 
omeryılmaz' Alıntı:
Aşağıdaki kodla Şimdi Sadece "B" sütunundaki Personel isimlerini aktarıyor

Private Sub Aktar_Click()
On Error Resume Next
Dim xlApp As Object
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = False
Set NewWB = xlApp.Workbooks.Add
Set MySh = NewWB.Worksheets(1)
nRow = ListBox2.ListCount
'not burası 10 sutundan sonrasını hata verir
nColumn = 10 'ListBox1.ColumnCount
MySh.Range("A1", Cells(nRow, nColumn).Address) = ListBox2.List
For i = ListBox2.ListCount - 1 To 1 Step -1
If ListBox2.Selected(i) = False Then MySh.Columns(i + 1).Delete
Next
WBname = "C:\" & "Yeni Personel Listesi" & ".xls"
NewWB.SaveAs WBname
MsgBox WBname & " Adinda Bir Excel Kitabi olusturulmustur...", _
vbInformation, "AKD.YAZILIM"
xlApp.Quit
Set xlApp = Nothing
Set MySh = Nothing
Set NewWB = Nothing
End Sub
Genişletmek için tıkla ...

Pardon.:D
Listbox1 olacaktı.
aşağıdaki gibi.:cool:
Kod: 
For i =[B][COLOR="Red"] ListBox1[/COLOR][/B].ListCount - 1 To 1 Step -1
If ListBox2.Selected(i) = False Then MySh.Columns(i + 1).Delete
Next
 
Evren Gizlen' Alıntı:
Pardon.:D
Listbox1 olacaktı.
aşağıdaki gibi.:cool:
Kod: 
For i =[B][COLOR="Red"] ListBox1[/COLOR][/B].ListCount - 1 To 1 Step -1
If ListBox2.Selected(i) = False Then MySh.Columns(i + 1).Delete
Next
Genişletmek için tıkla ...


Problem çözülmedi yine sadece "b" sütunundaki personel isimleri aktarılmaktadır. ListBox2 ye süz ile alınan verilerin aktarılması gerekli
 

Ekli dosyalar

Hocam ListBox1' de işaretlenerek ListBox2' de sonuçlandırılan listeyi "Aktar (Yeni Personel Listesi) Olarak" butonu ile aktarmak istediğimde, L sütünundan ileri verilerden seçtiğimde aktarmamaktadır. Sadece sütun başlığındaki "CEP TELEFONU,ADRES,ÖNCEKİ GÖREV YERİ...vs" başlık bilgilerini aktarmaktadır, sütunda mevcut başlık altındaki diğer bilgileri aktarmıyor neden acaba? Örnek Dosya İlişiktedir....
 

Ekli dosyalar

omeryılmaz' Alıntı:
Hocam ListBox1' de işaretlenerek ListBox2' de sonuçlandırılan listeyi "Aktar (Yeni Personel Listesi) Olarak" butonu ile aktarmak istediğimde, L sütünundan ileri verilerden seçtiğimde aktarmamaktadır. Sadece sütun başlığındaki "CEP TELEFONU,ADRES,ÖNCEKİ GÖREV YERİ...vs" başlık bilgilerini aktarmaktadır, sütunda mevcut başlık altındaki diğer bilgileri aktarmıyor neden acaba? Örnek Dosya İlişiktedir....
Genişletmek için tıkla ...
Dosyanız ektedir.:cool:
 

Ekli dosyalar

Arkadaşlar kusura bakmayın yanlış yerde konu açıyor olabilir ama mağdur kaldım. Benim 10 15 adet arasında alanlarım var her alana ayrı arama için textbox yapıp arama yaparak kayıtları getirmek istiyrum bunu nasıl yapabilirim yardımcı olursanız sevinirimm.örnek vermek gerekirse http://s2.dosya.tc/server3/iEHYPv/Ko...-2011.xls.html adresiteki alanların hepsinde textbox olacak ve hangi sütunda arama yapıyorsak mesela Turbo OE No'da 17201-17030 arıyorsam buna ait turbo modeli chra vs vs getirecek veya modele göre arama yapıyorum yine tüm alanlardaki kayıtları getirecek anlatabildim sanırım.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst