SÜTUNLAR İLEN SATIRIN KESİŞTİĞİ HÜCREYİ TEXTBOX İLE BULMA

[YAKAKENTİM]

ARKADAŞLAR HERKESE SELAMLAR :hey: :arkadas: :lol: :bravo: :hiho:

Userform1'de 3 adet TextBox var bunlardan birincisine satır ikincisine ise sütun numaralarını gireceğim (fakat bu satır ve sütunlar excel'lin kendi satır ve sütunları değil hücrelerde kendime satır ve sütun yaptım).
bunların birbirleriyle kesiştiği noktayı üçüncü textbox'a yazabilirmiyim.
AYNI KİMYA DERSLERİNDE KULLANILAN ÇİZELGE GİBİ
yardımlarınız için şimdiden teşekkürler..

 

[Ali]

Private Sub TextBox2_Change()
If TextBox1 = 1 Then
TextBox3 = "A" & " " & Val(TextBox2)
End If
If TextBox1 = 2 Then
TextBox3 = "B" & " " & Val(TextBox2)
End If
If TextBox1 = 3 Then
TextBox3 = "C" & " " & Val(TextBox2)
End If
End Sub



Private Sub TextBox1_Change()
If TextBox1 = 1 Then
TextBox3 = "A" & " " & Val(TextBox2)
End If
If TextBox1 = 2 Then
TextBox3 = "B" & " " & Val(TextBox2)
End If
If TextBox1 = 3 Then
TextBox3 = "C" & " " & Val(TextBox2)
End If
End Sub


Diğer kısımlarını siz kendinize göre ayarlarsınız

 

[YAKAKENTİM]

Sayın frustose

harika olmuş ellerinize sağlık çok teşekkür ederim. pucuk:

fakat kalan kısımları doldurun dediniz üzgünüm ama bu benim için çok zor olacak çünkü satırların tamamı 15000 kadar bunun taha pratik bir yolu varmı

 

[Levent Menteşoğlu]

Aşağıdaki kodları deneyin.

[vb:1:69cae52e55]Private Sub TextBox1_Change()
If TextBox2 <> "" Then TextBox3 = Cells(TextBox2 * 1 + 1, TextBox1 * 1 + 1)
End Sub

Private Sub TextBox2_Change()
If TextBox1 <> "" Then TextBox3 = Cells(TextBox2 * 1 + 1, TextBox1 * 1 + 1)
End Sub
[/vb:1:69cae52e55]

 

[Ali]

Bende diğer arkadaşın cevabını yazarken buraya döndüm baktım cevabını yazıyordum baktım cevap gelmiş herzamanki gibi hızlısınız Levent Bey

 

[YAKAKENTİM]

Sn levent,fructose

Alakanına çok teşekkürler sağ olun pucuk:

 

[YAKAKENTİM]

çok özür dilerim size sıkıntı veriyorum ama bugün son..

sayın levent beyin verdiği formül çok güzel çalışıyor fakat textbox'daki veriyi BackSpace ile sildiğimde error 13 diye hata veriyor bu sorununasıl düzelte bilirim

 

[Levent Menteşoğlu]

kodların her ikisininde başına "on error resume next" satırını ilave edin.

 

[YAKAKENTİM]

teşekkürler hakkınız ödenmez.. :hey: