اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

قام بنشر

ترحيل بالكود

كود الناجحين

Sub Macro1()

'

' Macro1 ãÇßÑæ

'


'

Sheets("äÇÌÍ").Select

Range("c5:k16").ClearContents

Range("b5").Select

Sheets("ßÔÝ ÇáÑÕÏ").Select

    Range("L6").Select

    For i = 1 To 20

    If Selection.Value = "äÇÌÍ" Then

        ActiveCell.Offset(0, -10).Range("A1:K1").Select

        Selection.Copy

    Sheets("äÇÌÍ").Select


    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

         ActiveCell.Offset(1, 0).Select

    Sheets("ßÔÝ ÇáÑÕÏ").Select

    ActiveCell.Offset(1, 10).Select

    Application.CutCopyMode = False

    Else

     ActiveCell.Offset(1, 0).Select

    End If

   Next

End Sub

المرفق

ترحيل الناجح والدور الثانيkemas.zip

قام بنشر

السلام عليكم

جزيل الامتنان والشكر للاخوة ابوالاء وياسر والخالدي وkemas

الاخوة ابوالاء وياسر ايات هو اسم ابنتي فانا ابو ايات

واسف على هذا اللبس غير المتعمد

جربت معادلات ابوالاء التي ابتدعها الاخ الخالدي ولكنها لم ترحل معي

ولا اعرف اين الخطأ

مرفق ملف التجربة ارجو ايضاح اين الخطأ ولكم مني جزيل الشكر

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

شيت الصف الاول الابتدائي.rar

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

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

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information