Veri aktarma düşme

[saglik66]

sorunum dosyada ilgilenen arkadaşlara şimdiden cok teşekkür ederim..

 

[saglik66]

kimse yok mu?

 

[saglik66]

bunu bana gösterecek biri yok mu?

 

[Orion1]

Ekli dosyayı inceleyiniz.

Sub aktar()
If Sheets("ÖDEME EMRİ BELGESİ").Range("Q31").Value = "" Then
    MsgBox "Ödenmesi gereken miktar girilmemiş.Kayıt Yapılmadı..!!", vbCritical
    Exit Sub
End If
Set k = Sheets("Sayfa2").Range("C2:C65536").Find(Sheets("ÖDEME EMRİ BELGESİ").Range("A13").Value, LookIn:=xlValues, lookat:=xlWhole)
If k Is Nothing Then
    MsgBox Sheets("ÖDEME EMRİ BELGESİ").Cells("A13").Value & " Bulunamadı..!!", vbCritical
    Exit Sub
    Else
    Set c = Sheets("Sayfa1").Range("A1:IV1").Find(Sheets("Sayfa2").Cells(k.Row, k.Column - 2).Value, LookIn:=xlValues, lookat:=xlWhole)
        If c Is Nothing Then
            MsgBox "Sayfa1'de " & Sheets("Sayfa2").Cells(k.Row, k.Column - 2).Value & " Bulunmadı Kayıt yapılmadı..!!", vbCritical
            Exit Sub
            Else
            sonsat = Sheets("Sayfa1").Cells(65536, c.Column).End(xlUp).Row
            Sheets("Sayfa1").Cells(sonsat + 1, c.Column).Value = Sheets("ÖDEME EMRİ BELGESİ").Range("Q31").Value
            Sheets("Sayfa1").Cells(sonsat + 1, c.Column + 1).Value = Sheets("ÖDEME EMRİ BELGESİ").Range("V4").Value
            Sheets("Sayfa1").Cells(sonsat + 1, c.Column + 2).Value = Sheets("ÖDEME EMRİ BELGESİ").Range("V38").Value
            Sheets("Sayfa2").Cells(k.Row, k.Column - 1).Value = Sheets("Sayfa2").Cells(k.Row, k.Column - 1).Value _
            - Sheets("ÖDEME EMRİ BELGESİ").Range("Q31").Value
        End If
End If
MsgBox "İŞLEM TAMAMLANDI.."
End Sub

 

[saglik66]

orion2 ödeme emri belgesindeki V4 teki firma ismi ile V38deki fatura tarih ve numarasını sayfa 1 e ilgili ödeme kalemine atmamız lazım aktar butonu ile nasıl yapabiliriz

 

[Orion1]

Dosyayı istediğiniz şekilde değiştirdim.
Önceki mesajımdan indirebilirsiniz.