VERİ AKTARMA

[Kemal Demir]

VERÝ AKTARMA

Arkadaslar iyi akşamlar;

Hazırlamıs olduğum Bir userform var bu 3 satırdan (27 textboxtan olusuyor) ilk 9 unu bir satıra, ikinci 9 unu bir satıra,üçüncü 9 unu 3 satıra kaydetmek istiyorum.(ama yapamıyorum)

ve her veri eklendiğinde bunu bir altsatıra aktarıcak.

Yardımcı olursanız Sevinirim.
Saygılar.
Dosya Ektedir.

 

[algil]

aşağıdaki kodu deneyebilirsiniz. örnektir.

Private Sub CommandButton1_Click() 'AKTAR butonunuz
    On Error Resume Next
    With Sheets("VERİ").[A65536].End(3)
            .Offset(1, 0) = TextBox1 'A sütunundaki ilk boş hücreye yazar
            .Offset(1, 1) = TextBox2 'B sütunundaki ilk boş hücreye yazar
            .Offset(1, 2) = TextBox3 'C sütunundaki ilk boş hücreye yazar

            
End Sub

 

[Kemal Demir]

Çok teşekkur ederim Bir sorum daha olacak

Private Sub CommandButton1_Click() 'AKTAR butonunuz
On Error Resume Next
With Sheets("VERİ").[A65536].End(3)

.Offset(1, 0) = ComboBox1
.Offset(1, 1) = TextBox1
.Offset(1, 2) = TextBox4
.Offset(1, 3) = TextBox7
.Offset(1, 4) = TextBox10
.Offset(1, 5) = TextBox13
.Offset(1, 6) = TextBox16
.Offset(1, 7) = TextBox19
.Offset(1, 8) = TextBox22
.Offset(1, 9) = TextBox25
.Offset(2, 0) = ComboBox1
.Offset(2, 1) = TextBox2
.Offset(2, 2) = TextBox5
.Offset(2, 3) = TextBox8
.Offset(2, 4) = TextBox11
.Offset(2, 5) = TextBox14
.Offset(2, 6) = TextBox17
.Offset(2, 7) = TextBox20
.Offset(2, 8) = TextBox23
.Offset(2, 9) = TextBox26
.Offset(3, 0) = ComboBox1
.Offset(3, 1) = TextBox3
.Offset(3, 2) = TextBox6
.Offset(3, 3) = TextBox9
.Offset(3, 4) = TextBox12
.Offset(3, 5) = TextBox15
.Offset(3, 6) = TextBox18
.Offset(3, 7) = TextBox21
.Offset(3, 8) = TextBox24
.Offset(3, 9) = TextBox27
End With
End Sub

yukarıda kırmız olarak belirtiğim comboboxun 3 satırında
Ã?rnek : ali ise son olarak ali toplam yazdırmaya denedim ama olmadı

.Offset(2, 0) = ComboBox1.value&&"toplamı"

Zannedersem dusuncem yanlıs yardımcı olursanız sevinirim.

 

[algil]

aşğıdaki kodu deneyin

.Offset(3, 0) = ComboBox1 & " toplam"