Textbox Yazilanlarin HÜcreye Yansimasi

[yesilcan]

ArkadaŞlarim Hocalarim Eklİ Dosyada Ayrintili Olarak AÇiklamaya ÇaliŞtim.yardimlarinizi Esİrgemessenİz Sevİnİrİm.

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub TextBox2_Change()
Range("A15").Value = TextBox2.Value
End Sub

 

[yesilcan]

Hocam SÜpersİn..

Hocam Çok İyİsİn.teŞekkÜr Ederİm.

 

[Orion1]

Hocam Çok İyİsİn.teŞekkÜr Ederİm.

Rica ederim.
İyi çalışmalar.

 

[Merhum İdris SERDAR]

ArkadaŞlarim Hocalarim Eklİ Dosyada Ayrintili Olarak AÇiklamaya ÇaliŞtim.yardimlarinizi Esİrgemessenİz Sevİnİrİm.

Dosyanız ekte.
.

 

[yesilcan]

Hocam Sİzede TŞk.ederİm

YurttaŞ Hocam İlgİn İÇİn TŞk.ederİm.

Bİr Sorum Olacak.

Hocam AÇilimi Yazan C15 HÜcresİ Yerİne BaŞka Bİr Textbox Olsada Textbox1'e YazdiĞim Stok Numarasini Textbox2 'yede AÇiklama Yassin

 

[Orion1]

Hocam AÇilimi Yazan C15 HÜcresİ Yerİne BaŞka Bİr Textbox Olsada Textbox1'e YazdiĞim Stok Numarasini Textbox2 'yede AÇiklama Yassin

Ekli dosyayı inceleyiniz.

Private Sub TextBox2_Change()
Set s2 = Sheets("VERİ")
TextBox1.Value = ""
If TextBox2.Value = "" Then Exit Sub
Set k = s2.Range("A1:A65536").Find(TextBox2.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not k Is Nothing Then
    TextBox1.Value = s2.Cells(k.Row, 2).Value
End If
End Sub

 

[yesilcan]

Hocam Tekrar SaĞol

Hocam Tekrar TeŞekkÜr Ederİm.
İyİkİ Excel Web'e Üye OlmuŞum.

 

[Orion1]

Hocam Tekrar TeŞekkÜr Ederİm.
İyİkİ Excel Web'e Üye OlmuŞum.

Rica edrim.
İyi çalışmalar.