TEXTBOX YARDIMIYLA SÜTUNLARA KAYIT

[oğuz2]

Selam Arkadaşlar..
Başınızı arıtmıyor düşüncesiyle, küçük bir sorum olacak..
4 adet Textbox ımız var ve sırasıyla BİLGİ sayfasının;
Textbox1 _ C1
Textbox2 _ C2
Textbox3 _ C3
Textbox4 _ C4 hücrelerine kaydedilmek üzere ve diğer kaydetmelerde ise D1,D2,D3 ve D4 hücresi diyerek gidcek..
Yardımlarınızı bekliyorum..
Paylaşmayı seven güzel insanlara...

 

[oğuz2]

N Sütununa kadar kayıt yapılsın..

 

[kundakci]

Merhaba bu şeklide bir veri kaydı iyi olmaz

Nedenine gelince

Excel de yanyana 256 sütun var siz C sütüunundan başladığınız için 254 kayıt imkanı kalıyor. Ama alt alta kayıt kaparsanız 65536 kayıt(Excel 2003) yaparsın ız

Bunu aşmak için kayırları Alt alta yapmanızı öneririm.

Hangi kayıt şekline göre makro istiyorsunuz

Kolay gelsin

 

[Levent Menteşoğlu]

Aşağıdaki kodları deneyin.

[vb:1:2344829ef2]Private Sub CommandButton1_Click()
sut = WorksheetFunction.CountA([c1:n1])
Cells(1, sut + 3) = TextBox1
Cells(2, sut + 3) = TextBox2
Cells(3, sut + 3) = TextBox3
Cells(4, sut + 3) = TextBox4
End Sub
[/vb:1:2344829ef2]

 

[oğuz2]

Çok Teşekkürler Levent Bey...
İfadenizde haklısınız. Ancak sınırlı kayıt sözkonusu olması dolayısıyla böyle olması gerekiyordu.. Teşekkür ediyorum.
Kolay gelsin..