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

طلب كود ترحيل من خلايا متفرقة إلى آخر صف فيه بيانات


إذهب إلى أفضل إجابة Solved by حسين مامون,

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

السلام عليكم

تحية طيبة

أدام لله لكم الصحة والسلامة جميعا

سؤالي تختصره الصورة

p_1344pxbhl1.png

 

كود ترحيل الخلية Y1 إلى آخر صف +1 وفي نفس الصف ترحل الخلايا 

AM6:BQ6

إلى E:Ai

الترحيل يكون بيانات

 

شكرا لكل من مر على الموضوع

وجزيل الشكر وخالص الدعاء لمن ساعدني

 

تحياتي

INI.xlsx

رابط هذا التعليق
شارك

أستاذي حسين

بارك الله في صحتك ووقتك وكثر الله من أمثالك

وأدام الله لك الصحة ومتعك بعافيتك

 

هذا هو المطلوب بارك الله فيك وشكر الله لك

هنيئا لصاحب العلم في زكاة علمه

تحياتي

رابط هذا التعليق
شارك

هل ممكن إضافة شرط:

إذا كانت الخلية Y1 موجودة في العامود A فيكون فيه رسالة تحذيرية أنه موجود ولا يقبل التكرار؟ ـ

 

  الكود في الملف المرفق أعلاه من إبداع حسين مامون جزاه الله خيراً

Sub TEST()
Dim lr

With Sheets("HR")
lr = .Cells(Rows.Count, 1).End(3).Row + 1
    If .[y1] = "" Then Exit Sub
    .Range("a" & lr).Value = .[y1].Value
    .Range("e" & lr).Resize(1, 31).Value = .Range("am6").Resize(1, 31).Value
    End With
End Sub

 

رابط هذا التعليق
شارك

  • أفضل إجابة

غير الماكرو بهذا

Sub TEST()
Dim lr

With Sheets("HR")
lr = .Cells(Rows.Count, 1).End(3).Row + 1
 If Application.WorksheetFunction.CountIf(.Range("A5:A10000"), .Range("y1")) > 0 _
 Then MsgBox "الرقم الذي ادخاله موجود في القائمة", vbInformation: Exit Sub
 
    If .[y1] = "" Then Exit Sub
    .Range("a" & lr).Value = .[y1].Value
    .Range("e" & lr).Resize(1, 31).Value = .Range("am6").Resize(1, 31).Value
    End With
End Sub

 

  • Like 1
رابط هذا التعليق
شارك

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