Yan Sütuna Veri Aktarma..

[satan22]

Değerli üstadlarım sizden istediğim Ekteki dosyamdaki formda seçmiş olduğum firmaya ait ödeme yaparken tanımlamış olduğum M sütunundan itibaren yeni bir ödemeyi hemen yanındaki sütuna atması. Baya bir uğraştım ama başka ödeme yaparken diğeri silinmiş oluyor.

Örneğin; A Firmasına 12323 TL miktarında ödeme yaptım. A Firmasına ikinci bir ödeme yaptığım zaman ilk yaptığım ödeme silinip yeni yaptığım ödeme ekleniyor. Ama ben Yeni yaptığım ödemeyi ilk yaptığım ödemenin yanına eklenmesi ve ne kadar ödeme yaparsam yan yana görünmesini istiyorum.

Şimdiden teşekkürler.

 

[leumruk]

Selamlar,
Eki inceleyiniz.

 

[Necdet]

Merhaba,
Kodu inceleyiniz.

Option Compare Text
Private Sub CommandButton1_Click()
Sheets("sayfa1").Select
If ComboBox1.Value = "" Then
    MsgBox "Önce Ödeme Yapmak İstediğin Firmayı Bul..", vbExclamation, "DUR BİSANİYE"
    Exit Sub
End If
If TextBox1.Value = "" Then
    MsgBox ("Ödeme Miktarını Boş Geçemessiniz")
    Exit Sub
End If
With Range("D:D")
    Set c = .Find(ComboBox1.Value, LookIn:=xlValues, LookAt:=xlWhole)
    If Not c Is Nothing Then
        Kolon = Range("IV" & c.Row).End(1).Column + 1
        If Kolon < 13 Then Kolon = 13
        Cells(c.Row, Kolon) = TextBox1.Value
    Else
        MsgBox ComboBox1.Value & " Firmasını Bulamadım"
    End If
End With
Unload UserForm1
UserForm1.Show
End Sub

 

[satan22]

tamam üstadım bakıp haber vericem...

 

[satan22]

teşekkürler üstad.. tam istediğim gibi olmuş.. emeğine sağlık..