textboxtan satıra değil sütuna veri kaydetmek

[aslan1969]

selamlar
veri sayfasında tanımlamalar butonu ile kayıt yaparken
girilen verilerin tek bir satıra değil sütunların boş son hücresine kayıt yapabilirmiyiz
saygılar

 

[aslan1969]

çözüm buldum

selamlar
sorunu şu şekilde çözdüm mevcut kodu şu şekilde değiştirerek
belki çok amatörce ama çalışıyor
kod
Private Sub CommandButton1_Click()
Dim SONSAT As Long
SONSAT = Sheets("veri").Cells(65536, "A").End(xlUp).Row + 1
Sheets("veri").Cells(SONSAT, 1) = Val(TextBox50.Value)
SONSAT = Sheets("veri").Cells(65536, "B").End(xlUp).Row + 1
Sheets("veri").Cells(SONSAT, 2) = Val(TextBox51.Value)
SONSAT = Sheets("veri").Cells(65536, "C").End(xlUp).Row + 1
Sheets("veri").Cells(SONSAT, 3) = Val(TextBox52.Value)
SONSAT = Sheets("veri").Cells(65536, "D").End(xlUp).Row + 1
Sheets("veri").Cells(SONSAT, 4) = Val(TextBox53.Value)
SONSAT = Sheets("veri").Cells(65536, "E").End(xlUp).Row + 1
Sheets("veri").Cells(SONSAT, 5) = Val(TextBox54.Value)
SONSAT = Sheets("veri").Cells(65536, "F").End(xlUp).Row + 1
Sheets("veri").Cells(SONSAT, 6) = Val(TextBox55.Value)
SONSAT = Sheets("veri").Cells(65536, "G").End(xlUp).Row + 1
Sheets("veri").Cells(SONSAT, 7) = Val(TextBox56.Value)
SONSAT = Sheets("veri").Cells(65536, "H").End(xlUp).Row + 1
Sheets("veri").Cells(SONSAT, 8) = Val(TextBox57.Value)
SONSAT = Sheets("veri").Cells(65536, "I").End(xlUp).Row + 1
Sheets("veri").Cells(SONSAT, 9) = Val(TextBox58.Value)

Dim X As Byte
For X = 0 To Controls.Count - 1
If Left(Controls(X).Name, 7) = "TextBox" Then
Controls(X) = Empty
End If
Next
MsgBox "VERİLER KAYDEDİLMİŞTİR.", vbInformation
End Sub

yani her sütundaki değişik satırdaki verinin altına ilave ediyor
saygılar

 

[Skorpiyon]

Sayın aslan1969,

Ben dosyanızı takvim özelliğinizden dolayı açamadığımdan ve hangi kodlarda düzeltme yapmak istediğniizi kestiremedimden ilgilenememiştim.

Kodlarınızı ekledikten sonra, kodlarınızı kısaltmak amacıyla (Dosyanızı hala çalıştıramadığmdan çalışıp çalışmayacağını garanti edemiyorum) aşağıdaki kodları dener misiniz ?

Private Sub CommandButton1_Click()
Dim SONSAT As Long
Sheets("veri").select
Cells(65536, 1).select
Selection.End(xlUp).Select
for a = 1 to 9
activecell.offset(1,a).value =controls("Textbox" & a).value
next a
Dim X As Byte
For X = 0 To Controls.Count - 1
If Left(Controls(X).Name, 7) = "TextBox" Then
Controls(X) = Empty
End If
Next
MsgBox "VERİLER KAYDEDİLMİŞTİR.", vbInformation
End Sub

Saygılarımla...

 

[aslan1969]

selamlar
ilginize teşekkür ederim
kod hata verdi
takvimi kaldırdım örneği tekrar gönderiyorum
saygılar

 

[Skorpiyon]

Sayın aslan1969,

Ekli dosyanızı inceleyiniz.

NOT :Yalnız sütunlardaki en son veriden sonra aşağı satırlarda bilgi olmamalı. (Sizin gönderdiğiniz dosyada vardı)

Saygılarımla...

 

[aslan1969]

selamlar
sn sertkaya
çok teşekkür ederim
saygılar