AYNI KAYITLAR

[halilerguder]

Sevgili dostlar hepinize selamlar, bir userformda comboboxtan bir kayıt seçtiğimde aynı numaralı öğrencilerden üstteki kaydı veriyor.altta bulunan aynı numaralı öğrenciyi nasıl seçebilirim. teşekkürler.

 

[hamitcan]

Kodu aşağıdaki şekilde değiştirin zannedersem işinizi görür.

Private Sub CommandButton1_Click()

'VERİLERİ BULUR

Dim bak As Range
For Each bak In Range("A1:A" & WorksheetFunction.CountA(Range("A1:A65000")))
If StrConv(bak.Value, vbUpperCase) = StrConv(ComboBox1.Value, vbUpperCase) Then
bak.Select
If bak = bak.Offset(1, 0) Then
TextBox1.Value = ActiveCell.Offset(1, 1).Value
TextBox2.Value = ActiveCell.Offset(1, 2).Value
Else
TextBox1.Value = ActiveCell.Offset(0, 1).Value
TextBox2.Value = ActiveCell.Offset(0, 2).Value
Exit Sub
End If
End If
Next bak
MsgBox "Aradığınız isimde bir kayıt bulunamadı"
End Sub

 

[halilerguder]

işe yaramadı

sayın hamitcan kodu aynen kopyalayıp yapıştırdım ama işe yaramadı. yardımlarınızı bekliyorum.

 

[hamitcan]

Dosyayı gönderiyorum bende doğru çalışıyor.

 

[halilerguder]

aynı kayıtlar listele

Sayın hamitcan, ilginize çok teşekkür ederim ancak sanırım ben sorunumu iyi anlatamamış olmalıyım sizin kodunuzu denediğimde hep ikinci sıradaki kaydı buluyor. oysa ben comboboxta hangi kaydı seçersem o kayıt gelsin istiyorum vaktinizi alıyorum özür dilerim.

 

[hamitcan]

Aşağıdaki kodu deneyin...

Private Sub CommandButton1_Click()
TextBox1.Value = Cells(ComboBox1.ListIndex + 1, 2)
TextBox2.Value = Cells(ComboBox1.ListIndex + 1, 3)
End Sub

 

[danersin]

halilerguder, son mesajınız için ayrı başlık açmanız yanlış, birleştirdim.
Lütfen forum kurallarınızı okuyunuz, profilinize excel versiyon ve dilinide ekleyiniz.
kolay gelsin.

 

[halilerguder]

aynı sayılar

Çok teşekkür ederim işe yaradı. elinize sağlık.