[Çözüldü]  MsgBox Komutuna Hücre Satır Atama

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

MsgBox Komutuna Hücre Satır Atama

İleti#1)  cnrtrkylmz » 14 May 2015 12:46

hücrelere girilen ad soyad ve yaşadığı şehir bilgileri girdiriliyor daha sonra inputbox komutu ile ad soyad girdirip yaşadığı şehri bulması isteniliyor ama ama ben msgbox komutuna A(1,1) hücresini atayamıyorum yardımcı olabilir misiniz?[resimsolda] teşekkürler.
Kullanıcı avatarı
cnrtrkylmz
Yeni Başlamış
 
Kayıt: 14 May 2015 12:36
Meslek: öğrenci
Yaş: 24
İleti: 33
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa/nilüfer

Cevap: MsgBox Komutuna Hücre Satır Atama

İleti#2)  Ozan İLGÜN » 14 May 2015 12:58

Caner Bey sitemize hoş geldiniz. İleti yazarken küçük büyük harf ve noktalama kurallarına dikkat edelim. Sorunuzu daha açık anlatabilir misiniz.
ozan.ilgun@boun.edu.tr

Resim
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 12:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 33
İleti: 2711
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



Cevap: MsgBox Komutuna Hücre Satır Atama

İleti#3)  cnrtrkylmz » 14 May 2015 13:36

Tabiki daha dikkatli olurum, uyarınız için teşekkür ederim .
Excelde A sütununa kişilerin adını , B sütununa soyadlarını , C sütununa da yaşadığı şehirleri gireceğim
ve kullanacak olandan inputbox komutu ile adını ve/veya soyadını alacak bu ad soy ada göre yaşadığı şehir msgbox komutu ile ekrana yazdıracağım
Kod: Tümünü seç
Sub asdsad()
Dim A, B As String



A1 = Cells(2, 1)
B1 = Cells(2, 2)
C1 = Cells(2, 3)
A2 = Cells(3, 1)
B2 = Cells(3, 2)
C2 = Cells(3, 3)
A3 = Cells(4, 1)
B3 = Cells(4, 2)
C3 = Cells(4, 3)
A4 = Cells(5, 1)
B4 = Cells(5, 2)
C4 = Cells(5, 3)
A5 = Cells(6, 1)
B5 = Cells(6, 2)
C5 = Cells(6, 3)
A6 = Cells(7, 1)
B6 = Cells(7, 2)
C6 = Cells(7, 3)
A7 = Cells(8, 1)
B7 = Cells(8, 2)
C7 = Cells(8, 3)
A8 = Cells(9, 1)
B8 = Cells(9, 2)
C8 = Cells(9, 3)
A9 = Cells(10, 1)
B9 = Cells(10, 2)
C9 = Cells(10, 3)
A10 = Cells(11, 1)
B10 = Cells(11, 2)
C10 = Cells(11, 3)



A = InputBox("isim giriniz:")
B = InputBox("soyadı giriniz:")
If A = A1 And B=B1 Then If MsgBox("yaşadığı şehiri görmek istiyor musunuz?", vbOKCancel) = vbOK Then MsgBox (C1)
If A = A2 And B = B2 Then If MsgBox("yaşadığı şehiri görmek istiyor musunuz?", vbOKCancel) = vbOK Then MsgBox (C2)
If A = A3 And B = B3 Then If MsgBox("yaşadığı şehiri görmek istiyor musunuz?", vbOKCancel) = vbOK Then MsgBox (C3)
If A = A4 And B = B4 Then If MsgBox("yaşadığı şehiri görmek istiyor musunuz?", vbOKCancel) = vbOK Then MsgBox (C4)
If A = A5 And B = B5 Then If MsgBox("yaşadığı şehiri görmek istiyor musunuz?", vbOKCancel) = vbOK Then MsgBox (C5)
If A = A6 And B = B6 Then If MsgBox("yaşadığı şehiri görmek istiyor musunuz?", vbOKCancel) = vbOK Then MsgBox (C6)
If A = A7 And B = B7 Then If MsgBox("yaşadığı şehiri görmek istiyor musunuz?", vbOKCancel) = vbOK Then MsgBox (C7)
If A = A8 And B = B8 Then If MsgBox("yaşadığı şehiri görmek istiyor musunuz?", vbOKCancel) = vbOK Then MsgBox (C8)
If A = A9 And B = B9 Then If MsgBox("yaşadığı şehiri görmek istiyor musunuz?", vbOKCancel) = vbOK Then MsgBox (C9)
If A = A10 And B = B10 Then If MsgBox("yaşadığı şehiri görmek istiyor musunuz?", vbOKCancel) = vbOK Then MsgBox (C10)


