نقل اصفف الى شيت اخر

[محمد عبد الناصر]

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

في الملف المرفق عايز امر لو مكتوب (تم الرد) ياخد الصف كامل قص ويوديه للشيت 2

md.rar

[وليد حجاب]

جرب هذا الكود ، هذه محاولة بسيطة

Sub Macro1()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+Shift+H
'
    Range("A5:F5").Select
    Selection.Cut
    Sheets("Sheet2").Select
    Range("A5").Select
    ActiveSheet.Paste
End Sub

 

[محمد عبد الناصر]

11 hours ago, وليد حجاب said:

جرب هذا الكود ، هذه محاولة بسيطة

Sub Macro1()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+Shift+H
'
    Range("A5:F5").Select
    Selection.Cut
    Sheets("Sheet2").Select
    Range("A5").Select
    ActiveSheet.Paste
End Sub

 

معلش اسف لو بتعب حضرتك معايا انا عايزه ياخد الصف كامل لو مكتوب في الخلية 
H 
تم الرد
ياخد الصف كامل قص ويودية في الشيت 2 

لو حضرتك تعملهالي في الملف المرفق يبقىكتر الف خيرك 

[محمد عبد الناصر]

up

[محمد عبد الناصر]

upppppppppp

[وليد حجاب]

بس قم بالضغط على Ctrl+Shift+H

بعد التحديد على مكان الصف المراد نقله

 

ممكن ايضا إفادة الخبراء و تحديث الكود بما يروه ،،،

 

md.rar

 

[محمد عبد الناصر]

13 hours ago, وليد حجاب said:

بس قم بالضغط على Ctrl+Shift+H

بعد التحديد على مكان الصف المراد نقله

 

ممكن ايضا إفادة الخبراء و تحديث الكود بما يروه ،،،

 

md.rar

 

حضرتك انا هكتب صفوف كتييير عايزه يطبقها على كله وعايزه يشيل اللي مكتوب عليه تم الرد كت وينقله في الشيت 2جربت المرفق وزي م حضرتك قولتلي عملت الدنيا بتبوظ خالص

 

[محمد عبد الناصر]

uuppp

[Ali Mohamed Ali]

جرب هذا لعله المطلوب

 

md.rar