[Çözüldü]  MsgBox ile Listeleme

Mesaj Kutusu. Programcıların olmazsa olmazlarından.

MsgBox ile Listeleme

İleti#1)  ubuntu55 » 29 Kas 2015 17:59

Merhaba arkadaşlar...
Aşağıda eklediğim "örnek" dosyada C Sütununda "Wood" yazan hücrelerin A Sütunundaki değerlerini Msgbox ile listelemek istiyorum. Sonuç olarak bu kritere uyan 4 tane hücre değeri var ve hepsini "VbNewLine" kullanarak Msgbox ile göstermek. Bir kod yazdım fakat bunu Msgbox ile gösteremiyorum. Yardımlarınız için şimdiden teşekkür ederim. Kod:

Kod: Tümünü seç
Sub aaa()
Dim i As Integer
Dim at As Dictionary

Set at = New Dictionary
For i = 2 To Range("a65536").End(xlUp).Row
Select Case Cells(i, 3).Value
Case Is = "Wood"
at.Add Cells(i, 3), Cells(i, 1)
End Select
Next i
End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
ubuntu55
Yeni Başlamış
 
Kayıt: 15 Mar 2015 02:05
Meslek: devlet memuru
Yaş: 39
İleti: 32
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

Cevap: Msgbox ile Listeleme

İleti#2)  Ali ÖZ » 29 Kas 2015 18:34

Denermisiniz.

Kod: Tümünü seç
Private Sub CommandButton1_Click()
For i = 2 To Range("a65536").End(3).Row
If Cells(i, 3).Value = "Wood" Then
  msgg = msgg & " " & Cells(i, "a").Value
End If
Next i
MsgBox msgg
End Sub
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 10:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 38
İleti: 9826
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Msgbox ile Listeleme

İleti#3)  ubuntu55 » 29 Kas 2015 19:26

Olmuştur. Çok teşekkür ederim.
Kullanıcı avatarı
ubuntu55
Yeni Başlamış
 
Kayıt: 15 Mar 2015 02:05
Meslek: devlet memuru
Yaş: 39
İleti: 32
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

Cevap: Msgbox ile Listeleme

İleti#4)  Ali ÖZ » 29 Kas 2015 19:30

Rica ederim,iyi akşamlar.
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 10:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 38
İleti: 9826
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Forum MsgBox

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 2 misafir

Bumerang - Yazarkafe