UserForm alt alta veri kaydetme

[mufsata]

Merhaba, siparişleri kaydetmek için bir UserForm tasarlamaya çalışıyorum ancak bi noktada yardımınıza ihtiyacım var. İlk önce siparişle ilgili kısa bir bilgi vereyim. Siparişin içinde 16 tane veri var. Bunlardan 5i sipariş için sabit, geriye kalan 11i de siparişin alt kalemlerine göre değişken. Ama bu değişkenlerin türü aynı. Örnek veriyorum bir siparişte 2 kalem varsa bu 11 değişkenin tamamı aynı türde ama içerik olarak farklı, birinde çap 30cm iken diğer kalemde çap 50cm olabilir. Ama ikisi de çap.

Yapmak istediğime gelecek olursam bu sabit 5 verileriyi tek sefer yanyana yazıp, değişken 11 veriden ilk kalemi sabitlerin yanına yazmak ve eğer varsa 2. kalemdeki 11 veriyi de 1. kalemin altına yazmak.

Birtakım kodlar denedim ancak sonuç alamadım. Yardımcı olursanız sevinirim. Örnek dosyayı ekliyorum.

http://s5.dosya.tc/server/k2m3hz/deneme.zip.html

 

[mufsata]

Private Sub CommandButton1_Click()
Dim RowCount As Long
RowCount = Worksheets("Sayfa1").Range("B1").CurrentRegion.Rows.Count
With Worksheets("Sayfa1").Range("B1")
    
    .Offset(RowCount, 0) = ProjeAdı
    .Offset(RowCount, 1) = Tarih
    .Offset(RowCount, 2) = SiparişNo
    .Offset(RowCount, 3) = Standart
    .Offset(RowCount, 4) = Malzeme
    .Offset(RowCount, 5) = KalemNo1
    .Offset(RowCount, 6) = Çap1
    .Offset(RowCount, 7) = Et1
    .Offset(RowCount, 8) = Miktar1
    .Offset(RowCount, 9) = Boy1
    .Offset(RowCount, 10) = HT1
    .Offset(RowCount, 11) = Torna1
    .Offset(RowCount, 12) = FL1
    .Offset(RowCount, 13) = İç1
    .Offset(RowCount, 14) = Dış1
    .Offset(RowCount, 15) = Notlar1
    
End With

Dim RowCount2 As Long
RowCount2 = Worksheets("Sayfa1").Range("B1").CurrentRegion.Rows.Count
With Worksheets("Sayfa1").Range("B1")
    
    .Offset(RowCount, 5) = KalemNo2
    .Offset(RowCount, 6) = Çap2
    .Offset(RowCount, 7) = Et2
    .Offset(RowCount, 8) = Miktar2
    .Offset(RowCount, 9) = Boy2
    .Offset(RowCount, 10) = HT2
    .Offset(RowCount, 11) = Torna2
    .Offset(RowCount, 12) = FL2
    .Offset(RowCount, 13) = İç2
    .Offset(RowCount, 14) = Dış2
    .Offset(RowCount, 15) = Notlar2
    
End With

End Sub

Bu şekilde yaptığımda ilk satır kalem no 1 den itibaren boş kalıyor. Fikri olan var mı?

 

[Muzaffer Ali]

RowCount2 olması gerekiyor.

.Offset(RowCount2, 5) = KalemNo2

 

[mufsata]

RowCount2 olması gerekiyor.

.Offset(RowCount2, 5) = KalemNo2

Teşekkür ediyorum gözümden kaçmış