UserForm İle Farklı Sayfalara aynı anda kayıt

[sedaysen]

UserForm Ýle Farklı Sayfalara aynı anda kayıt

Formda arattım; fakat ya sorulmadı yada bulamadım. Sorunum şu Userform üzerinde oluşturulan bilgileri Sayfa1 e aktardıktan sonra UserForm kapanmadan, arşiv olarak kullanacagım sayfayada; oda sayfa2 olsun nasıl yazdırabilirim.İlgilenip cevap vereceklere teşekkür ederim.

 

[ALPEN]

@sedaysen,

Sorun sizde değil. Argo kelimeleri otomatik filtreleme ile uğraşırken teknik bir hata yaptık.

Asıl biz özür dileriz.

 

[danersin]

sedaysen, Userform'dan sayfa1'e kayıt yapabiliyorsunuz anladığım kadarıyla. Bu kısımdaki Sayfa1 yerine Sayfa2 yaparsanız , Sayfa1 ve Sayfa2'ye kayıt yapan bu kodlarıda aynı procedure içinde yazarsanız aynı anda iki sayfaya da kayıt yapmış olursunuz. Yada ben soruyu yanlış anladım.

 

[sedaysen]

cevabınıza teşekkürler sayfa 1 üzerinde sabit hücrelere (Textbox1 - A1).(Textbox2 - C5),sayfa2 de ise sıralı satırlara (Textbox1 -A1),(Textbox2 -B1) gibi kayıt yapmak istiyordum

 

[danersin]

sub birmakro()
sheets("sayfa1").cells(1,1)=textbox1
sheets("sayfa1").cells(1,3)=textbox2
end sub

yukarıdakine benzer bir şekilde sayfa1'e kaydı zaten yapıyorsunuz.!?
aynı mantıkla bu koda ilave yaparsak

sub birmakro()
sheets("sayfa1").cells(1,1)=textbox1
sheets("sayfa1").cells(1,3)=textbox2

sonsat=sheets("sayfa2").cells(65536,1).end(xlup).row+1 '2.s sayfada ilk boş satırı bulur
sheets("sayfa2").cells(sonsat,1)=textbox1
sheets("sayfa2").cells(sonsat,3)=textbox2

end sub


doğrudan buraya yazdım, umarım hata yoktur.

 

[sedaysen]

sayın Danersin teşekkür ederim.Hoşcakal