BAbGHDADI

 الكود يعمل شكرا

بارك الله فيك استاذ Ali Mohamed Ali

السلام عليكم 

المرجو من الاخوة مساعدتي

انا اعمل على تشفير اتمنة الشراء وكتابته على شكل احرف واريدها ان تكون على شكل ()FONCTION 

لقد قمت بمحاولة ولكن العملية تطلبت مني استعمال مجموعة من الاعمدة 

وشكرا

CODAGE.xlsx

الكود يعمل شكرا اخوتي وبارك الله فيكم 

السلام عليكم 

المرجو من الاخوة مساعدتي  

لقد قمت بكتابة كود من اجل حدف الصفوف التى لا تحتوي على كلمة  VISUALISEUR  لكن لا يعمل ... عليك بوضع الكود بهذا الشكل داخل المشاركة

Sub SUPP()

Dim i As Integer

Dim LR As Integer

    LR = ActiveSheet.UsedRange.Rows.Count

    For i = 8 To LR Step -1

        If Cells(i, 9) <> "VISUALISEUR" Then Rows(i).Delete

    Next

End Sub

VISUAL1.xlsm

السلام عليكم اخوتي المرجو منكم المساعدة

لقد قمت بعمل classeur يحتوي على Feuil1 و Feuil2

في Feuil1 توجد معلومات المنتجات والتي تنتهي في السطر 138

وفي Feuil2 توجد ورقة A4 تحتوي على معلومات من Feuil1.(من السطر 2 الى السطر 49)

* كيف يمكن طباعة ملف pdf من Feuil2 . والذهاب الى Feuil1 ومسح المجموعة الاولى المتكونة من 48 سطر (اللون الاصفر).

ونقوم بترحيل المجموعة التانية (اللون الازرق)  الى المكان الدى كانت فيه المجموعة الاولى . 

لكي تظهر في Feuil2 . ونقوم مرة اخرى بطباعة Feuil2 ...

ونقوم بتكرار هده العملية حتى يتم طباعة اخر سطر في Feuil1 .

A4 VERSION.xlsm

بارك الله فيك استاذ سليم حاصبيا 

وبارك الله فيك استاذ محي الدين

استسمح يا اخوتي . ولكن الmacro لا يعمل في حالة وجود بيانات كتيرة 

االمتال موجود في  TESTE55 With code (2).xlsm

اعتذر واتاسف عن تاخري في الرد .

شكرا جزيلاً لكل من الاستاد محي الدين ابو البشر  والاستاد سليم حاصبيا 

واقل ما يقال عن هدا العمل .  انه رااائع جدا

شكراً على مساعدتكم دون مقابل، فهو شعور لا يمكن وصفه بالكلام.

كيف يمكنني الترحيل من الشيت رقم 1 الى الشيت رقم 2 مع تكرار كل سطر حسب عدد المرات الموجودة في الخلية. . وتكرار العملية حتى اخر سطر يتوفر على بيانات في الشيت 1 

وشكرا 

TESTE55.xlsx