Textboxtan hücrelere veri aktarma...

[zeliha]

Arkadaşlar 1 haftadan beri uğraşıyorum yapamadım.Lütfen bilenler yardımcı olsun.Sorum ekte...

 

[zeliha]

Lütfen yardım edin.Kimse neden ilgilenmiyor?Soru çok mu zor?

 

[idogus]

Çalışıyorum lütfen sabredin!

 

[idogus]

Sanırım istediğin gibi olmuştur.

 

[zeliha]

ama benim textboxları artırmam gerekiyor ve yapamadım.Başka bir çözüm sunacak arkadaş var mı?

 

[zeliha]

Yardım edecek biri yokmu?Çok önemli lütfen.

 

[zülfü]

merhaba
benzer bir problemle bende uğraşıyorum
ben aynı satıra bilgi aktarımı yapabildim
bu kodda activecell(0,8) .satıra kadar olan kod işinize yarıyabilir
ondan sonrası bir sütunda alt alta veri girişi içn deniyorum fakat olmuyor bu kodu kaydet butonu yaratıp (aktif olduğu sayfada 4 satırdan itibaren çalışıyor kolay gelsin
Private Sub Cmdkayıt_Click()
Application.ScreenUpdating = False
Range("a4").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Range("a4").Value = "" Then
Range("a4") = 1
Range("a4").Select
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0) + 1
End If
ActiveCell.Offset(0, 1).Value = txtfno.Text
ActiveCell.Offset(0, 2).Value = txtas.Text
ActiveCell.Offset(0, 3).Value = txtpl.Text
ActiveCell.Offset(0, 4).Value = txtarac.Text
ActiveCell.Offset(0, 5).Value = txtdefter.Text
ActiveCell.Offset(0, 6).Value = txtpers.Text
ActiveCell.Offset(0, 7).Value = Date
ActiveCell.Offset(0, 8).Value = Date
ActiveCell.Offset(1, 9).Value = txtkbir.Text
ActiveCell.Offset(2, 9).Value = txtkiki.Text
ActiveCell.Offset(3, 9).Value = txtküc.Text
ActiveCell.Offset(4, 9).Value = txtkdört.Text
ActiveCell.Offset(5, 9).Value = txtkbes.Text
acıklama = "KAYIT İÞLEMİ TAMAMLANDI"
dugme = vbkonly + vbInformation + vbDefaultButton1
baslık = "KAYIT"
MsgBox acıklama, dugme, baslık



End Sub

 

[htsumer]

Dosyayı bir incelermisiniz.

 

[zülfü]

TEXTBOXTA SORGU ÝLE VERÝ GÝRÝÞÝ

İLGİNİZE ÞİMDİDEN TEÞEKKÜR EDİYORUM
EN KISA ZAMANDA İNCELEMEMİ YAPIP CEVAP YAZACAÐIM
:hey: