نسخ سطر من شيت ولصقه وتلوينه في شيت ثانية

[Ahmtal87]

من فضلكم لدي هنا ملف اكسل (نسخ سطر من شيت ولصقه وتلوينه في الشيت الثانية ) المطلوب من فضلكم كود لتلوين كامل الصف الملصوق وليس فقط اول خلية كما حصل معي وشكررررا جزيلاااااااااااااااااااااااااااااااا

نسخ سطر من شيت ولصقه وتلوينه في شيت ثانية.xlsm

[سليم حاصبيا]

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

Sub ahmad()
Dim source As Worksheet
Dim Targ As Worksheet
Set source = Sheets("Sheet1")
Set Targ = Sheets("Sheet2")
Dim col%
Dim last_row%
Targ.Cells.Interior.ColorIndex = 2
 col = source.Cells(1, Columns.Count).End(1).Column
 last_row = Targ.Cells(Rows.Count, 1).End(3).Row + 1

 With Targ.Cells(last_row, 1).Resize(1, col)
  .Value = source.Range("a2").Resize(1, col).Value
  .Interior.ColorIndex = 6
End With

End Sub

 

[Ahmtal87]

شكراااااااااااااا لجهودك سيد سليم المحترم ....

جزاك الله عني كل خيررررررررررر...

[Ahmtal87]

صديقي كووووووووووووووووووود ممتازززززززز جدا ... جزاك الله عنا كل خيررر

كيف ممكن نعدل عليه ونخلي كل سطر لوناه  ثابت مابروح لونو لما بدنا نلون سطر تاني مو شرط يلي يليه ؟؟؟؟؟؟ 

ولك جزيل الشكرررر

تم تعديل نوفمبر 15, 2018 بواسطه Ahmtal87