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

[۩◊۩ أبو حنين ۩◊۩]

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

السلام عليكم

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

على ان يكون 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 بواسطه دغيدى

[۩◊۩ أبو حنين ۩◊۩]

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

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

هام جدا

[طارق محمود]

السلام عليكم

 

أخي العزيز

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

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

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

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

ارجو حلها

نرفق صورة

 

[۩◊۩ أبو حنين ۩◊۩]

الاخ العزيز

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

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

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

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

 

 

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

 

 

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

مرفق البيان

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

10.rar

[طارق محمود]

السلام عليكم

أخي العزيز

 

إستبدل السطر 

               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

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

اخى العزيز

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

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

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

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

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

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

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

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

أخي العزيز

 

إستبدل السطر 

               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

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

السلام عليكم

اخى العزيز

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

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

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

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

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

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

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

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

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

أخي العزيز

 

إستبدل السطر 

               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

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

السلام عليكم

اخى العزيز

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

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

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

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

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

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

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

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

[طارق محمود]

السلام عليكم

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

 

(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

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

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

 

(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

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

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

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

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

 

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

[۩◊۩ أبو حنين ۩◊۩]

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

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

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

k1.rar

[طارق محمود]

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

 

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

 

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

 

k1_2.rar

[۩◊۩ أبو حنين ۩◊۩]

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

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

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

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

[بن علية حاجي]

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

 

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

 

أخوك بن علية

 

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

[بن علية حاجي]

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

 

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

 

 

أخوك بن علية

 

 

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

[۩◊۩ أبو حنين ۩◊۩]

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

اثفلت عليكم

طلبى الاخير

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

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

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

 

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

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

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

[بن علية حاجي]

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

 

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

 

أخوك بن علية

 

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

[۩◊۩ أبو حنين ۩◊۩]

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

 

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

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

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

 

ارجو المعذرة

 

جزاك الله خير

[۩◊۩ أبو حنين ۩◊۩]

الأخ العزيز

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

 

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

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

جزاك الله خير

[۩◊۩ أبو حنين ۩◊۩]

اخى العزيز

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

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

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

جزاك الله خير

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

[بن علية حاجي]

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

 

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

 

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

 

أخوك بن علية

 

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

[۩◊۩ أبو حنين ۩◊۩]

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

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

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

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

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

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