A9 hücresindeki değerin MsgBoxta gözükmesi

[ahmetozbey]

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

 

[Tankut SAZLI]

Bu kodu kendinize göre uyarlayın
MsgBox (Range("sayfa1!a9"))

 

[ahmetozbey]

verdiğiniz kodu yerleştirdim fakat olmadı her defasında boş mesaj kutusuna tıklamam gerekiyor ve değer göstermiyor. işlemi yaptıktan sonra mesajın gelmesini istiyorum.

 

[Tankut SAZLI]

mesaj kutusunun boş gelmesinin sebebi hücrenin dolu olmaması olabilirmi

 

[ahmetozbey]

boş değil. arama işlemi bittikten sonra gelsin istiyorum. müşterilere ait her bilgi görüntülendikçe boş mesaj çıkıyor işlemi bitirmek için her defasında tıklatmam gerekiyor.

 

[Seyit Tiken]

Kodu ilgili sayfanın kod editörüne yapıştırıp deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If [A1].Value Then MsgBox [A1].Value
End Sub

 

[ahmetozbey]

şimdi oldu. ancak (örnek: 4 adet kayıt bulunmuştur) şeklinde nasıl görüntüleyebilirim. rakamı hücreden alacak (adet bulunmuştur)u nasıl yazacağım.

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If [A1].Value Then MsgBox [A1].Value & " " & "Adet Kayıt Bulunmuştur."
End Sub

 

[ahmetozbey]

elinize sağlık çok güzel oldu teşekkür ederim.