كود ترحيل البانات في أكسل

[انس المنصوري]

كيف يمكن ترحيل البيانات من كل الشيتات الى شيت الموازنة لوسمحتم 

صرافة.rar

[سليم حاصبيا]

جرب هذا الكود

Option Explicit

Sub scl_sh()
Dim i%, k%
Dim r%: r = 50
Dim Tar_Sh As Worksheet
Set Tar_Sh = Sheets("الموازنة")
Tar_Sh.Range("b9:m37").ClearContents
k = 9
    For i = 3 To Sheets.Count - 3
        With Tar_Sh
            .Range("b" & k) = Sheets(i).Name
            .Range("c" & k) = Sheets(i).Range("b8")
            .Range("d" & k).Resize(1, 10).Value = Sheets(i).Range("c" & r).Resize(1, 10).Value
            k = k + 1
        End With
    Next
End Sub

 

[انس المنصوري]

شكرا لك استاذ سمير أظن ان عندي مشكلة في برنامج الفيجوال لانه لا يستجيب

 

[سليم حاصبيا]

49 دقائق مضت, انس المنصوري said:

شكرا لك استاذ سمير أظن ان عندي مشكلة في برنامج الفيجوال لانه لا يستجيب

 

انظر الى الملف المرفق (فقط اضغط على الزر Run)

صرافة_salim.rar

[انس المنصوري]

شكراً لك سيد سليم حاصبيا .مشي الحال جزاك الله كل خير

 

[انس المنصوري]

استاذ سليم حاصبيا شكراً لتعاونك . ولكن البرنامج في حال أضفت له بيانات جديدة لا يقوم بنقلها وشكراً لك 

 

[سليم حاصبيا]

7 ساعات مضت, انس المنصوري said:

استاذ سليم حاصبيا شكراً لتعاونك . ولكن البرنامج في حال أضفت له بيانات جديدة لا يقوم بنقلها وشكراً لك 

 

 كي بعمل الكود كما تريد

في حال ادراج شيات جديدة لعملاء جدد يجب ادراجها بين الشيت الثالث و  اخر 3 شيتات

[انس المنصوري]

استاذ سليم شكرا لك ولكن ليس ادراج شيتات وانما تسجيل بيانات. جربت سجلت بيانات جديدة ولم يرحل سوى البيانات القديمة 

 

[سليم حاصبيا]

منذ ساعه, انس المنصوري said:

استاذ سليم شكرا لك ولكن ليس ادراج شيتات وانما تسجيل بيانات. جربت سجلت بيانات جديدة ولم يرحل سوى البيانات القديمة 

 

الكود ينقل فقط البيانات من الصف 50 في كل صفحة(هذا الصف يمثل المجاميع)

اذا كانت المجاميع عندك في صف اخر( غير  50) استبدل قيمة r في الكود الى الرقم الذي تريد

[انس المنصوري]

أشكرك استاذ سليم لتعاونك وبارك الله بجهودك