listeden koşullu aktarma

[saglik66]

sorunum ekte.listeden hangisini seçersem o ödemelerin çıkmasını nasıl yapabilirim

 

[saglik66]

kimse yokmu

 

[saglik66]

arkadaşlar kimse yok mu

 

[saglik66]

şunu gösterecek bi arkadaşımız yok mu??

 

[Orion1]

Merhaba.
Ekli dosyayı inceleyiniz.Aktar butonuna Basınız.

Sub aktar()
Dim sat As Long
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("ÖDEME EMRİ BELGESİ")
Set s3 = Sheets("Sayfa2")
sat = s1.Cells(65536, "A").End(xlUp).Row + 1
s1.Cells(sat, "A").Value = s2.Range("V4").Value
s1.Cells(sat, "B").Value = s2.Range("V38").Value
s1.Cells(sat, "C").Value = s2.Range("Q31").Value
s1.Cells(sat, "D").Value = s1.Range("D1").Value
Set k = s3.Range("A2:A10").Find(s1.Range("D1").Value, LookIn:=xlValues, lookat:=xlWhole)
    If Not k Is Nothing Then
        s3.Cells(k.Row, "B").Value = s3.Cells(k.Row, "B").Value - s2.Range("Q31").Value
    End If
MsgBox "İŞLEM TAMAMLANDI.", vbOKOnly
Set s1 = Nothing
Set s2 = Nothing
Set s3 = Nothing
End Sub

 

[saglik66]

sevgili orion2 sayfa1 e liste koymamın amacı listeden hangisini seçersem sadece o ödeme kaleminin çıkması içindi.yoksa listeyi ödeme emri belgesine de atardım.mesela hangisini seçersem listeden o ödeme kalemleriyle ilgili isim fatura ve miktarın altta çıkmasını sağlayamazmıyız.eğer olmuyorsa listeyi ödeme emri belgesi a13 e alalım ordan seçelim kalemi hem orayada formül yazmaya gerek kalmasın.

 

[Orion1]

Tam olarak ne yapmak istediğiniz anlayamadım.
aslında benim yazdığım kodlarda aşağıdaki istekleriniz gerçekleşiyor.

KALEME ÖDEME EMRİ BELGESİNDEKİ V4,V38,Q31 İN SIRASIYLA .
FİRMA İSMİ FATURA TAİH VE NO ÖDENEN MİKTAR KISIMLARINA
SIRASIYLA AKTARILMASI VE BEN LİSTEDEN HANGİSİNİ SEÇERSEM ONUN BİLGİLERİNİN ÇIKMASI
VE ÖDENEN MİKTARIN SAYFA2 DE TOPLAM BÜTÇEDEN DÜŞMESİ
TABİ BÜTÜN BU İŞLEMLER SAYFA2 DEKİ AKTAR BUTONUYLA YAPILMASI