Veriyi İlgili Alanlara aktarma

[kahramang1]

Merhaba arkadaşlar. Ekli dosyada "liste" alanında "aktar" düğmesine bastığımda en son satıra girdiğim veriler "makbuz" alanında ilgili hücrelere aktarılıyor. Bazen geriye dönük makbuzları düzeltip yeniden yazdırmam gerekiyor. Bu nedenle "aktar" düğmesi en son satırı değil de işaretlediğim veya istediğim satırı "makbuz" sayfasına aktarsın istiyorum. Bu konuda yardımcı olursanız çok memnun olurum. Kolay gelsin.

 

[YUSUF44]

Liste sayfasında iken seçili satırı aktarmak için aşağıdaki makroyu kullanabilirsiniz:

Sub seçili_satırı_aktar()

Dim liste, makbuz As Worksheet

Set liste = Sheets("liste")
Set makbuz = Sheets("makbuz")
Son = liste.Range("A" & Rows.Count).End(3).Row

a = Selection.Row
If Selection <> "" Then
    makbuz.Range("F1").Value = Format(liste.Cells(a, "A").Value, "dd.mm.yyyy")
    makbuz.Range("F2").Value = liste.Range("B" & a).Value
    makbuz.Range("A7").Value = liste.Range("C" & a).Value
    makbuz.Range("D6").Value = liste.Range("D" & a).Value: makbuz.Range("D6").NumberFormat = "#,##0.00" & " TL"
    makbuz.Range("A15").Value = liste.Range("E" & a).Value
    liste.Range("B" & Son + 1).Value = liste.Range("B" & Son).Value + 1
    liste.Range("A" & Son + 1).Select
    Sheets("Makbuz").Select
    Range("F1").Select
Else
    MsgBox "Lütfen veri olan bir satırdan seçim yapınız!", vbCritical
End If

End Sub

 

[kahramang1]

Sn Yusuf44. Tam da istediğim gibi olmuş. Çok teşekkür ederim ilginiz için. Kolay gelsin.