انس المنصوري قام بنشر أكتوبر 10, 2017 مشاركة قام بنشر أكتوبر 10, 2017 كيف يمكن ترحيل البيانات من كل الشيتات الى شيت الموازنة لوسمحتم صرافة.rar رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أكتوبر 10, 2017 مشاركة قام بنشر أكتوبر 10, 2017 جرب هذا الكود 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 رابط هذا التعليق شارك More sharing options...
انس المنصوري قام بنشر أكتوبر 10, 2017 الكاتب مشاركة قام بنشر أكتوبر 10, 2017 شكرا لك استاذ سمير أظن ان عندي مشكلة في برنامج الفيجوال لانه لا يستجيب رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أكتوبر 10, 2017 مشاركة قام بنشر أكتوبر 10, 2017 49 دقائق مضت, انس المنصوري said: شكرا لك استاذ سمير أظن ان عندي مشكلة في برنامج الفيجوال لانه لا يستجيب انظر الى الملف المرفق (فقط اضغط على الزر Run) صرافة_salim.rar رابط هذا التعليق شارك More sharing options...
انس المنصوري قام بنشر أكتوبر 10, 2017 الكاتب مشاركة قام بنشر أكتوبر 10, 2017 شكراً لك سيد سليم حاصبيا .مشي الحال جزاك الله كل خير رابط هذا التعليق شارك More sharing options...
انس المنصوري قام بنشر أكتوبر 12, 2017 الكاتب مشاركة قام بنشر أكتوبر 12, 2017 استاذ سليم حاصبيا شكراً لتعاونك . ولكن البرنامج في حال أضفت له بيانات جديدة لا يقوم بنقلها وشكراً لك رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أكتوبر 12, 2017 مشاركة قام بنشر أكتوبر 12, 2017 7 ساعات مضت, انس المنصوري said: استاذ سليم حاصبيا شكراً لتعاونك . ولكن البرنامج في حال أضفت له بيانات جديدة لا يقوم بنقلها وشكراً لك كي بعمل الكود كما تريد في حال ادراج شيات جديدة لعملاء جدد يجب ادراجها بين الشيت الثالث و اخر 3 شيتات 1 رابط هذا التعليق شارك More sharing options...
انس المنصوري قام بنشر أكتوبر 12, 2017 الكاتب مشاركة قام بنشر أكتوبر 12, 2017 استاذ سليم شكرا لك ولكن ليس ادراج شيتات وانما تسجيل بيانات. جربت سجلت بيانات جديدة ولم يرحل سوى البيانات القديمة رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أكتوبر 12, 2017 مشاركة قام بنشر أكتوبر 12, 2017 منذ ساعه, انس المنصوري said: استاذ سليم شكرا لك ولكن ليس ادراج شيتات وانما تسجيل بيانات. جربت سجلت بيانات جديدة ولم يرحل سوى البيانات القديمة الكود ينقل فقط البيانات من الصف 50 في كل صفحة(هذا الصف يمثل المجاميع) اذا كانت المجاميع عندك في صف اخر( غير 50) استبدل قيمة r في الكود الى الرقم الذي تريد رابط هذا التعليق شارك More sharing options...
انس المنصوري قام بنشر أكتوبر 13, 2017 الكاتب مشاركة قام بنشر أكتوبر 13, 2017 أشكرك استاذ سليم لتعاونك وبارك الله بجهودك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.