Bir sayfadan diğer sayfaya veri aktarımı

[sinekvalesi]

Merhaba,

Aşağıda bulunan linkteki çalışma kitabında "Yedek Parça Fiyatlı Liste" isimli sayfada miktar girilen malzemelerin sırasıyla "Yedek Parça Tanım ve Onay Kartı" isimli sayfaya A17 hücresinden başlayarak yazması mümkün müdür?

Yardımlarınız için şimdiden teşekkür eder, iyi çalışmalar dilerim.

Saygılarımla.


Kopya Yedek Parça ve Kritik Stoklar.xlsm - 39 KB

 

[YUSUF44]

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz:

Sub aktar()
Set s1 = Sheets("Yedek Parça Fiyatlı Liste")
Set s2 = Sheets("Yedek Parça Tanım ve Onay Kartı")
For i = 4 To 55
    If s1.Cells(i, "E") > 0 Then
        yeni = s2.[A15].End(xlDown).Row + 1
        s2.Cells(yeni, "A") = s1.Cells(i, "B")
        s2.Cells(yeni, "E") = s1.Cells(i, "C")
        s2.Cells(yeni, "AA") = s1.Cells(i, "E")
        s2.Cells(yeni, "AD") = s1.Cells(i, "D")
    End If
Next
For i = 4 To 55
    If s1.Cells(i, "N") > 0 Then
        yeni = s2.[A15].End(xlDown).Row + 1
        s2.Cells(yeni, "A") = s1.Cells(i, "K")
        s2.Cells(yeni, "E") = s1.Cells(i, "L")
        s2.Cells(yeni, "AA") = s1.Cells(i, "N")
        s2.Cells(yeni, "AD") = s1.Cells(i, "M")
    End If
Next

        
End Sub

 

[sinekvalesi]

Sayın YUSUF44,

Yardımlarınız için çok teşekkür ederim.
İyi çalışmalar.

Saygılarımla.