اذهب الي المحتوي
أوفيسنا

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

قام بنشر

ترحيل بالكود

كود الناجحين

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information