- Katılım
- 9 Eylül 2004
- Mesajlar
- 243
- Excel Vers. ve Dili
- Office2003Trk
Aşağıdaki kodlarla müşteri arama işlemi gerçekleştiriyorum.kaç adet müşteri bulunduysa bu miktar A9 hücresinde Msgbox da gözükmesini istiyorum( toplam 10 müşteri bulundu gibi)
Private Sub ComboBox1_Change()
End Sub
Private Sub CommandButton1_Click()
[b7:n250].ClearContents
For s = 1 To 1
Satsay = Sheets("Sayfa2").Cells(10877, 1).End(xlUp).Row
For ara = 1 To Satsay
If Sheets("Sayfa2").Cells(ara, 1).Value = Sheets("ARA").[e3] Then
c = c + 1
For sut = 1 To 14
Cells(c + 6, sut + 1) = Sheets("Sayfa2").Cells(ara, sut).Value
Sheets("ARA").[e3].Select
Next
End If
Next
Next
End Sub
Private Sub ComboBox1_Change()
End Sub
Private Sub CommandButton1_Click()
[b7:n250].ClearContents
For s = 1 To 1
Satsay = Sheets("Sayfa2").Cells(10877, 1).End(xlUp).Row
For ara = 1 To Satsay
If Sheets("Sayfa2").Cells(ara, 1).Value = Sheets("ARA").[e3] Then
c = c + 1
For sut = 1 To 14
Cells(c + 6, sut + 1) = Sheets("Sayfa2").Cells(ara, sut).Value
Sheets("ARA").[e3].Select
Next
End If
Next
Next
End Sub