كود ترحيل الى صفحةمعينة ضمن صفحات بشرط

[جون ايمن]

فى المثال المرفق عندى اكثر من شركة واكثر من منتج اريد عندما اختار اسم الشركة يتم ترحيل البيانات الى صفحة الشركة

واشكركم مقدما

ترحيل.xlsx

[lionheart]

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim sCompany As String, m As Long
    If Target.Cells.CountLarge > 1 Then Exit Sub
    If Target.Address = "$D$5" Then
        sCompany = Target.Value
        If Evaluate("ISREF('" & sCompany & "'!A1)") Then
            With Sheets(sCompany)
                m = .Cells(Rows.Count, "D").End(xlUp).Row + 1
                .Range("D" & m).Resize(1, 4).Value = Application.Transpose(Range("M7:M10").Value)
                MsgBox "Data Copied To [ " & .Name & " ] Worksheet", 64
            End With
        End If
    End If
End Sub

 

[جون ايمن]

شكرا جدا لتعب حضرتك واستجابتك 

بس ممكن تنفذى الكود دة على الملف نفسة لانى بصراحة عاوز افهم وانا اللى اطبقة بعد كدة لان اللى انا عملة فى الملف دة مجرد مثل لكن الملف الاصلى اكبر من ده بكتير فحابب ان افهم الكود الاول وبعدين اطبقى

وشكرا جزيلا

[lionheart]

Post the code in worksheet module. Right-click the sheet name then select View Code then paste the code

[هشام جودي]

السلام عليكم 

كل الشكر و التقدير