Soru Girdiye karşılık gelen değeri yazdırmak

[goko36]

Basitce kullanıcıdan inputbox ile değer girmesini istedim. daha sonrasında ise girdiği değere, exceldeki tablomda karşılık gelen değeri msgbox içerisinde göstermek istiyorum. nasıl yapabilirim

Screenshot

Captured with Lightshot

prnt.sc

yani kullanıcı 25 değerini girecek ben vbada karlısına 997 değerini göstereceğim. şimdiden teşekkürler

 

[Korhan Ayhan]

Deneyiniz.

Arama işlemini A sütununda yapar. Kendinize uyarlarsınız.

Option Explicit

Sub Deger_Ara()
    Dim Deger As Variant, Bul As Range
    
    Deger = Application.InputBox("Aramak istediğiniz değeri giriniz...")
    
    If Deger = "" Or Deger = False Then Exit Sub
    
    Set Bul = Range("A:A").Find(Deger, , , xlWhole)
    
    If Not Bul Is Nothing Then MsgBox Bul.Offset(, 2)
End Sub

 

[goko36]

Deneyiniz.

Arama işlemini A sütununda yapar. Kendinize uyarlarsınız.

Option Explicit

Sub Deger_Ara()
    Dim Deger As Variant, Bul As Range
  
    Deger = Application.InputBox("Aramak istediğiniz değeri giriniz...")
  
    If Deger = "" Or Deger = False Then Exit Sub
  
    Set Bul = Range("A:A").Find(Deger, , , xlWhole)
  
    If Not Bul Is Nothing Then MsgBox Bul.Offset(, 2)
End Sub

Yanlış anlamadıysam bu makro girilen Deger değişkenini örnek veriyorum a1 a23 hücreleri arasında arayıp o hücrede yazanı önüne sunuyor. fakat (örnek veriyorum) benim aradığım deger değişkeni zaten a20 deki değer. istediğim dönüt ise c20 hücresinde yazan şey.

umarım açıklayabilmişimdir

 

[Korhan Ayhan]

Denemeden yazdığınız nasıl belli oluyor...

 

[goko36]

Denemeden yazdığınız nasıl belli oluyor...

denedim fakat kendi koduma uygulayamadım demekki :S. hemen deniyorum tekrardan.

 

[goko36]

Denemeden yazdığınız nasıl belli oluyor...

Ah şimdi anladım. Arama yaptığımız range kısmında hata yapıyormuşum. Sizden ricam Bul.Offset kısmındaki mantığı anlatabilirmisiniz?

çok teşekkürler. fena derece iyi bir çözüm

 

[Korhan Ayhan]

Offset (Kaydır) özelliğidir.

Aynı exceldeki KAYDIR fonksiyonu gibi çalışır.

Bulduğun değerin iki sütun ötesindeki değeri ver anlamında kullanmıştım.

 

[goko36]

Offset (Kaydır) özelliğidir.

Aynı exceldeki KAYDIR fonksiyonu gibi çalışır.

Bulduğun değerin iki sütun ötesindeki değeri ver anlamında kullanmıştım.

anladım. çok teşekkürler tekrardan

 

[goko36]

Offset (Kaydır) özelliğidir.

Aynı exceldeki KAYDIR fonksiyonu gibi çalışır.

Bulduğun değerin iki sütun ötesindeki değeri ver anlamında kullanmıştım.

özür dilerim tekrar rahatsız ediyorum ama bir sorunla karşılaştım. şimdi kullanıcıdan istenen veriyi aldım. karşılık gelen değerleri çekmeye çalışıyorum. birden fazla değer çekmem gerektiği için biraz geliştirmem gerekti.

Screenshot

Captured with Lightshot

prnt.sc

fakat bu kodu çalıştırdığımda nedense kod exceldeki hücre içindeki değerleri siliyor. ve atadığım DviscSI KviscSI gibi değişkenler empty kalıyor. bunun önüne nasıl geçebilirim

Örneğin 15 derece için şu veriler

Screenshot

Captured with Lightshot

prnt.sc

offset konusunda bir sıkıntı yok fakat kodu çalıştırdığımda o hücrelerdeki veriyi siliyor

 

[Korhan Ayhan]

Örnek dosya ekleyerek yapmak istediğiniz işlemi açıklarsanız daha net cevaplar verebiliriz.

 

[goko36]

Örnek dosya ekleyerek yapmak istediğiniz işlemi açıklarsanız daha net cevaplar verebiliriz.

excel dosyası eklemeyi bulamadım ekle kısmında sanırsam sadece altın üyelere açık. fotoğraf ekliyorum yine.

Screenshot

Captured with Lightshot

prnt.sc

kullanıcı a sütünündan bir sayı giricek inputbox ile. (sayı 5in katları olması sorununu mod ile çözdüm sıkıntı yok) örneğin a2 hücresi 5. bende dönüt olarak e2 c2 d2 hücresinde yazan cevapları vereceğim. umarım açıklaya bilmişimdir

 

[Korhan Ayhan]

"e2 c2 d2 hücresinde yazan cevapları vereceğim" bu ifadenizden ne anlam çıkaralım.

 

[goko36]

"e2 c2 d2 hücresinde yazan cevapları vereceğim" bu ifadenizden ne anlam çıkaralım.

kullanıcı inputbox a 10 yazacak. daha sonra ben vba ile msgbox ile 1000,1.30*10^-3 ve 1.30*10^-6 mesajlarını yazdıracağım. Hücrelerin isimlerini yazmak istemiştim e2 c2 d2 ile. pek açıklayıcı olmamış haklısınız :S

 

[Korhan Ayhan]

Deneyiniz.

Kendinize uyarlarsınız.

Option Explicit

Sub Deger_Ara()
    Dim Deger As Variant, Bul As Range
    
    Deger = Application.InputBox("Aramak istediğiniz değeri giriniz...")
    
    If Deger = "" Or Deger = False Then Exit Sub
    
    Set Bul = Range("A:A").Find(Deger, , , xlWhole)
    
    If Not Bul Is Nothing Then
        MsgBox "Bulunan değerler ; " & vbLf & _
               Bul.Offset(, 2) & vbLf & _
               Bul.Offset(, 3) & vbLf & _
               Bul.Offset(, 4)
    End If
End Sub

 

[goko36]

Deneyiniz.

Kendinize uyarlarsınız.

Option Explicit

Sub Deger_Ara()
    Dim Deger As Variant, Bul As Range
   
    Deger = Application.InputBox("Aramak istediğiniz değeri giriniz...")
   
    If Deger = "" Or Deger = False Then Exit Sub
   
    Set Bul = Range("A:A").Find(Deger, , , xlWhole)
   
    If Not Bul Is Nothing Then
        MsgBox "Bulunan değerler ; " & vbLf & _
               Bul.Offset(, 2) & vbLf & _
               Bul.Offset(, 3) & vbLf & _
               Bul.Offset(, 4)
    End If
End Sub

çok işime yaradı teşekkürler