Bul ve Listele

[ocamsul]

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]

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

 

[ocamsul]

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?

 

[ocamsul]

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

 

[selami güzel]

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

 

[ocamsul]

teşekkür ederim çok güzel olmuş ancak combobox1 deki liste içinde niye 2 tane aynı birim ifadesi var(İ.S.H.M.)

 

[ocamsul]

listedeki birim adları tek olacak arkadaşlar. yardımlarınızı bekliyorum.

 

[ocamsul]

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ı?

 

[selami güzel]

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]

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

 

[ocamsul]

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.

 

[ocamsul]

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.

 

[ocamsul]

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