تصحيح كود الترحيل على ان يكون بدون فراغات

[marwa41]

سوف ارفع الملف مرة اخرى

مبيعات.xlsm

الكود ده بعمله  اكثر من 8 ساعات مش عارف ازبطه

[ابراهيم الحداد]

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

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

اجعلى الكود هكذا

Sub reda20204()
Dim lr As Integer
Sheets("فاتورة_مبيعات").Activate
lr = WorksheetFunction.CountA(Range("F16:F25")) + 15
Range("B16:m" & lr).Copy
Sheets("المبيعات").Activate
Range("B7").PasteSpecial xlPasteValues
Application.CutCopyMode = False
MsgBox ("ابدأعملية جديدة")
Sheets("فاتورة_مبيعات").Activate
       
    Sheets("فاتورة_مبيعات").Range("i24").Value = ""
    Sheets("فاتورة_مبيعات").Range("i16").Value = ""
    Sheets("فاتورة_مبيعات").Range("i17").Value = ""
    Sheets("فاتورة_مبيعات").Range("i18").Value = ""
    Sheets("فاتورة_مبيعات").Range("i19").Value = ""
    Sheets("فاتورة_مبيعات").Range("i20").Value = ""
    Sheets("فاتورة_مبيعات").Range("i21").Value = ""
    Sheets("فاتورة_مبيعات").Range("i22").Value = ""
    Sheets("فاتورة_مبيعات").Range("i23").Value = ""


    Sheets("فاتورة_مبيعات").Range("f24").Value = ""
    Sheets("فاتورة_مبيعات").Range("f25").Value = ""
    Sheets("فاتورة_مبيعات").Range("f16").Value = ""
    Sheets("فاتورة_مبيعات").Range("f17").Value = ""
    Sheets("فاتورة_مبيعات").Range("f18").Value = ""
    Sheets("فاتورة_مبيعات").Range("f19").Value = ""
    Sheets("فاتورة_مبيعات").Range("f20").Value = ""
    Sheets("فاتورة_مبيعات").Range("f21").Value = ""
    Sheets("فاتورة_مبيعات").Range("f22").Value = ""
    Sheets("فاتورة_مبيعات").Range("f23").Value = ""


    Sheets("فاتورة_مبيعات").Range("L24").Value = ""
    Sheets("فاتورة_مبيعات").Range("L25").Value = ""
    Sheets("فاتورة_مبيعات").Range("l16").Value = ""
    Sheets("فاتورة_مبيعات").Range("l17").Value = ""
    Sheets("فاتورة_مبيعات").Range("L18").Value = ""
    Sheets("فاتورة_مبيعات").Range("l19").Value = ""
    Sheets("فاتورة_مبيعات").Range("l20").Value = ""
    Sheets("فاتورة_مبيعات").Range("L21").Value = ""
    Sheets("فاتورة_مبيعات").Range("L22").Value = ""
    Sheets("فاتورة_مبيعات").Range("l23").Value = ""

     Sheets("فاتورة_مبيعات").Range("h24").Value = ""
    Sheets("فاتورة_مبيعات").Range("H25").Value = ""
    Sheets("فاتورة_مبيعات").Range("h16").Value = ""
    Sheets("فاتورة_مبيعات").Range("h17").Value = ""
    Sheets("فاتورة_مبيعات").Range("h18").Value = ""
    Sheets("فاتورة_مبيعات").Range("h19").Value = ""
    Sheets("فاتورة_مبيعات").Range("h20").Value = ""
    Sheets("فاتورة_مبيعات").Range("h21").Value = ""
    Sheets("فاتورة_مبيعات").Range("h22").Value = ""
    Sheets("فاتورة_مبيعات").Range("h23").Value = ""


    Sheets("فاتورة_مبيعات").Range("k25").Value = ""
    Sheets("فاتورة_مبيعات").Range("K24").Value = ""
    Sheets("فاتورة_مبيعات").Range("k16").Value = ""
    Sheets("فاتورة_مبيعات").Range("k17").Value = ""
    Sheets("فاتورة_مبيعات").Range("k18").Value = ""
    Sheets("فاتورة_مبيعات").Range("k19").Value = ""
    Sheets("فاتورة_مبيعات").Range("k20").Value = ""
    Sheets("فاتورة_مبيعات").Range("k21").Value = ""
    Sheets("فاتورة_مبيعات").Range("k22").Value = ""
    Sheets("فاتورة_مبيعات").Range("k23").Value = ""
End Sub

 

[marwa41]

السلام عليكم 

رمضان كريم

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

مبيعات (4).xlsm

[ابراهيم الحداد]

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

استخدمى الكود التالى بدلا من الكود السابق

Sub Reda20204()
Dim ws As Worksheet, Sh As Worksheet
Dim Lr As Long, Ls As Long
Application.ScreenUpdating = False
Set ws = Sheets("فاتورة_مبيعات")
Set Sh = Sheets("المبيعات")
Lr = WorksheetFunction.CountA(ws.Range("F16:F25")) + 15
If Lr < 16 Then
Lr = 16
Else
Lr = Lr
End If
ws.Range("B16:M" & Lr).Copy
Ls = Sh.Range("B" & Rows.Count).End(xlUp).Row
Sh.Range("B" & Ls + 1).Select
Selection.PasteSpecial xlPasteValues
Application.CutCopyMode = False
MsgBox ("ابدأعملية جديدة")
ws.Range("F16:I25").Value = ""
ws.Range("K16:L25").Value = ""
Application.ScreenUpdating = True
End Sub

 

[أحمد يوسف]

        marwa41

أين الضغط على الإعجاب لهذه الإجابة الممتازة واعتقد ان هذا اقل ما يقدم لصاحب الفضل بعد ربنا فى حل مشكلتك ؟!!!💙

والله مش عارف ايه الموضوع ده هل انت تتعمد تجاهل الضغط على الإعجاب ام هذا كبرياء على الرغم انك تتحصل دائما على الإجابة المطلوبة فحقاً وواجب عليك الضغط على الإعجاب ؟!!!!!!