إلى زملائي الأعزاء السلام عليكم ورحمة الله وبركات
في الملف المرفق حاولت ترحيل البيانات إلى شيت آخر ولكني كل مره أفشل بيها من فضلكم افادتي بكود ترحيل عملي أو ارسال الكود في الرد وفي حال توفر وقت لديكم برجاء الشرح
Sub Tarheel()
Dim d(5), x(5, 30)
d(1) = [G7]: d(2) = [C4]: d(3) = [C8]: d(4) = [H8]: d(5) = [C9]
With Sheets("Data")
DR = .[H10000].End(xlUp).Row + 1 '
For i = 1 To 5
.Cells(DR, i + 1) = d(i)
Next i
End With
LR = [H30].End(xlUp).Row
Range("C12:G" & LR).Copy
Sheets("Data").Select
Range("G" & DR).Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
[F2].Select
Sheets("Permession").Select
Reply = MsgBox("All data will be transfer " & Chr(10) & "it's done", vbYesNo)
If Reply <> 6 Then Exit Sub
Range("B12:C29, B29").ClearContents
[G7] = [G7] + 1
Range("D8:D10, F9").ClearContents
End Sub
عنوان مخالف جداً ... تم تعديل وتغيير عنوان المشاركة ليعبر عن طلبك
تصريح.xlsm