İKİ TEXTBOXA GİRİLEN SAYILARI SAYFADA ARAYIP SONUCU LABELA NASIL AKTARIRIM?

[bkk]

Merhabalar,
Elimde textbox1 ve textbox2 var, sayfada ise (D4:F4) ile (B5:B100) aralığında verim var,
textbox1 i (D4:F4) , textbox2 ise (B5:B100) aralıklarında aramasını ve sonucunu label a yazmasını istiyorum
yardımcı olabilir misiniz,
İyi günler dilerim,

 

[bkk]

Merhabalar,
Elimde textbox1 ve textbox2 var, sayfada ise (D4:F4) ile (B5:B100) aralığında verim var,
textbox1 i (D4:F4) , textbox2 ise (B5:B100) aralıklarında aramasını ve keşisim sonucunu label a yazmasını istiyorum
yardımcı olabilir misiniz,
İyi günler dilerim,

 

[ÖmerFaruk]

Sorunuzu ve Manuel çözümü örnek bir excel dosyasıyla sorabilir misin?
Userforma gerek yok. Textbox ve label yerine sayfa üstünde hücreleri örneklendirebilirisn.

 

[kulomer46]

Merhaba

Altın üyeliğiniz hayırlı olsun.

Aramıza hoş geldiniz.

Talebiniz hakkında bir çalışma Ek 'tedir.

Selamlar...

İlgili Resim

Bilgi

Bilgi

dosyam.org

 

[bkk]

Sorunuzu ve Manuel çözümü örnek bir excel dosyasıyla sorabilir misin?
Userforma gerek yok. Textbox ve label yerine sayfa üstünde hücreleri örneklendirebilirisn.

Ömer bey teşekkür ederim ama ben sayfadan değilde textboxtan alabilir miyim onu merak ediyorum

 

[bkk]

Merhaba

Altın üyeliğiniz hayırlı olsun.

Aramıza hoş geldiniz.

Talebiniz hakkında bir çalışma Ek 'tedir.

Selamlar...

İlgili Resim
Ekli dosyayı görüntüle 231527

Bilgi

Bilgi

dosyam.org

Hoşbuldum emeğiniz için teşekkür ederim ama ben sayfayı gizleyip form arayüzünü göstereceğim hücreden yine bu şekilde alabilirim ama merak ediyorum textboxa girdiğim değeri herhangi bir hücreye yapıştırmadan alabilir miyim , alabilirsem nasıl alırım diye

 

[ÖmerFaruk]

Aslında sadece nasıl bir veri aratmaya çalıştığınızı anlamak için söylemiştim. Sıkıntı yok.
Altın üyesiniz. Direkt dosyanızı paylaşırsanız hızlı cevap alabileceksiniz.
Dosyanzıda özel veriler varsa verileri değiştirerek paylaşabilirsiniz.

 

[bkk]

Ömer bey ekliyorum hemen,
sayfa1 user form kullanılmadan yaptığım ve sonuç veren bir tablodur.
Talebim ise; user forma girilen değerleri , degerler sayfasında arayacak ve verdiğim formülü uygulayacak,

 

[ÖmerFaruk]

Aşağıdaki Makroyu userform içinde çalıştırabilirsiniz.

Bu arada Enterpolasyon yaptığınızdan ötürü alt ve üst basınç değerlerini girmenize gerek kalmadan direkt Gauge textboxunuzdaki değere en yakın alt ve üst değeri hesaplatarak işlem yaptım.

Sub GaugeEnterpolasyon_1()
Dim g1 As Range, g2 As Range, hesap As Double, Kolon As Integer
    sonuc.Caption = ""
    With Worksheets("degerler")
        Set g1 = .Range("B:B").Find(gauge - gauge Mod 5, , xlValues, xlWhole)
        Set g2 = .Range("B:B").Find(5 + gauge - gauge Mod 5, , xlValues, xlWhole)
        If g1 Is Nothing Or g2 Is Nothing Then Exit Sub
        Kolon = WorksheetFunction.Match(trim * 1, .Range("D4:F4"), 0)
        If Kolon > 0 Then
            hesap = g2.Offset(0, 1 + Kolon) - g1.Offset(0, 1 + Kolon)
            hesap = hesap / (g2 - g1)
            hesap = hesap * (gauge Mod 5)
            hesap = g1.Offset(0, 1 + Kolon) + hesap
            sonuc.Caption = Format(hesap, "#,##0.00")
        End If
    End With
    Set g1 = Nothing: Set g2 = Nothing
End Sub

 

[bkk]

Aşağıdaki Makroyu userform içinde çalıştırabilirsiniz.

Bu arada Enterpolasyon yaptığınızdan ötürü alt ve üst basınç değerlerini girmenize gerek kalmadan direkt Gauge textboxunuzdaki değere en yakın alt ve üst değeri hesaplatarak işlem yaptım.

Sub GaugeEnterpolasyon_1()
Dim g1 As Range, g2 As Range, hesap As Double, Kolon As Integer
    sonuc.Caption = ""
    With Worksheets("degerler")
        Set g1 = .Range("B:B").Find(gauge - gauge Mod 5, , xlValues, xlWhole)
        Set g2 = .Range("B:B").Find(5 + gauge - gauge Mod 5, , xlValues, xlWhole)
        If g1 Is Nothing Or g2 Is Nothing Then Exit Sub
        Kolon = WorksheetFunction.Match(trim * 1, .Range("D4:F4"), 0)
        If Kolon > 0 Then
            hesap = g2.Offset(0, 1 + Kolon) - g1.Offset(0, 1 + Kolon)
            hesap = hesap / (g2 - g1)
            hesap = hesap * (gauge Mod 5)
            hesap = g1.Offset(0, 1 + Kolon) + hesap
            sonuc.Caption = Format(hesap, "#,##0.00")
        End If
    End With
    Set g1 = Nothing: Set g2 = Nothing
End Sub

Çok teşekkür ediyorum hemen uygulayacağım.

 

[bkk]

Sub GaugeEnterpolasyon_1() Dim g1 As Range, g2 As Range, hesap As Double, Kolon As Integer sonuc.Caption = "" With Worksheets("degerler") Set g1 = .Range("B:B").Find(gauge - gauge Mod 5, , xlValues, xlWhole) Set g2 = .Range("B:B").Find(5 + gauge - gauge Mod 5, , xlValues, xlWhole) If g1 Is Nothing Or g2 Is Nothing Then Exit Sub Kolon = WorksheetFunction.Match(trim * 1, .Range("D4:F4"), 0) If Kolon > 0 Then hesap = g2.Offset(0, 1 + Kolon) - g1.Offset(0, 1 + Kolon) hesap = hesap / (g2 - g1) hesap = hesap * (gauge Mod 5) hesap = g1.Offset(0, 1 + Kolon) + hesap sonuc.Caption = Format(hesap, "#,##0.00") End If End With Set g1 = Nothing: Set g2 = Nothing End Sub

Ömer bey ekteki dosyayı çalıştıramadım

 

[ÖmerFaruk]

Formunuza bir buton ekleyin.
Butonun Click olayına aşağıdaki gibi verdiğim kodu ekleyin

Private Sub CommandButton1_Click()
    Call GaugeEnterpolasyon_1
End Sub

 

[bkk]

Ömer bey click olmadan yapamaz mıyız enter ile mesela

 

[ÖmerFaruk]

Dosyanızı ufaktan düzeneldim. İnceleyin.

 

[bkk]

Ömer bey elinize sağlık çok güzel olmuş böyle daha faydalı olacaktır,