TextBox dan verileri son boş satıra yazmak

[okyanus]

selamlar
örnek çalışmaları takip ederek bir userform düzenledim ama kod hatası veriyor
hata olarak aşağıdaki satırı gösteriyor

Selection.End(xlDown).Offset(1, 0).Select

vede userform üzerinde textboks larda yön tuşuyla atladığım gibi nasıl commandbutton a geçiş yaparım

teşekkürler

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:2bea1bda3d]Private Sub ekle_Click()
say = WorksheetFunction.CountA([a2:a65536]) + 2
For a = 1 To 6
Cells(say, a) = Controls("textbox" & a)
Next
End Sub[/vb:1:2bea1bda3d]

 

[okyanus]

Teşekkürler syn Leventm
SONUÇ OLUMLU
vaktiniz olursa önceki koddaki sorunu
ve sizin gönderdiğinizin açıklamasını yaparsanız benim gibi yeni başlayanların gelişimi daha hızlı ve kalıcı olacaktır
zira ben soru göndermeden önce baya bir arama yapıyorum
ama açıklamasız kodları pek çözemiyorum

İkinci soruma bir cevap varmı acaba
userform üzerinde textboks larda yön tuşuyla atladığım gibi nasıl commandbutton a geçiş yaparım

ORADA BİRİLERİNİN YARDIM İÇİN BEKLEDİÐİNİ BİLMEK GÜZEL
ÇOK TEÞEKKÜRLER :bravo:

 

[Levent Menteşoğlu]

Kodun açıklaması aşağıdaki gibidir.

[vb:1:b3bebd4836]Private Sub ekle_Click()
'Verinin yazılacağı yerin satır nosunu bulur. Yani en son verinin bir fazlası
say = WorksheetFunction.CountA([a2:a65536]) + 2
'textboxlar ve verilerin yazılacağı hücre isimleri ardışık gidiyorsa bir döngü ile kodu kısaltmak mümkündür. cells hücreleri controls("textbox" & a) ise textboxları ifade eder.
For a = 1 To 6
Cells(say, a) = Controls("textbox" & a)
Next
End Sub [/vb:1:b3bebd4836]

İkinci sorunuz için bence enter veya tab tuşunu kullanın.

 

[okyanus]

SAYIN leventm
ilginize çok teşekkürler

bu forum dan sorulara devam etmek doğrumudur bilmiyorum ama
bir soru daha
UserForm üzerinde ComboBox un göstereceği liste nasıl seçilir

iyi çalışmalar
teşekkürler

 

[Levent Menteşoğlu]

Bu sorunuz konu başlığı ile alakalı olmadığından yeni bir başlıkla tekrar sorunuz. Ayrıcada imza bölümüne Excel dili ve versiyonunuzu belirtmenizide rica ederim.

 

[okyanus]

tekrar selamlar
aynı kitap üzerinden bir soru olduğu için buradan sormaya devam ediyorum
userform üzerindeki textbox u combobox a çevirdim ve yapmam gereken değişiklikler hakkında hiç bir fikrim yok
lütfen yardım

 

[Levent Menteşoğlu]

Sizin yazdığınız şekle göre kodu aşağıdaki gibi düzenlemelisiniz.

[vb:1:6b1e38e131]Private Sub ekle_Click()
say = WorksheetFunction.CountA([a2:a65536]) + 2
Cells(say, 1) = ComboBox1.Value
For a = 2 To 6
Cells(say, a) = Controls("textbox" & a)
Next
ComboBox1 = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
ComboBox1.SetFocus
End Sub[/vb:1:6b1e38e131]

 

[okyanus]

sayın leventm
teşekkür ediyorum ÇALIÞIYOR
sora sora adım adım
kopyala yapıştır değilde incele matığı çöz ve uygula yöntemi ile ilerlemeye çalışıyorum
ilginiz için tekrar teşekkürler