Textbox satır satır kaydetme

[meslek5]

Merhaba
Userfom üzerinde yer alan textbox'taki metni hücrede yazılı metnin alt satırına gönderebilir miyiz?

Örneğin; A1 hücresinin ilk satırında "İstanbul" yazılı ve ben textbox1'e yazdığım "Şişli" kelimesini hücreye gönderdiğimde o hücredeki son satırın altına yazdırmak istiyorum. Yani A1'e her gönderdiğim metin o hücredeki veriyi silmeden son satırın altına yazılacak

İstanbul
Şişli
Kadıköy
v.s. devam edip gidecek..

 

[ÖmerFaruk]

Merhaba, bilginizi düzeltmek için yazıyorum
A1 hücresinin ilk satırı diye bir terim yoktur. A sütun 1 satır numarasıdır.
A sütunun A1 hücresi vardır, 1.satırın da A1 hücresi vardır. Her ikisi de aynı şeydir.
Ama A1 hücresinin ilk satırı olmaz, A1 hücresinin bulundağu satır diye bahsedebiliriz.

Sorunuza gelince

Range("A" & Rows.Count).End(3).Offset(1,0)=TextBox1
'Kod her seferinde A sütunun en son dolu satırının bir altına yazar'

 

[meslek5]

Merhaba, bilginizi düzeltmek için yazıyorum
A1 hücresinin ilk satırı diye bir terim yoktur. A sütun 1 satır numarasıdır.
A sütunun A1 hücresi vardır, 1.satırın da A1 hücresi vardır. Her ikisi de aynı şeydir.
Ama A1 hücresinin ilk satırı olmaz, A1 hücresinin bulundağu satır diye bahsedebiliriz.

Sorunuza gelince

Range("A" & Rows.Count).End(3).Offset(1,0)=TextBox1
'Kod her seferinde A sütunun en son dolu satırının bir altına yazar'

Hocam soru yanlış olabilir yada tam anlatamamış olabilirim. Yapmak istediğim şu; textbox1'deki veriyi a1 hücresine göndermek istiyorum ama zaten a1 hücresinde veri var ve ben a1 hücresindeki mevcut veriyi silmeden aynı hücre içindeki son verinin altına yazdırmak istiyorum. Yani a2 hücresine değil

 

[meslek5]

Range ("a1").value = Range ("a1").value & " " & textbox1.value

Bu kod ile aynı hücredeki veriyi koruyarak dgönderebiliyorum ama son verinin altına yazdıramıyorum.

 

[meslek5]

Range ("a1").value = Range ("a1").value & " " & textbox1.value

Bu kod ile aynı hücredeki veriyi koruyarak dgönderebiliyorum ama son verinin altına yazdıramıyorum.

Tamam buldum

Range ("a1").value = Range ("a1").value & Chr (10) & textbox1.value