Find komutu yada başka bir komut ile sayfada arama yapma.

[jr1453]

arkadaşlar merhaba. Sorunum şöyle, 2 textboxum var ve bunların içinde ki değeri *** çalışması sayfasında arayıp yanında ki değerden düşürcek. Örnek verecek olursak:
Textbox1'e fatih yazdım
Textbox2'e de 5 yazdım. Sayfam;

ahmet 5
fatih 120
salih 8
.
.
.
diye devam etmekte. textbox'1e fatih ya da salih yazdığımda o hücrenin yanında ki satırdan textbox2'nin valuesini düşürmesini istemekteyim. Find komutunu bi türlü kullanamadım kafayı yicem sürekli hata veriyor. Yardım edecek olanlara şimdiden teşekkür ederim.

 

[ÖmerBey]

Merhaba,
Sayfa ismini kendinize göre uyarlayıp aşağıdaki kodu deneyiniz.

If TextBox1 = "" Or TextBox2 = "" Then Exit Sub
Dim bul As Range, s1 As Worksheet
Set s1 = Sheets("[COLOR="Red"]Sayfam[/COLOR]")
Set bul = s1.Cells.Find(TextBox1.Text)
If Not bul Is Nothing Then
    bul.Offset(0, 1).Value = bul.Offset(0, 1).Value - TextBox2.Value
Else
    MsgBox TextBox1.Text & " değeri bulunamadı."
End If

 

[jr1453]

Merhaba,
Sayfa ismini kendinize göre uyarlayıp aşağıdaki kodu deneyiniz.

If TextBox1 = "" Or TextBox2 = "" Then Exit Sub
Dim bul As Range, s1 As Worksheet
Set s1 = Sheets("[COLOR="Red"]Sayfam[/COLOR]")
Set bul = s1.Cells.Find(TextBox1.Text)
If Not bul Is Nothing Then
    bul.Offset(0, 1).Value = bul.Offset(0, 1).Value - TextBox2.Value
Else
    MsgBox TextBox1.Text & " değeri bulunamadı."
End If

Teşekkür ederim Ömer bey. peki aynı şekilde sayfa isimlerinden aratıp daha sonra hücrede arama yapılabilir mi? mesela a ve b sayfası var textbox1'e a ya da b yazarsam önce o sayfaya gidicek daha sonra cevabını verdiğiniz işlem devreye girecek?

 

[ÖmerBey]

Set s1 = Sheets("Sayfam")

Sayfayı belirleyen kod burası. Sayfa ismini textboxtan aldırmak istiyorsanız örnek olarak şu şekilde kulllanabilirsiniz

Set s1 = Sheets([COLOR="Red"]TextBox3.Text[/COLOR])

 

[jr1453]

Set s1 = Sheets("Sayfam")

Sayfayı belirleyen kod burası. Sayfa ismini textboxtan aldırmak istiyorsanız örnek olarak şu şekilde kulllanabilirsiniz

Set s1 = Sheets([COLOR="Red"]TextBox3.Text[/COLOR])

Ben parantez içini textbox3.value yaptığımdan mıdır acaba olmaması..
Teşekkür etmekteyim sizlere.