ضبط كود نسخ محتوى عمودين واضافتهم

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

السلام عليكم

ارجو المساعده فى ضبط  الماكرو المرفق 

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

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

لا اريد ان يقوم بنسخ المعادلات .. اريد القيمة والفرمات فقط

والا بتم تنفيزة الا من خلال كلمة مرور

 

 

()Sub copy_column

 

    Columns("K:L").Select

    Range("L1").Activate

    Selection.copy

    Selection.ColumnWidth = 3.71

    Columns("M:M").Select

    Selection.Insert Shift:=xlToRight

End Sub

 

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

 

[إبراهيم ابوليله]

اخى ابوحنين

اضف هذا الى الكود

Columns("M:n") = Columns("M:n").Value

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

السلام عليكم

الاخ إبراهيم ابوليله

اين تكون الاضافة

ولماذا Columns("M:n") = Columns("M:n").Value

n

ارجو التوضيخ

تم تعديل مايو 15, 2014 بواسطه ۩◊۩ أبو حنين ۩◊۩

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

للرفع

[احمدزمان]

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

 

بعد اذن اخونا الكريم ابراهيم 

 

اخي ابو حنين

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

Sub Insert2ColmnValue()
    Columns("K:L").Copy
With Range("K1")
    .Insert Shift:=xlToRight
    .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    .Select
End With
End Sub

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

السلام عليكم اخى احمدزمان

سلمت يداك 

تم الامر كما اريد 

جزاك الله كل الخير انت والاخ ابراهيم

[إبراهيم ابوليله]

اخى واستاذنا احمد

دائما ما نتعلم منك

بارك الله  فيك

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

السلام عليكم

اخى الحبيب احمد الزمان

اتمنة من الله ان تكون بكل خير

اخى كان طلبى ان يتم نسخ العمودين  L&K جهة اليمن ولاكنى اخطائت فى طلبى

الصحيح ان يتم نسخ العمودين  L&K جهة الشمال ...

وقد قمت بالمحاوله فى تعديل الكود فى 

 

"(With Range("K1 لتصبح  "(With Range("M1

ليتم اللصق 

فظهر الخطاء التالى 

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

 

        :=False, Transpose:=False

فهل من حل

Sub Insert2ColmnValue()
Columns("K:L").Copy
With Range("K1")
.Insert Shift:=xlToRight
.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
.Select
End With
End Sub

ترقيهTIST.rar

تم تعديل مايو 16, 2014 بواسطه ۩◊۩ أبو حنين ۩◊۩

[احمدزمان]

اخى واستاذنا احمد

دائما ما نتعلم منك

بارك الله  فيك

 

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

[احمدزمان]

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

 

اخي

يمين = RIGHT

و

يسار = LEFT

 

اذا جرب في نفس الكود تغيير اليمين الى اليسار

ان شاء الله يصير تمام

 

أرجو اخباري بالنتيجة لأنني غير متأكد

و التجربة خير برهان

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

السلام عليكم

اخى احمد

جربت ولاكن لم يتم المطلوب

يوجد معادلات فى العمود W مرتبطه بالعمود K

لهذا اريد ان بتم اضافه العمودين يسار العمودين L&K

هل يوجد حل

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

[رجب جاويش]

السلام عليكم

بعد اذن أستاذنا الفاضل المحترم / احمد زمان

أخى الفاضل / أبو حنين

جرب التعديل التالى

Sub Insert2ColmnValue()
Application.ScreenUpdating = False
    Columns("K:L").Select
    Selection.Copy
    Columns("M:M").Select
    Selection.Insert Shift:=xlToRight
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Range("M1").Select
    Application.ScreenUpdating = True
End Sub

ترقيهTIST.rar

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

السلام عليكم

اخى العزيز احمد زمان

الاخ الفاضل رجب جاويس

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

يكفى الاهتمام المفرط والسعى الى وجود حل 

الحمد لله  تم المطلوب 

لكم كل الشكر والتقدير 

تم تعديل مايو 16, 2014 بواسطه ۩◊۩ أبو حنين ۩◊۩