برجاء المساعده ترحيل هام جدا جدا

**۩◊۩ أبو حنين ۩◊۩** · أغسطس 24, 2013

الساده الاعزاء

السلام عليكم

هل لاحد ان يساعدنى فى عمليه ترحيل فى المرفق

على ان يكون 1- ترحيل البيانات من شيت الاتوبيس من ( B5 ) الى ( H) الى شيت العام فى ( I) و (O )

2- ترحيل البيانات من شيت الطائرة من ( B5 ) الى ( H) الى شيت العام فى ( I) و (O )

3- ترحيل البيانات من شيت مطروح من ( B5 ) الى ( H) الى شيت العام فى ( I) و (O )

4- ترحيل البيانات من شيت تعديل من ( B5 ) الى (H ) الى شيت العام فى ( I) و (O )

على ان يتم الاحتفاظ بجميع الترحيلات فى شيت العام ( للعلم ان شيت العام شيت حفظ جميع البيانات على مدار جميع ايام السنه

برجاء المساعده

مانفست كلابشة_Ali-1.rar

تم تعديل أغسطس 24, 2013 بواسطه دغيدى

**۩◊۩ أبو حنين ۩◊۩** · أغسطس 24, 2013

ايها الاخوه الافاضل

برجاء النظر فى الموضوع

هام جدا

**طارق محمود** · أغسطس 25, 2013

السلام عليكم

أخي العزيز

جرب الكود التالي

Sub tarheel()
Dim sh(9)
mysh = "عام"
sh(1) = "الاتوبيس": sh(2) = "طائرة": sh(3) = "مطروح": sh(4) = "نعديل"

For i = 1 To Sheets.Count
    For j = 1 To 4
        If Sheets(i).Name = sh(j) Then
            With Sheets(i)
                LR = .[B5].End(xlDown).Row
                dt = Format(.[F3], "dd-mm-yyyy")
                With .Range("B5:H" & LR)
                      s = .Rows.Count
                      .Copy
                End With
            End With
            Sheets(mysh).Activate
                nr = [I99999].End(xlUp).Row + 1
                Cells(nr, "I").PasteSpecial Paste:=xlPasteValues
                Range("H" & nr & ":H" & nr + s - 1) = dt
                Range("P" & nr & ":P" & nr + s - 1) = sh(j)
                sh(j) = "finish"
        End If
    Next j
Next i
End Sub

أو تفضل الملف مرفقا

مانفست كلابشة_Ali2.rar

**۩◊۩ أبو حنين ۩◊۩** · أغسطس 25, 2013

السلام عليكم

الاخ العزيز ظهرت مشكله

ارجو حلها

نرفق صورة

**۩◊۩ أبو حنين ۩◊۩** · أغسطس 25, 2013

الاخ العزيز

اولا جزاك الله كل الخير على مجهودك

ولا يوجد مشكله

لاحظ عن الترحيل

انه يقوم بترحيل جميع ( row ) الفارغه التى ليس بها بيلنات من التسلسل 2 الى 31 فى شيت الاتوبيس مثلا الا انها تحتوى على معادلات ويتم ترحيلها فى شيت العام بهذا الشكل

27-08-2013 #N/A #N/A #N/A -41513

ان ان تساعدنى ان برحل جميع الصفوف الى بها بيانات

مرفق البيان

جزاك الله خير على مجهودك .... وارجو من الله الا اكون اثقلت عليك

10.rar

**طارق محمود** · أغسطس 26, 2013

السلام عليكم

أخي العزيز

إستبدل السطر

LR = .[b5].End(xlDown).Row

بالتالي

LR = .[b35].End(xlUp).Row

ليكون الكود كالتالي

Sub tarheel()
Dim sh(9)
mysh = "عام"
sh(1) = "الاتوبيس": sh(2) = "طائرة": sh(3) = "مطروح": sh(4) = "نعديل"

For i = 1 To Sheets.Count
    For j = 1 To 4
        If Sheets(i).Name = sh(j) Then
            With Sheets(i)
                LR = .[B35].End(xlUp).Row
                dt = Format(.[F3], "dd-mm-yyyy")
                With .Range("B5:H" & LR)
                      s = .Rows.Count
                      .Copy
                End With
            End With
            Sheets(mysh).Activate
                nr = [I99999].End(xlUp).Row + 1
                Cells(nr, "I").PasteSpecial Paste:=xlPasteValues
                Range("H" & nr & ":H" & nr + s - 1) = dt
                Range("P" & nr & ":P" & nr + s - 1) = sh(j)
                sh(j) = "finish"
        End If
    Next j
Next i
End Sub

أو تفضل المرفق

مانفست كلابشة_Ali3.rar

**۩◊۩ أبو حنين ۩◊۩** · أغسطس 26, 2013

السلام عليكم

اخى العزيز

اسال الله ان يجعل ذلك في ميزان حسناتك

ولاكن هناك خطاء ما

وهو تم الترحيل من شيت الطارة والاتوبيس هذا الشكل ........ لانه لم يكن به اى مدخلات
وكذلك شيت مكروخ عندما يكون فارخ بدون مدخلات بتم ترحيل
راس الشيت ( الرقم- الاسم -الشركة-وهكذا )

والسوال هل يمكن حلها

ام من الممكن جعل لكل شيت من الاتوبيس والطائرة ومطروح والتعديل زر ترحيل خاص به الى العام في نفس الشيت

جزاك الله خير على مجهودك

مانفست كلابشة_Ali4.rar

**۩◊۩ أبو حنين ۩◊۩** · أغسطس 26, 2013

السلام عليكم

أخي العزيز

إستبدل السطر

LR = .[b5].End(xlDown).Row

بالتالي

LR = .[b35].End(xlUp).Row

ليكون الكود كالتالي

Sub tarheel()
Dim sh(9)
mysh = "عام"
sh(1) = "الاتوبيس": sh(2) = "طائرة": sh(3) = "مطروح": sh(4) = "نعديل"

For i = 1 To Sheets.Count
    For j = 1 To 4
        If Sheets(i).Name = sh(j) Then
            With Sheets(i)
                LR = .[B35].End(xlUp).Row
                dt = Format(.[F3], "dd-mm-yyyy")
                With .Range("B5:H" & LR)
                      s = .Rows.Count
                      .Copy
                End With
            End With
            Sheets(mysh).Activate
                nr = [I99999].End(xlUp).Row + 1
                Cells(nr, "I").PasteSpecial Paste:=xlPasteValues
                Range("H" & nr & ":H" & nr + s - 1) = dt
                Range("P" & nr & ":P" & nr + s - 1) = sh(j)
                sh(j) = "finish"
        End If
    Next j
Next i
End Sub

أو تفضل المرفق

السلام عليكم

اخى العزيز

اسال الله ان يجعل ذلك في ميزان حسناتك

ولاكن هناك خطاء ما

وهو تم الترحيل من شيت الطارة والاتوبيس هذا الشكل ........ لانه لم يكن به اى مدخلات

وكذلك شيت مكروخ عندما يكون فارخ بدون مدخلات بتم ترحيل

راس الشيت ( الرقم- الاسم -الشركة-وهكذا )

والسوال هل يمكن حلها

ام من الممكن جعل لكل شيت من الاتوبيس والطائرة ومطروح والتعديل زر ترحيل خاص به الى العام في نفس الشيت

جزاك الله خير على مجهودك

**۩◊۩ أبو حنين ۩◊۩** · أغسطس 26, 2013

السلام عليكم

أخي العزيز

إستبدل السطر

LR = .[b5].End(xlDown).Row

بالتالي

LR = .[b35].End(xlUp).Row

ليكون الكود كالتالي

Sub tarheel()
Dim sh(9)
mysh = "عام"
sh(1) = "الاتوبيس": sh(2) = "طائرة": sh(3) = "مطروح": sh(4) = "نعديل"

For i = 1 To Sheets.Count
    For j = 1 To 4
        If Sheets(i).Name = sh(j) Then
            With Sheets(i)
                LR = .[B35].End(xlUp).Row
                dt = Format(.[F3], "dd-mm-yyyy")
                With .Range("B5:H" & LR)
                      s = .Rows.Count
                      .Copy
                End With
            End With
            Sheets(mysh).Activate
                nr = [I99999].End(xlUp).Row + 1
                Cells(nr, "I").PasteSpecial Paste:=xlPasteValues
                Range("H" & nr & ":H" & nr + s - 1) = dt
                Range("P" & nr & ":P" & nr + s - 1) = sh(j)
                sh(j) = "finish"
        End If
    Next j
Next i
End Sub

أو تفضل المرفق

السلام عليكم

اخى العزيز

اسال الله ان يجعل ذلك في ميزان حسناتك

ولاكن هناك خطاء ما

وهو تم الترحيل من شيت الطائرة والاتوبيس هذا الشكل ........ لانه لم يكن به اى مدخلات

وكذلك شيت مطروح عندما يكون فارخ بدون مدخلات بتم ترحيل

راس الشيت ( الرقم- الاسم -الشركة-وهكذا )

والسوال هل يمكن حلها

ام من الممكن جعل لكل شيت من الاتوبيس والطائرة ومطروح والتعديل زر ترحيل خاص به الى العام في نفس الشيت

جزاك الله خير على مجهودك

**طارق محمود** · أغسطس 26, 2013

السلام عليكم

حلها بسيط إن شاء الله بالخطوتين التاليتين

(1) السطر الذي تم تعديله من قبل

LR = .[b35].End(xlUp).Row

ضع بعده مباشرة الأمر التالي

If LR = 4 Then GoTo 10

(2) في آخر الكود ضع الرقم 10 قبل Next j

ليكون الكود كله كالتالي

Sub tarheel()
Dim sh(9)
mysh = "عام"
sh(1) = "الاتوبيس": sh(2) = "طائرة": sh(3) = "مطروح": sh(4) = "نعديل"

For i = 1 To Sheets.Count
    For j = 1 To 4
        If Sheets(i).Name = sh(j) Then
            With Sheets(i)
                LR = .[B35].End(xlUp).Row
                If LR = 4 Then GoTo 10
                dt = Format(.[F3], "dd-mm-yyyy")
                With .Range("B5:H" & LR)
                      s = .Rows.Count
                      .Copy
                End With
            End With
            Sheets(mysh).Activate
                nr = [I99999].End(xlUp).Row + 1
                Cells(nr, "I").PasteSpecial Paste:=xlPasteValues
                Range("H" & nr & ":H" & nr + s - 1) = dt
                Range("P" & nr & ":P" & nr + s - 1) = sh(j)
                sh(j) = "finish"
        End If
10  Next j
Next i
End Sub

أو تفضل المرفق

مانفست كلابشة_Ali4.rar

**۩◊۩ أبو حنين ۩◊۩** · أغسطس 26, 2013

السلام عليكم

حلها بسيط إن شاء الله بالخطوتين التاليتين

(1) السطر الذي تم تعديله من قبل

LR = .[b35].End(xlUp).Row

ضع بعده مباشرة الأمر التالي

If LR = 4 Then GoTo 10

(2) في آخر الكود ضع الرقم 10 قبل Next j

ليكون الكود كله كالتالي

Sub tarheel()
Dim sh(9)
mysh = "عام"
sh(1) = "الاتوبيس": sh(2) = "طائرة": sh(3) = "مطروح": sh(4) = "نعديل"

For i = 1 To Sheets.Count
    For j = 1 To 4
        If Sheets(i).Name = sh(j) Then
            With Sheets(i)
                LR = .[B35].End(xlUp).Row
                If LR = 4 Then GoTo 10
                dt = Format(.[F3], "dd-mm-yyyy")
                With .Range("B5:H" & LR)
                      s = .Rows.Count
                      .Copy
                End With
            End With
            Sheets(mysh).Activate
                nr = [I99999].End(xlUp).Row + 1
                Cells(nr, "I").PasteSpecial Paste:=xlPasteValues
                Range("H" & nr & ":H" & nr + s - 1) = dt
                Range("P" & nr & ":P" & nr + s - 1) = sh(j)
                sh(j) = "finish"
        End If
10  Next j
Next i
End Sub

أو تفضل المرفق

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

كيف لى ان اتعلم الاكواد بصوره واضحه ؟؟؟؟؟

**۩◊۩ أبو حنين ۩◊۩** · أغسطس 26, 2013

يوجد ماكرو الغرض منه جعل لغه الكتابه هى الانجليزيه وعند الانتقال الى خليه اخرى تتحول الله الى العربيه

ولاكنه لا يعمل الان بل ..... انه يعمل على غلق وفتح الارقام عند التحرك من خليه لاخرى

عند الترحيل فى العام لا يعمل فرذ الفادمين الا بالكتابه فى خليه تاريخ النزول وليس الترحيل
اخيرا .... برجاء عمل زر لمسح البيانات وليس المعدلات فى شييت ابتداء من الاتوبيس و الطائرة ومطروح والتعديل ....على ان يكون كل زر منفصل فى كل شيت

k1.rar

**طارق محمود** · أغسطس 27, 2013

لم أفهم قصدك من الملاحظة "لم يتم الفرز فى القادمين عند الترحيل الا بعد الكتابه فى h7 وليس الترحيل"

أيضا كود اللغة (عربي / إنجليزي) يحتاج وقت لتتبعه وليس عندي (أعتذر منك)

تم بالمرفق عمل الكود والزر لحذف البيانات فقط بالشيتات المطلوبة

k1_2.rar

**۩◊۩ أبو حنين ۩◊۩** · أغسطس 27, 2013

اخى العزيز هند الضغط على الترحيل في عام

يتم الترحيل ويتم ترحيل التاريخ ايضا في h2

ولك ان تجرب ذللك

ولاكن عند الفرز في المغادرين لا يظهر شئ عكس الفررز في القادمين

**بن علية حاجي** · أغسطس 27, 2013

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

أخي الكريم، قمت بعدة تعديلات في الكود وفي أوراق العمل لمحاولة جعل الملف يعمل دون مشاكل... بالنسبة لكود تغيير اللغة فهو يعمل عندي على أحسن وجه (إلا أنه -معي- يقوم بإلغاء لوحة الأرقام)...

أخوك بن علية

الملف المرفق : مانفست كلابشة_Ali5.rar

**بن علية حاجي** · أغسطس 28, 2013

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

أخي الكريم حمادة، تم، في ملفي المرفق الأخير، إدراج كود أخي الحبيب طارق لمسح البيانات دون المعادلات في كل الأوراق (أوتوبيس-طائرة-مطروح-تعديل)... أرجو أن يفي بالغرض...

أخوك بن علية

الملف المرفق : مانفست كلابشة_Ali5.rar

**۩◊۩ أبو حنين ۩◊۩** · أغسطس 28, 2013

اخى العزبز جزاك الله كل خير

اثفلت عليكم

طلبى الاخير

هلى لى عمل زر واحد لمسح البيانات من شيت الاتوبيس والطائرة والتعديل ومطروح دون مسخ العادلات على ان يكون بجوار زر الترحيل في العام

مقدر لكم قدر التعب ووقتكم الثمين

في حفظ الله وامنه

اشكر الجميع واخص اخى

اخى بن علية حاجي

اخى طارق محمود

**بن علية حاجي** · أغسطس 28, 2013

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

أخي الكريم حمادة، لقد تم إضافة زر بكود في شيت "عام" لمسح البيانات دون المعادلات من الشيتات الأربعة (مطروح-طائرة-الاتوبيس-تعديل) مع تعديلات أخرى... ولم يكن هناك داع لفتح موضوع جديد للمسألة نفسها...

أخوك بن علية

الملف المرفق : مانفست كلابشة_Ali5.rar

**۩◊۩ أبو حنين ۩◊۩** · أغسطس 28, 2013

اخى العزيز بن علية حاجي

شاكر لك سعيك ووقتك الثمين

وبعتزر عن اضافه الموضوع الجديد

ولاكن كنت قد اضفته قبل ردك

ارجو المعذرة

جزاك الله خير

**۩◊۩ أبو حنين ۩◊۩** · أغسطس 28, 2013

الأخ العزيز

أولا وقبل اى شيء اشكر لك مجهودك معنى

بعد الاطلاع على المرفق

تظهر في شيت المغادريت والقادمين عند الاستفسار N/A#

جزاك الله خير

**۩◊۩ أبو حنين ۩◊۩** · أغسطس 28, 2013

اخى العزيز

هذا هو المرفق الذى طلبنه ويظهر به الخلل

تظهر في شيت المغادرين والقادمين عند الاستفسار N/A#

رجاء اطلاعى على سبب المشكله

جزاك الله خير

مانفست كلابشة_Ali9.rar

**بن علية حاجي** · أغسطس 28, 2013

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

أخي الكريم حمادة، معذرة على هذا الخطأ غير المقصود في الملف، السبب هو عند إنشاء وتجربة كود المسح الذي تم إدراجه في ورقة "عام" قام بالخطأ (البرمجة) بمسح معادلات عمودين من أعمدة الفرز الستة المخفية A:F الخاصة بالقادمين والمغادرين في ورقة "عام"، وعند مسح هذه المعادلات ظهر الخلل في ورقتي القادمين والمغادرين.... معذرة على هذا الخلل مرة أخرى وقد تم تصحيح هذه الأخطاء في ورقة "عام"...

أرجو أن لا تكون هناك أخطاء أخرى...

أخوك بن علية

الملف المرفق : مانفست كلابشة_Ali5.rar

**۩◊۩ أبو حنين ۩◊۩** · أغسطس 28, 2013

اخوانى الاعزاء

اتقدم بالشكر للجميع والقائمين على ذلك المنتدى

واخص بالذكر اخوانى

الاخ بن علية حاجي و الاخ طارق محمود والاخ حمادة باشا

على ما قدموه من وقت ومعلومات

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

تسجيل الدخول

برجاء المساعده ترحيل هام جدا جدا

الردود الموصى بها

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

من فضلك سجل دخول لتتمكن من التعليق

تصفح هذا الموضوع مؤخراً 0 اعضاء متواجدين الان

Important Information