نسخ صف مماثل بالتنسيقات والمعادلات

[onlymanly]

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

انقطعت عن المنتدى لفترة و السبب اني ظللت اقلب المواقع الأجنبية ...المعنية بالإكسل فأتيت باالكثير الطيب و لكن لم يتنسى لي بعد تجهيزها

و سأطرح ما وجدت هنا في مووضوع مستقل ليستفيد منه الإخوة الفضلا ...

قبل هذا عندي استفسار وهو:

عندي ورقة حساب عبارة عن فاتورة , طبعاو فيها تنسيق صف واحد كوضع معادلات و تنسيق العملة و تنسيق الخلايا مثل الحدود و الخط و ما شابه . و هناك خلايا أو اعمدة مخفية فلو جئت أنسخ الخلايا المخفيتة لحد افتراضي كبير بحيث يشمل حاجتي من الأصناف بيكون العبء ع حجم الملف..

هل من كود معين ينسخ كل تنسيق الصف من أول خلية إلى اخر خلية بمجرد الانتهاء من ادخال بيانات الصف الأول؟.

دونكم مرفق.. و الله يرعاكم

[عبدالله باقشير]

السلام عليكم

استخدم الكود التالي:

 

Sub KH_FillDown()

Dim Last As Long

Last = Range("A" & Rows.Count).End(xlUp).Row + 1

On Error Resume Next

With Rows(Last)

    .FillDown

    .SpecialCells(xlConstants).ClearContents

End With

On Error GoTo 0

End Sub

وهو يعتمد على اخر خلية في العمود A

يضيف صف مع المعادلات فقط ويمسح القيم

 

 

INVOICE.xls

[أيسم إبراهيم]

السلام عليكم

أستاذنا الفاضل : خبور الخير

يضيف صف مع المعادلات فقط ويمسح القيم

ماذا لو أردنا أن يضيف الكود عدد من الصفوف محدد بقيمة في خلية ما في صفحة أخرى غير التي نعمل عليها؟؟؟؟

أدامك الله نهرا للمعرفة و العلم

دمت بخير

[onlymanly]

مشكور جدا يا وجه الخير ,,

أفادني جدا بارك الله فيك .. لكن أتسائل هل يمكن ان يكون تلقائيا من غير تشغيل مايكرو.؟

بمعنى إذا اكتملت بيانات الصف المحدد ينفتح صف اخر بنفس التنسيقات للصف اللي فوقه و هكذا سواء كان صفوف مخفية ام لا.

[onlymanly]

أستاذي خبور خير معليش من باب نافلة الفائدة :

عندي خليتان : المفترض أن لا تتم ا لكتابة إلا على واحدة منهمافقط ...

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

[عبدالله باقشير]

السلام عليكم

ماذا لو أردنا أن يضيف الكود عدد من الصفوف محدد بقيمة في خلية ما في صفحة أخرى غير التي نعمل عليها؟؟؟؟

استخدم مثلا الكود التالي:

Sub KH_Copy()

On Error Resume Next

Dim Last As Long

Dim Count As Integer

Count = 1

Count = Sheets("KHBOOR").Range("F9").Value

With ActiveSheet

    Last = .Range("A" & .Rows.Count).End(xlUp).Row

    .Rows(Last).Copy .Rows(Last + 1).Resize(Count)

    .Rows(Last + 1).Resize(Count).SpecialCells(xlConstants).ClearContents

End With

On Error GoTo 0

End Sub

شاهد المرفق

KH_COPY.rar

أفادني جدا بارك الله فيك .. لكن أتسائل هل يمكن ان يكون تلقائيا من غير تشغيل مايكرو.؟

بطريقتين:

1- يدويا

حدد اول صف فاضي آخر البيانات

واضغط CTRL+D

كذا حتضيف صف مثل الصف اللي فوقه مباشرة بالقيم والمعادلات

وعليك تغيير القيم الجديدة

2- بالكود

عن طريق زر

او بحدث معين من احداث الورقة

عندي خليتان : المفترض أن لا تتم ا لكتابة إلا على واحدة منهمافقط ...

ممكن بقاعدة التحقق من الصحة

او بالكود.

[احمد فضيله]

الاستاذ و الاخ الغالى / خبور خير

و الله ما وجدت لك موضوع او مشاركة الا و كان بها خير فعلا

بارك الله فيك و جعلك دوما عونا للمسلمين

و جزاك عنا خير الجزاء

[onlymanly]

لله درك خبور الخير.. لك الأجر إن شاء الله و الشكر موصول لك

[خالد القدس]

السلام عليكم

رائعة من روائعك التي لا تنتهى أستاذ خبور

بارك الله فيك وزادك علما وفضلا وعملا

[serag777]

شكرا لك أخي الكريم ... بارك الله فيك ... تحياتي .

[محمد بولاقي]

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

[أبوعبد الله]

أخي العزيز

إضافة لحل أخي الحبيب خبور المتميز وتحقيقاً لرغبتك في أن تكون عملية إضافة الصف تلقائياً بدون زر بمجرد الانتهاء من إدخال آخر معلومة عن الصنف وهي السعر بالعمود D فهذا حل آخر يعتمد هذه الفكرة فعند وضعك للسعر يتم إضافة صف جديد أسفل الصف النشط بنفس التنسيق والمعادلات وبدون بيانات ويقف بخلية كود الصنف بالصف الجديد وهذا إثراء للموضوع الذي يهم شريحة كبيرة من مستخدمي هذا النوع من تطبيقات الإكسيل أرجو أن تكون مفيدة والشكر موصول لأستاذي خبور .

تحياتي

أبو عبدالله

INVOICE-1.rar

[أبو سجده]

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

[عمرو.محمد]

ممكن اعرف منك يا استاذ خبور كيفيه عمل هذه الفكرة لكن كما فى برنامجك الاصدار الثالث فى صفحة القيود 

[سموالشوق]

بارك الله فيك

 

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