[Çözüldü]  MsgBox ile Arama Sonucu Gösterme

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

MsgBox ile Arama Sonucu Gösterme

İleti#1)  fatih_ozcicek » 02 Ekm 2015 17:13

Merhabalar
Benim sorunum imalat numaralarının olduğu bir tablom var ve bu numaralar sayfa1 'de kayıtlı olacak. Sayfa2 de ise imalat numaralarına karşılık gelen imalat açıklamaları var. Sayfa1 de hangi hücre seçili iken butona basılsa seçili olan o imalat numarasına karşılık gelen imalat açıklaması sayfa2 den alınıp sayfa1 deki kullanıcını önüne msgbox ile gelsin istiyorum.
Yardımlarınız için şimdiden teşekkür ederim.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
fatih_ozcicek
 
Kayıt: 28 Ağu 2015 10:51
Meslek: mühendis
Yaş: 37
İleti: 9
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: konya

Cevap: Msgbox ile arama sonucu gösterme

İleti#2)  fatih_ozcicek » 03 Ekm 2015 12:11

Merhabalar,
Sizlerden yardım olarak istemiş olduğum sorunumu biraz değiştirdim. Sayfa2 de yaptığı aramanın sonucunu eklediğim userform ile versin. Yani sayfa1 de hangi hücrenin verisi seçili ise ona karşılık gelen imalat açıklamasını sayfa2 den alıp sayfa1 deki kullanıcı önüne userform ile getirsin istiyorum.
Yardımlarınız için şimdiden teşekkür ederim.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
fatih_ozcicek
 
Kayıt: 28 Ağu 2015 10:51
Meslek: mühendis
Yaş: 37
İleti: 9
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: konya

Cevap: Msgbox ile arama sonucu gösterme

İleti#3)  fatih_ozcicek » 05 Ekm 2015 07:26

Yardımlarınızı bekliyorum,
Teşekkür ederim.
Kullanıcı avatarı
fatih_ozcicek
 
Kayıt: 28 Ağu 2015 10:51
Meslek: mühendis
Yaş: 37
İleti: 9
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: konya

Cevap: Msgbox ile arama sonucu gösterme

İleti#4)  Ali ÖZ » 05 Ekm 2015 09:15

Fatih bey,
Bu kodları kullanabilirsiniz,ekli dosyayı inceleyin.

Kod: Tümünü seç
Private Sub CommandButton1_Click()
If ActiveCell.Value = "" Then
MsgBox "makine kodu seçin"
Exit Sub
End If
For Each ara In Sayfa2.Range("a2:a" & Sayfa2.Range("a65536").End(3).Row)
If ActiveCell.Value = ara.Value Then
UserForm1.Show
UserForm1.Label1.Caption = ara.Offset(0, 1)
End If
Next
End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
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

Cevap: Msgbox ile arama sonucu gösterme

İleti#5)  fatih_ozcicek » 05 Ekm 2015 12:00

İlginize çok teşekkür ederim.
Saolun,
Emeğinize sağlık.
Kullanıcı avatarı
fatih_ozcicek
 
Kayıt: 28 Ağu 2015 10:51
Meslek: mühendis
Yaş: 37
İleti: 9
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: konya

Cevap: Msgbox ile arama sonucu gösterme

İleti#6)  Ali ÖZ » 05 Ekm 2015 12:08

Rica ederim,iyi çalışmalar.
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
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Forum MsgBox

Online Kullanıcılar

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

Bumerang - Yazarkafe