End Sub


Bu komutu yazdım ama isimler farklı ise yani tek bir A1 ismi varsa direk şehri vermesini istiyorum , olaki A1 isiminden verimde
2 tane varsa benden kullanıcının soyadı bilgisini de istemesini istiyorum ama if else komutuna hakim değilim
En son Murat OSMA tarafından, 14 May 2015 14:33 tarihinde değiştirildi, toplamda 1 değişiklik yapıldı.
Sebep: Kodlar taglar arasına alındı.
Kullanıcı avatarı
cnrtrkylmz
Yeni Başlamış
 
Kayıt: 14 May 2015 12:36
Meslek: öğrenci
Yaş: 24
İleti: 33
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa/nilüfer

Cevap: MsgBox Komutuna Hücre Satır Atama

İleti#4)  Ali ÖZ » 14 May 2015 14:05

Denermisiniz.

Kod: Tümünü seç
Sub Düğme1_Tıklat()
A = InputBox("isim giriniz:")
B = InputBox("soyadı giriniz:")
For i = 2 To Range("a65536").End(3).Row
If Cells(i, 1).Value = A And Cells(i, 2).Value = B Then
MsgBox Cells(i, 3).Value
End If
Next
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: 9786
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

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

Cevap: MsgBox Komutuna Hücre Satır Atama

İleti#5)  Ozan İLGÜN » 14 May 2015 14:26

Kod: Tümünü seç
Dim ad As String
Dim soyad As String
Dim adsoyad As String
Dim adsatir As Integer
Dim adsayac As Integer
Dim i As Range
Dim alan As Range
Set alan = Range("A1:A15")

ad = InputBox("isim giriniz:")
adsayac = WorksheetFunction.CountIf(alan, ad)
If adsayac = 1 Then
If MsgBox("yaşadığı şehiri görmek istiyor musunuz?", vbOKCancel) = vbOK Then
satir = alan.Find(ad).Row
MsgBox (Range("C" & satir).Value)
End If
Else

soyad = InputBox("soyadı giriniz:")
adsoyad = ad & soyad

For Each i In alan.Cells
If adsoyad = (i.Value & Range("B" & i.Row).Value) Then
If MsgBox("yaşadığı şehiri görmek istiyor musunuz?", vbOKCancel) = vbOK Then
satir = i.Row
MsgBox (Range("C" & satir).Value)
End If
End If
     
    Next
End If

Alan kısmından kullandığınız satır sayısını değiştirebilirsiniz. Anlamadığınız olursa sorun
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
ozan.ilgun@boun.edu.tr

Resim
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 12:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 33
İleti: 2711
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



Cevap: MsgBox Komutuna Hücre Satır Atama

İleti#6)  cnrtrkylmz » 14 May 2015 14:59

çok teşekkür ederim sorunum çözüldü.
En son Ozan İLGÜN tarafından, 14 May 2015 15:06 tarihinde değiştirildi, toplamda 1 değişiklik yapıldı.
Sebep: Hatalar belirtildi.
Kullanıcı avatarı
cnrtrkylmz
Yeni Başlamış
 
Kayıt: 14 May 2015 12:36
Meslek: öğrenci
Yaş: 24
İleti: 33
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa/nilüfer

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