Sayfadan Diğer Sayfaya Aktarım

[mlo21]

Mehaba.Benim ekteki dosyamda bir sayfadan diğerine aktarım yapmam gerekiyor.Makro ile yapılabilir mi acaba?
Teşekkürler.

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, [a17,a18,f17,f18]) Is Nothing Then Exit Sub
Dim sut, sat As Byte
Set s1 = Sheets("sayfa1")
Set ss = Sheets("satış")
Application.ScreenUpdating = False
    For sut = 2 To 9
    For sat = 6 To 36
        If ss.Cells(3, sut) Like s1.[a17] And ss.Cells(sat, "a") Like s1.[d1] Then
            ss.Cells(sat, sut) = s1.[f17]
        End If
                If ss.Cells(3, sut) Like s1.[a18] And ss.Cells(sat, "a") Like s1.[d1] Then
            ss.Cells(sat, sut) = s1.[f18]
        End If
    Next: Next
    Application.ScreenUpdating = True
Set s1 = Nothing
Set ss = Nothing
End Sub

 

[mlo21]

Sayın Hocam çok çok teşekkürler.Ellerinize sağlık.

 

[mlo21]

Yalnız Sayın Hocam şöyle bir durum var.Ben sayfaya miktar ve ismi yazınca direkt olarak diğer sayfaya veri gitmiyor.Sayfa1 de hücreye verileri giriyorum.Hücreye tekrar tıklayınca veri gidiyor satış sayfasına.Ben bu verileri bir userformdan yolluyorum.Bu nedenle hücreye tıklama imkanım olmadığından sayfada işlem yapılmıyor.
Saygılar.