Userformda düşeyara ve indisleme sorunu

[nazifdural]

Merhaba Sevgili Dostlarım ve Hocalarım,

Düşeyara ve indisi userformda alt alta nasıl kullanabiliriz.Çözemediğim sorunum bir tablom var A B C D E F G Kolonlarından oluşmakta A kolonu Id, B C D kolonlarına ise userformdan giriş yapmaktayım. E ve F kolonları excel sayfasında bir makro ile 2 sayfadan B karşılığı gelen bilgileri almakta ben bu alınan bilgilerin userformda da görünmesini istiyorum.fakat ben bilgi girişi yapıldıkça o satırdaki E ve F kolonlarındaki bilginin userforma gelmesini istiyorum.
Şöyle bir formül yazıp tek bir hücreyi userforma alabiliyorum. Texbox3=["Data!E2"] ama bunun B3 e userformdan girişi yapıldığında E3 ve F3 ....diye B girişlerine göre userforma nasıl getirebilirim.

 

[Orion1]

Bir şey anladıysam ne olayım.
Bir tane örnek dosya ekleyiniz ve örnek dosya üzerinde açıklama yapınız.

 

[fedeal]

1.userformdan ilk boş satıramı kayıt yapıyorsunuz?
2.userformda textboxamı labelmi listboxamı getirmek istiyorsunuz?textboxa ise textboxun ismi?
ve dahası....
örnek dosya olmadan yardım etmek zor oluyor.sayfaya aktarım yaptıgınız kodu yazın yada ama en saglıklısı örnek dosya. saygılar.

 

[nazifdural]

Değerli Hocalarım,
Dosyam ektedir.birde miktar ile ort.birim fiyat çarpımını maliyet tutarına nasıl aldıracağız.(makro ile)
şimdiden teşekkürler

 

[nazifdural]

Hocam,dosyayı birtürlü ekleyemedim.
userformda ilk boş satıra kayıt yaptırıyorum.
userforma bilgiyi textboxla getiriyorum.

 

[nazifdural]

Hocam,
userformdan ilk boş satıra kayıt yapıyorum
userformda textboxla bilgiyi getiriyorum.E sütunu için textbox3 F sütunu için textbox4 kullanıyorum

 

[fedeal]

kodlarınız degişik olabilir örnek yazıyorum uyarlarsınız.Textbox3 a e sütünundan veri alabilirsiniz.

Son_Dolu_Satir = Sheets("data").Range("A65536").End(xlUp).Row
Bos_Satir = Son_Dolu_Satir + 1

Sheets("data").Range("C" & Bos_Satir).Value = TextBox2.Text
Sheets("data").Range("D" & Bos_Satir).Value = ComboBox1.Text

TextBox3.Text = Sheets("data").Range("e" & Bos_Satir).Value
TextBox4.Text = Sheets("data").Range("f" & Bos_Satir).Value

 

[fedeal]

Değerli Hocalarım,
Dosyam ektedir.birde miktar ile ort.birim fiyat çarpımını maliyet tutarına nasıl aldıracağız.(makro ile)
şimdiden teşekkürler

miktar textbox5 olsun
ort.birimfiyat textbox6 olsun
maliyet tutarı textbox8 olacaksa:

Private Sub TextBox5_Change()
If TextBox5 <> "" And TextBox6 <> "" Then 'bu sorguyu textbox5 boşaltılırsa hata verecektir onun için koyuyoruz.
TextBox8.Text = CDbl(TextBox6.Text) * CDbl(TextBox5.Text)
Else
End If
End Sub

Private Sub TextBox6_Change()
If TextBox6 <> "" And TextBox5 <> "" Then
TextBox8.Text = CDbl(TextBox6.Text) * CDbl(TextBox5.Text)
Else
End If
End Sub

bu userform üzerindeyse textboxları kullanıyorsanız işinize yarar.

 

[nazifdural]

Hocam kusura bakmayın,burada çok kötü fırtına çıktı..internet gitti...şimdi deniyorum..çok teşekkürler emeğinize..