UserFormdan Girilen veriyi farklı sütuna yazdırma

[byfika]

Merhabalar,
Userformdan girilen veriyi koşula bağlı olarak farklı sütuna yazdırma. Örnekte detaylı açıklama vardır.
Bilgi için şimdiden teşekkürler.

 

[Korhan Ayhan]

Önceki gün buna benzer bir sorunuza yanıt vermiştim. Sanırım uyarlama yapamadınız.

Aşağıdaki satırları deneyin.

    If ComboBox1 = "A" Then Cells(i, 5) = CDbl(TextBox3.Value)
    If ComboBox1 = "B" Then Cells(i, 6) = CDbl(TextBox3.Value)

 

[byfika]

Önceki gün buna benzer bir sorunuza yanıt vermiştim. Sanırım uyarlama yapamadınız.

Aşağıdaki satırları deneyin.

    If ComboBox1 = "A" Then Cells(i, 5) = CDbl(TextBox3.Value)
    If ComboBox1 = "B" Then Cells(i, 6) = CDbl(TextBox3.Value)

Öncelikle cevabınız için teşekkürler. Son verdiğiniz kodu yazdığımda hatalı işlem yapmakta. örnekte yazdığım D4 e yazdığını A sütunundaki veri A sa E5, B ise F5 yazıyor, yapmak istediğim A4, B4, C4 ve D4 e userform ile veri girildiğinde D4 deki veriyi A4 deki veriye bağlı olarak;A4 A ise E4 e, A4 B ise F4 yazmasını sağlamak istiyorum.
İlginiz için tekrar teşekkürler.

 

[Korhan Ayhan]

KAYDET butonundaki kodu aşağıdaki gibi revize edip deneyin.

Private Sub CommandButton1_Click()
    If ComboBox2.Value = "" Or _
        TextBox1.Value = "" Or _
        (TextBox2.Value = "" And _
        TextBox2.Value = "") Then
            MsgBox "Boş Bırakamazsınız", vbCritical, "DİKKAT"
            TextBox2.SetFocus
            Exit Sub
    End If
    
    Dim i As Long, j As Byte, Tar As Date
    
    i = Cells(Rows.Count, "A").End(xlUp).Row + 1
    j = 1
    Tar = TextBox1.Value
    
    Do
        Cells(i, "A") = ComboBox1.Value
        Cells(i, "B") = Tar
        Cells(i, "C") = ComboBox2.Value
        Cells(i, "D") = CDbl(TextBox3.Value)
        If ComboBox1 = "A" Then Cells(i, 5) = CDbl(TextBox3.Value)
        If ComboBox1 = "B" Then Cells(i, 6) = CDbl(TextBox3.Value)
        
        j = j + 1
        i = i + 1
        Tar = DateAdd("m", 1, Tar)
    Loop While Not j > ComboBox3.Value
End Sub

 

[byfika]

Korhan bey,
Kodları kaydet butonuna uyarlayınca işlem istediğim gibi çalıştı. Çok teşekkür ederim. Elinize sağlık.