Bul ve Listele

Katılım
19 Ocak 2005
Mesajlar
940
Excel Vers. ve Dili
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003
Arkadaşlar ekte göndermiş olduğum listele sayfasında birim seçimi yapıldığında o birimde görevli personelin bilgilerini aşağıda listelemesi yapılması gerekiyo yardım edermisiniz?
 

zafer

Super Moderator
Yönetici
Katılım
8 Mart 2005
Mesajlar
3,288
Excel Vers. ve Dili
OFFICE 2003 TÜRKÇE
OFFICE 2010 TÜRKÇE
Merhaba


Private Sub ComboBox1_Change()
ListBox1.Clear


son = Cells(65536, 1).End(xlUp).Row
For i = 1 To son
If Cells(i, 7).Value = ComboBox1.Value Then
Cells(i, 1).Select
c = c + 1
For y = 1 To 10
ListBox1.AddItem
ListBox1.List(c - 1, y - 1) = Cells(i, y + 1).Value

Next
End If
Next



End Sub

Private Sub ListBox1_Click()

End Sub

Private Sub UserForm_Initialize()
ComboBox1.AddItem "İl Sosyal Hizmetler Müdürlüğü"
ComboBox1.AddItem "Gözde Birsöz Çocuk Yuvası Müdürlüğü"
ComboBox1.AddItem "75. Yıl Huzurevi Müdürlüğü"
ComboBox1.AddItem "Aile Danışma Merkezi Müdürlüğü"

ListBox1.ColumnCount = 10

End Sub
 
Katılım
19 Ocak 2005
Mesajlar
940
Excel Vers. ve Dili
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003
Zafer kardeş çok teşekkür ederim. ufak bir soru; listelemede o personelin listedeki sırasınıda görsem daha iyi ne yapmam lazım?
 
Katılım
19 Ocak 2005
Mesajlar
940
Excel Vers. ve Dili
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003
Arkadaşlar merhaba aşağıdaki kod listelemeyi a4 itibaren sıra numarasıda görünmek kaydıyla yapsın istiyorum. yardım edermisiniz.

Private Sub ComboBox1_Change()
ListBox1.Clear
son = Cells(65536, 1).End(xlUp).Row
For i = 1 To son
If Cells(i, 7).Value = ComboBox1.Value Then
Cells(i, 1).Select
c = c + 1
For y = 0 To 10
ListBox1.AddItem
ListBox1.List(c - 1, y - 0) = Cells(i, y + 1).Value
Next
End If
Next
End Sub
 
Katılım
25 Şubat 2006
Mesajlar
53
Excel Vers. ve Dili
Excel 2003
listele

Selam
Sayın zafer hocamın yardımları ile yaptığım çalışmayı
sizin çalışmanıza uyguladım. sanıyorum böyle bir şey.
Dosyanızın düzeltilmiş hali ekte.kolay gelsin

saygılarımla
 
Katılım
19 Ocak 2005
Mesajlar
940
Excel Vers. ve Dili
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003
teşekkür ederim çok güzel olmuş ancak combobox1 deki liste içinde niye 2 tane aynı birim ifadesi var(İ.S.H.M.)
 
Katılım
19 Ocak 2005
Mesajlar
940
Excel Vers. ve Dili
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003
listedeki birim adları tek olacak arkadaşlar. yardımlarınızı bekliyorum.
 
Katılım
19 Ocak 2005
Mesajlar
940
Excel Vers. ve Dili
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003

Arkadaşlar merhaba aşağıdaki kod listelemeyi a4 satırından itibaren sıra numarasıda görünmek kaydıyla yapsın istiyorum. yardım edermisiniz.

Private Sub ComboBox1_Change()
ListBox1.Clear
son = Cells(65536, 1).End(xlUp).Row
For i = 1 To son
If Cells(i, 7).Value = ComboBox1.Value Then
Cells(i, 1).Select
c = c + 1
For y = 0 To 10
ListBox1.AddItem
ListBox1.List(c - 1, y - 0) = Cells(i, y + 1).Value
Next
End If
Next
End Sub


yardımlarınızı bekliyorum dostlar. çok uğraştım ama beceremedim. yada başka bir yollada olabilir. fikri olan varmı?
 
Katılım
25 Şubat 2006
Mesajlar
53
Excel Vers. ve Dili
Excel 2003
selam
ComboBox a veriyi "vtb" sayfası G sütun dan almıştım.
çalışmanıza "veri" adında sayfa ekleyin. ComboBox 'a almak istediğiniz
verileri A1....A50 yazın.daha sonra UserForm_Initialize bölümünde ki kod'u aşağıdaki gibi değiştirin.

ComboBox1.RowSource = "veri!a1:a50" & a

kolay gelsin
 

zafer

Super Moderator
Yönetici
Katılım
8 Mart 2005
Mesajlar
3,288
Excel Vers. ve Dili
OFFICE 2003 TÜRKÇE
OFFICE 2010 TÜRKÇE
Merhaba

Kodlardaki değişkenlere dikkat ederseniz sizde kolay bir şekilde yapabilirsiniz.

y değişkeni 1 ile başlıyor.

for y=1 to 10
y değişkenine 1 den 10 kadar sayı ata demek

cell(satır,kolon) olduğuna göre siz örneğin 4. satır 2. kolondan başlayarak verileri bir yere yazmak isterseniz

cell(y+4,y+1) olarak yazarsınız

1. satır 1. kolon dan başlarsanız

cells(y,y) olarak kullanırsınız



Private Sub ComboBox1_Change()
ListBox1.Clear
son = Cells(65536, 1).End(xlUp).Row
For i = 1 To son
If Cells(i, 7).Value = ComboBox1.Value Then
Cells(i, 1).Select
c = c + 1

For y = 1 To 10
ListBox1.AddItem
ListBox1.List(c - 1, y - 1) = Cells(i, y).Value
Next
End If
Next
End Sub
 
Katılım
19 Ocak 2005
Mesajlar
940
Excel Vers. ve Dili
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003
Zafer çok teşekkür ederim. ellerine sağlık bu şekilde açıklamalar ile makrolara cevap verilmesi çok yerinde bir uygulama. tekrar teşekkür ederim.
 
Katılım
19 Ocak 2005
Mesajlar
940
Excel Vers. ve Dili
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003
arkadaşlar tekrar ben zafer kardeşin verdiği kodlarda istediğim sütuna kadar ListBox da gösterebilmem için hangi kod dizisiyle işlem yapmam lazım. gerçekten bu mantığı anlamak biraz zamanımı alacak, zira hepsi birbirine bağlı. teşekkür ederim.
 
Katılım
19 Ocak 2005
Mesajlar
940
Excel Vers. ve Dili
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003
Arkadaşlar merhabalar. herkese iyi çalışmalar dilerim. benim öğrenmek istediğim aşağıdaki kodlarla listede A4 P4 arasını nasıl görüntüleyebilirim bu kodlar ancak A ve j sütunları arasını gösteriyor.

Private Sub ComboBox1_Change()
ListBox1.Clear
son = Cells(65536, 1).End(xlUp).Row
For i = 1 To son
If Cells(i, 7).Value = ComboBox1.Value Then
Cells(i, 1).Select
c = c + 1
For y = 1 To 10
ListBox1.AddItem
ListBox1.List(c - 1, y - 1) = Cells(i, y).Value
Next
End If
Next
End Sub
 
Üst