A sütunununa a2 hücresinden başlamak üzere userformdan textboxa

[hgunay]

Arkadaşlar merhaba. Ben sıkıntımı şöyle dile getireyim. userformda textboxtan a sütununa veri kaydetmek istiyorum. Yani her yeni kayıtta alt alta A2,A3 devame decek.

 

[Orion1]

Merhab.
Aşağıdaki kodlar işinizi görür umarım.

Private Sub CommandButton1_Click()
Dim sonsat As Long
sonsat = Cells(65536, "A").End(xlUp).Row
Cells(sonsat + 1, "A").Value = TextBox1.Value
End Sub

 

[Seyit Tiken]

Aynı işlevi gören kodun budanmış hali.

Private Sub CommandButton1_Click()
[A65536].End(3).Offset(1) = TextBox1
End Sub

 

[emrexcel123]

Aynı işlevi gören kodun budanmış hali.

Private Sub CommandButton1_Click()
[A65536].End(3).Offset(1) = TextBox1
End Sub

hocam bu da dallanmış hali :mrgreen:
Private Sub CommandButton1_Click()
son = [a65536].end(3).row + 1
cells(son,"a") = textbox1
End Sub
sn hgunay bir çok örnek var bununla ilgili
1- [a65536].End(3).Row + 1
2- [a65536].End(3).Offset (1)
3- WorksheetFunction.CountA (Range("a:a"))
istediğini kullanabilirsin.iyi akşamlar...

 

[hgunay]

Arkadaşlar hepinize tşk. ederim ama seyit hocamın vermiş olduğu kod daha anlaşılır bir dilde sanırım. Yeni başlayan biri olarak dahada anlaşılır oldu. Seyit hocam sizden ricam verdiğiniz kodalardaki kelimelerin anlamınıda söylermisiniz acaba? ayrıca textbox a yazmış olduğum bilgiler a sütunu haricinde sayfa2 ve sayfa3 te herhangi bir sütünada geçmesini sağlayabilirmiyiz?

 

[emrexcel123]

offset

Arkadaşlar hepinize tşk. ederim ama seyit hocamın vermiş olduğu kod daha anlaşılır bir dilde sanırım. Yeni başlayan biri olarak dahada anlaşılır oldu. Seyit hocam sizden ricam verdiğiniz kodalardaki kelimelerin anlamınıda söylermisiniz acaba? ayrıca textbox a yazmış olduğum bilgiler a sütunu haricinde sayfa2 ve sayfa3 te herhangi bir sütünada geçmesini sağlayabilirmiyiz?

[a65536].End(3).Offset(1)
[a65536] = a sütununun tamamı
end(3) = yukarıdan aşağıya doğru son satır. buradaki 3 "xlup" anlamına gelir yani yukarıdan doğru. 3 yerine xlUp da kullanabilirsin
offset(1) = son satırın 1 sonrakisi (alt&#305
>>> offset = kayd&#305;r konksiyonunun ingilizce de&#287;imidir.ve anlat&#305;lmak istenen a s&#252;tununundaki son sat&#305;r&#305;n bir sonrakisi yani "a1" ise "a1" + 1 gibi... <<<

 

[hgunay]

Hocam ilgin i&#231;in t&#351;k ederim. Hocam &#351;imdi a2,b2,c2,d2... h&#252;crelerine s&#305;rayla 4 textbox ekleyip bunlardan s&#305;rayla ad,soyad.telno ve adres eklemk istiyorum ve bunlar&#305; kaydet. bul. sil. de&#287;i&#351;tir. temizle,kapat commondbutton eklemek istiyorum. bunlar&#305; tek tek a&#231;&#305;klarsan&#305;z t&#252;rk&#231;e anlam&#305;yla sevinirim. Yani hocam arama yapmak i&#231;in &#351;u komutlar, kaydetmek i&#231;in &#351;u ve yazd&#305;&#287;&#305;n&#305;z kodlar&#305;n anlam&#305;n&#305; istiyorum.