Combobox Boşsa Veri aktarmasın

[akineton_1]

Öncelikle Herkesin Yeni Yılını kutlarım
sorunum şu?

combobox veya elle girerk tabloya veri aktarıyorum
yanlız temizlediğim zaman ekranı aktar dediğim zaman tekrar tabloya boş eklıyor.
yapmak istediğim şu
1 ve 2 combox boş ise tabloya veri göndermesin

birde eklenen veriyi hep aşağı dogrru eklıyor.
ben en üstekileri aşağıya iterek eklemesini istiyorum birde üstadlarımdan bu konuylailgili yardımınızı rıca ederim
örnek dosyam ektedir.
ilgilenen arkadaşlara şimdiden teşekkurler.

 

[Korhan Ayhan]

Selamlar,

Aktarım için kullandığınız kodu aşağıdaki şekilde değiştirip denermisiniz.

Sub Aktar()
    Dim box
    Set S4 = Sheets("LİST")
    box = Array(S4.ComboBox1, S4.ComboBox2)
    
    If S4.ComboBox1 = Empty Or S4.ComboBox2 = Empty Then
    MsgBox "Lütfen eksik bilgileri tamamlayınız !", vbExclamation
    Exit Sub
    End If
    
    If Range("A65536") <> Empty Then
    MsgBox "Sayfa doldu !" & vbCrLf & vbCrLf & "Veri kaydı için lütfen yeni bir sayfa oluşturun.", vbExclamation
    Exit Sub
    End If
    
    son = 6
    
    Rows(6).Insert
    
        For i = 1 To 2
            S4.Cells(4, i).Value = box(i - 1)
            S4.Cells(4, "f").Value = S4.ComboBox6
            S4.Cells(4, "g").Value = S4.ComboBox7
            S4.Cells(4, "h").Value = S4.ComboBox8
            S4.Cells(4, "ı").Value = S4.ComboBox9
            S4.Cells(4, "j").Value = S4.ComboBox10
            S4.Cells(4, "o").Value = S4.ComboBox15
            S4.Cells(4, "c").Value = S4.Range("c2")
            S4.Cells(4, "d").Value = S4.Range("d2")
            S4.Cells(4, "e").Value = S4.Range("e2")
            S4.Cells(4, "k").Value = S4.Range("k2")
            S4.Cells(4, "l").Value = S4.Range("l2")
            S4.Cells(4, "m").Value = S4.Range("m2")
            S4.Cells(4, "n").Value = S4.Range("n2")
            S4.Cells(son, i).Value = box(i - 1)
            S4.Cells(son, "f").Value = S4.ComboBox6
            S4.Cells(son, "g").Value = S4.ComboBox7
            S4.Cells(son, "h").Value = S4.ComboBox8
            S4.Cells(son, "ı").Value = S4.ComboBox9
            S4.Cells(son, "j").Value = S4.ComboBox10
            S4.Cells(son, "o").Value = S4.ComboBox15
            S4.Cells(son, "c").Value = S4.Range("c2")
            S4.Cells(son, "d").Value = S4.Range("d2")
            S4.Cells(son, "e").Value = S4.Range("e2")
            S4.Cells(son, "k").Value = S4.Range("k2")
            S4.Cells(son, "l").Value = S4.Range("l2")
            S4.Cells(son, "m").Value = S4.Range("m2")
            S4.Cells(son, "n").Value = S4.Range("n2")
             
        Next i
End Sub

 

[akineton_1]

eline sağlık gerçekten işime çok yaradı