dinamik sayfadan başka sayfaya veri kopyalama

[kakara]

merhaba degerlı ustadlarım ektekı dosyada sorunumu detaylı anlatmaya calıstım dınamık bır malıyet sayfası yapmaya calısıyorum her yaptıgım receteyı arka sayfaya belırlı sartlarla kopyalamak ıstıyorum . ılgınız ıcın sımdıden tesekkurler

 

[kakara]

guncel..

 

[kakara]

sorun devam etmektedır ılgınız ıcın sımdıden tesekkurler

 

[Korhan Ayhan]

Örnek dosyanıza göre "recete" sayfasında nasıl bir sonuç görmek istiyorsunuz?

 

[kakara]

@Korhan Ayhan Ustadım ''recete'' sayfasında görmek ıstedıgım sekılde olusturdum ılgınız ıcın sımdıden tesekkur ederım.

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Recete_Aktar()
    Dim S1 As Worksheet, S2 As Worksheet, Son As Variant, Veri As Range
    
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("recete")
    
    Set Son = S2.Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious)

    If Not Son Is Nothing Then
        Son = WorksheetFunction.Max(4, Son.Row + 2)
    Else
        Son = 4
    End If
    
    For Each Veri In S1.Range("F6:F16,F20:F28")
        If Veri.Value <> "" Then
            S2.Range("A" & Son & ":P" & Son).Value = S1.Range("A" & Veri.Row & ":P" & Veri.Row).Value
            Son = Son + 1
        End If
    Next
    
    S2.Range("A" & Son & ":P" & Son + 26).Value = S1.Range("A32:P58").Value
    S2.Range("A4:P" & Son + 26).Borders.LineStyle = 1
    S2.Columns.AutoFit
    
    Set S1 = Nothing
    Set S2 = Nothing
    Set Son = Nothing
    
    MsgBox "Reçete maliyetleri aktarılmıştır.", vbInformation
End Sub

 

[kakara]

@Korhan Ayhan ustadım ılgınız ıcın tesekkur ederım kodunuz hem cok hızlı hemde eksıksız calısıyor