TekstBox

[ocamsul]

UserForm üzerindeki TekstBox'a girdiğim yazı veya sayının istediğim bir hücrede görünmesini, ve her açtığımda girdiğim değerlerin belirttiğim hücreden sonraki alt sıralarada kaydedebilmek istiyorum. kısaca TekstBox'u kayıt amacıyla kullanmak istiyorum. bir nevi bilgi girişi amacıyla. Yardım edemisiniz!

 

[Levent Menteşoğlu]

Ã?rneğin A sütununa sırayla yazdırmak istediğinizi farz edersek;
[vb:1:b589d344e3]sat=worksheetfunction.counta(range("A1:A65536))+1
range("A" & sat)=textbox1.value
[/vb:1:b589d344e3]
şeklindeki bir kodu kullanabilirsiniz. Bu kodu userform üzerindeki bir butona bağlayacağınız gibi,textbox un change olayınada yazarak da hücreye yazdırabilirsiniz.

 

[ocamsul]

TEÞTeşekkür Ederim LEVENTİM

 

[ocamsul]

BU VERDİÐİNİZ KODLARI VBA DA TextBox'u çift tıklatıp yapıştırdım ama olmadı. ne yapacağım? sırayla anlatırmısın LEVENTİM!

 

[Levent Menteşoğlu]

Textbox a yazmayın denedim şimdi ilginç bir şey çıktı,bir animasyon olarak kullanılabilir belki,onun yerine userforma bir buton ekleyin ve aşağıdaki kodları command butona yazın.
[vb:1:21f764d7ef]Private Sub CommandButton1_Click()
sat = WorksheetFunction.CountA(Range("A1:A65536")) + 1
Range("A" & sat) = TextBox1.Value
End Sub
[/vb:1:21f764d7ef]

 

[Levent Menteşoğlu]

İlk verdiğim kodda bir tırnak işaretini (kırmızı renkli olan) atlamışım doğrusu aşağıdaki gibi olacaktır.

[vb:1:fadf23be2e]sat=worksheetfunction.counta(range("A1:A65536"))+1
range("A" & sat)=textbox1.value
[/vb:1:fadf23be2e]

 

[ocamsul]

LEVENTİM OLDU. ELLERİNE SAÐLIK ÇOK TEÞEKKÜR EDERİM.

 

[ocamsul]

leventim peki A2 HÜCRESİNDEN NASIL YAZDIRABİLİRİM KODLAR ÜZERİNDE NE YAPMAM LAZIM? ÇOK OLUYORUM AMA KUSURA BAKMA.

 

[Levent Menteşoğlu]

koddaki +1'i +2 yaparsanız A2 hücresinden başlar

 

[ocamsul]

oldu teşekkürler leventim.