نسخ البيانات من صفحتين الي صفحة واحدة

[عمرو ضياء الدين]

السلام عليكم ورحمة الله وبركاته

اضحي مبارك عليكم جميعا

نسخ البيانات من الصفحة 1 النطاق من A2.:B1000   ولصقها في الصفحة 3 بداية من الخلية A2            

نسخ البيانات من الصفحة 2 النطاق من A2.:B1000   ولصقها في الصفحة 3 بداية من الخلية بعد التالية لاخر خلية بها بيانات  

وكتابة كلمة الالتزامات المتداولة في الخلية التي تلي الخلية الممتلئة

كما هو مبين بالمرفق

جزاكم الله خيرا

نسخ البيانات من صفحتين الي صفحة واحدة.zip

تم تعديل أكتوبر 2, 2014 بواسطه محمود عبد الجواد

[عبدالله باقشير]

السلام عليكم ورحمة الله وبركاته

 

جرب هذا

Sub Macro1()
Dim pSheet As Worksheet
Dim Lr As Long
Set pSheet = Sheets("Sheet3")

With pSheet
    .Range("A1").Resize(.Cells(Rows.Count, "A").End(xlUp).Row, 2).ClearContents
End With

With Sheets("Sheet1")
    Lr = .Cells(Rows.Count, "A").End(xlUp).Row
    pSheet.Range("A1").Resize(Lr, 2).Value = .Range("A1").Resize(Lr, 2).Value
End With

Lr = Sheets("Sheet2").Cells(Rows.Count, "A").End(xlUp).Row - 1

With pSheet.Cells(Rows.Count, "A").End(xlUp)
    .Offset(1, 0).Value = "الالتزامات المتداولة"
    .Offset(2, 0).Resize(Lr, 2).Value = Sheets("Sheet2").Range("A2").Resize(Lr, 2).Value
End With
End Sub

تحياتي

 

 

شاهد المرفق 2010

نسخ البيانات من صفحتين الي صفحة واحدة.rar

[عمرو ضياء الدين]

جزاك الله خيرا يا استاذي وجعل الله هذا العمل المتقن في ميزان حسناتك

وكل عام وانت بخير

[جني]

استاذ /

عبدالله باقشير

هل يمكن التعديل علي الكود بحيث يتم جمع المبالغ في النطاق C كما هو مبين بالمرفق

وكل عام وانتم بخير

نسخ البيانات من صفحتين الي صفحة واحدة معدل - Copy.rar

تم تعديل أكتوبر 3, 2014 بواسطه جني

[جني]

هل هناك حل استاذنا

[عبدالله باقشير]

استاذ /

عبدالله باقشير

هل يمكن التعديل علي الكود بحيث يتم جمع المبالغ في النطاق C كما هو مبين بالمرفق

وكل عام وانتم بخير

نسخ البيانات من صفحتين الي صفحة واحدة معدل - Copy.rar

كل عام وانتم بخير

 

جرب هذا

Sub Macro1()
Dim SM
Dim pSheet As Worksheet
Dim Lr As Long
'تعريف الشيت الذي سيتم نقل الارقام اليه
Set pSheet = Sheets("Sheet3")
' مسح النطاق في الشيت المراد نقل البيانات اليه
With pSheet
    .Range("A1").Resize(.Cells(Rows.Count, "A").End(xlUp).Row, 3).ClearContents
End With
' صفحة البيانات الاولي
With Sheets("Sheet1")
    Lr = .Cells(Rows.Count, "A").End(xlUp).Row
    pSheet.Range("A1").Resize(Lr, 2).Value = .Range("A1").Resize(Lr, 2).Value
    SM = "=SUM(" & Range("B2").Resize(Lr - 1).Address & ")"
End With

Lr = Sheets("Sheet2").Cells(Rows.Count, "A").End(xlUp).Row - 1

With pSheet.Cells(Rows.Count, "A").End(xlUp)
'الرقم الاول بين القوسين يعبر عن ترتيب الصف والرقم الثاني يعبر عن ترتيب العمود
    .Offset(1, 0).Value = " اجمالي الاصول المتداولة "
    .Offset(1, 2).Value = SM
    .Offset(2, 0).Value = " الالتزامات المتداولة "
    .Offset(3, 0).Resize(Lr, 2).Value = Sheets("Sheet2").Range("A2").Resize(Lr, 2).Value
    SM = "=SUM(" & .Offset(3, 1).Resize(Lr).Address & ")"
End With

Lr2 = Sheets("Sheet4").Cells(Rows.Count, "A").End(xlUp).Row - 1

With pSheet.Cells(Rows.Count, "A").End(xlUp)
    .Offset(1, 0).Value = " اجمالي الالتزامات المتداولة "
    .Offset(1, 2).Value = SM
    .Offset(2, 0).Value = " الالتزامات طويلة الاجل "
    .Offset(3, 0).Resize(Lr2, 2).Value = Sheets("Sheet4").Range("A2").Resize(Lr2, 2).Value
    SM = "=SUM(" & .Offset(3, 1).Resize(Lr2).Address & ")"
End With



With pSheet.Cells(Rows.Count, "A").End(xlUp)

    .Offset(1, 0).Value = " اجمالي الالتزامات طويلة الاجل "
    .Offset(1, 2).Value = SM
End With

End Sub

تحياتي

[جني]

الاستاذ / عبد الله باقشير جزاك الله عنا كل خير ويزيدك من علمه وفضله