userform üzerindeki textbox kutusunu yazdıgımı sayfa 1 ve 2 ye atmasını istiyorum

[akd44]

arkadaşlar merhaba bu sorunuma yardım ederseniz çok sevinirim ilginize teşkkürler

 

[serinci]

sayfa1 ve 2 ni hangi alanlarına yada kaçtane textbox var

biraz daha açıklayıcı olmanız gerekir. mümkünse dosyanızı ekleyin

 

[akd44]

:yardim: merhabalar ben text kututularına yazdımda kayded dümesine bastım zaman
text kuslarındaki yazıların sayfa1 ve 2 a1 b1 c1 d1 hürelerine yazmasını istiyorum eger bu hüreler dolu ise alttaki hücrelere yazmasını istiyorum:yardim:

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub CommandButton1_Click()
sa = Array("sayfa1", "sayfa2")
For i = 0 To 1
say = Sheets(sa(i)).[a65536].End(3).Row + 1
Sheets(sa(i)).Range("a" & say) = TextBox1.Value
Sheets(sa(i)).Range("b" & say) = TextBox2.Value
Sheets(sa(i)).Range("c" & say) = TextBox3.Value
Sheets(sa(i)).Range("d" & say) = TextBox4.Value
Next
End Sub

 

[Seyit Tiken]

Örnek uygulamayı kendinize uyarlayınız.

 

[akd44]

SN Seyit Tiken ÇOK TEŞEKKÜRLR

Örnek uygulamayı kendinize uyarlayınız.

ALLAH SİZLERDEN RAZI OLSUN BAYRAMINZ MUBAREK OLSUN