yatayara

[bskaa]

Merhaba, bir textbox'ta bulunan β değerine göre altındaki NT değerini bir başka textbox'a atasın istiyorum. Yatayara formülünü oluşturamadım. Yardımcı olabilirseniz sevinirim. Teşekkürler...

β	75°	80°	85°	90°	95°	100°	105°
NT	2,5​	3​	3,8​	5​	6,7​	10​	15,2​

 

[AdemCan]

Merhaba,
Örnek olarak Verilerin resimdeki gibi olduğu varsayılmıştır.

Textbox1'e yazılan değeri B1 - H1 aralığında arar, bulunan değerin alt satırındaki veriyi de Textbox2' ye yazan örnek kod.

Private Sub CommandButton1_Click()
    Set bul = Sayfa1.Range("B1:H1").Find(CInt(TextBox1), lookat:=xlWhole)
    If Not bul Is Nothing Then
        satir = bul.Row + 1: sutun = bul.Column
        TextBox2 = Sayfa1.Cells(satir, sutun)
    End If
End Sub

 

[bskaa]

Cevabınız için teşekkürler. Verdiğiniz örnekten uyarlayarak aşağıdaki kodu yazdım. İnvalid qualifier hatası veriyor.
Dim tablo1, tablo3 As Range
Dim Cut, MT As String
Dim alfa, beta As String
Dim NT, Kp As Double

Set tablo1 = Worksheets("Tables1").Range("a2:v420")
MT = ComboBox3.Text
Cut = tablo1.Find(MT, , , xlWhole).Offset(, 22)
If Cut = "Undercut U" Then
OB6 = True
beta = tablo1.Find(MT, , , xlWhole).Offset(, 12)
TextBox23.Value = beta
Set tablo3 = Worksheets("Tables2").Range("I33")
beta = tablo3.Find(CInt(TextBox23), lookat:=xlWhole)
NT = beta.Row + 1
TextBox24.Value = NT
End If
End Sub

 

[bskaa]

Merhaba, bu kod da hata veriyor. HLookup özelliği alınamıyor diye.


Private Sub CommandButton2_Click()
Dim tablo1, tablo3 As Range
Dim Cut, MT As String
Dim alfa, beta As String
Dim NT, Kp As Double
Set tablo1 = Worksheets("Tables1").Range("a2:v420")
MT = ComboBox3.Text
Cut = tablo1.Find(MT, , , xlWhole).Offset(, 22)
If Cut = "Undercut U" Then
OB6 = True
beta = tablo1.Find(MT, , , xlWhole).Offset(, 12)
TextBox23.Value = beta
NT = Application.WorksheetFunction.HLookup(TextBox23.Value, Worksheets("Tables2").Range("I33"), 2, 0)
TextBox24.Value = NT
End If
End Sub

 

[AdemCan]

Merhaba, dosyanın örnek halini paylaşır mısınız?
Örnek olarak aşağıdaki siteyi dosya paylaşımında kullanabilirsiniz.

Lifebox Transfer: Upload File! Send and Share Large Files

Lifeboxtransfer is a fast file transfer service for sharing your files easily without membership. Click and start sharing your files fast and easily with lifeboxtransfer.

lifeboxtransfer.com

 

[bskaa]

Merhaba, link aşağıdadır.
Tables2 sayfasındaki β değerine göre NT değerini Textbox24'de göstersin istiyorum. β değerini TextBox22'ye Tables1'den düşey ara ile getirmeyi başardım.
İlginiz için teşekkürler.

Lifebox Transfer: Upload File! Send and Share Large Files

Lifeboxtransfer is a fast file transfer service for sharing your files easily without membership. Click and start sharing your files fast and easily with lifeboxtransfer.

lifeboxtransfer.com

 

[AdemCan]

Merhaba, 2 numaralı mesajda paylaştığım kodların dosyanıza uygulanmış hali ve ekran görüntüsü.
Tek fark, hücrelerdeki değerleri derece olarak yazdığınız için sayısal veri olmuyorlar, bu nedenle kod içerisindeki CInt ifadesini sildim.
Arama işlemi Textbox tan derece olarak yapılmaktadır.

Lifebox Transfer: Upload File! Send and Share Large Files

Lifeboxtransfer is a fast file transfer service for sharing your files easily without membership. Click and start sharing your files fast and easily with lifeboxtransfer.

lifeboxtransfer.com

Spoyler: Ekran Görüntüsü

 

[bskaa]

Teşekkür ederim. Örnek dosyada sorun yok. Kendi dosyamda olmadı.

 

[AdemCan]

Asıl dosyanın örnek halini paylaşır mısınız?

 

[bskaa]

Halledince kodu yazarım.