Userformdaki veri guncelleme

[Jezus]

Selamlar bu ay cok soru sordum umarim kizmazsiniz bana
Soru su Userformdaki textBox,a veri yazip F3 ten F50 ye kadar olan hucrelere yazmasi bunu nasil yapabilirim...?



Selamlar iyi calismalar

Jezus

 

[Jezus]

Sitede zamani olan arkadas varmi benim probleme bakacak..?

 

[Jezus]

Galiba ben yanlis sordum

Selamlar Galiba soruyu yanlis sordum arkadaslar ataca bir ornek dosya ekledim bakarsaniz sevinirim.


Selamlar

 

[Korhan Ayhan]

Selamlar,

Kendimce birşeyler yapmaya çalıştım umarım işinize yarar.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:ecfdf7828d]Private Sub CommandButton1_Click()
Dim sonsat As Integer
sonsat = [a65536].End(3).Row
If TextBox1 <> "" Then Range("b1:b" & sonsat) = TextBox1.Value
If TextBox2 <> "" Then Range("c1:c" & sonsat) = TextBox2.Value
End Sub
[/vb:1:ecfdf7828d]

 

[Jezus]

COST_CONTROL, VE LEVENTM ilginize tesekkurler istedigim buydu cok sagolun bir sorum daha var egerki bunu sayfa 1 ile safya 8 e yazdirmak istersem Sheet, mi sayfa mi yazmam gerekiyor ve tam nereye yazmam lazim simdiden cok tesekkurler.

Selamlar

Jezus

Sayenizde Excel delisi oldum gece yatarken bile excel,deki fonksiyonlari dusunuyorum ( ama bu sikayet degil tabii) ''

 

[veyselemre]

[vb:1:10050c3475]Private Sub CommandButton1_Click()
Dim sonsat As Integer
Sheets("sayfa1").Select
GoSub guncelle
Sheets("sayfa3").Select
GoSub guncelle
Exit Sub
guncelle:
sonsat = [a65536].End(3).Row
If TextBox1 <> "" Then Range("b1:b" & sonsat) = TextBox1.Value
If TextBox2 <> "" Then Range("c1:c" & sonsat) = TextBox2.Value
Return
End Sub
[/vb:1:10050c3475]

 

[Jezus]

Tesekkur Veysel arkadas buyuk dert bitti.



Vatana Selamlar

Jezus