السلام عليكم احبائى الكرام , ارجو ان تكونوا فى احسن حال .... الرجاء التكرم على مساعدتى فى ضبط كود الترحيل من صفحة الفاتورة الى صفحة المشتريات والمبيعات بحيث يتم الترحيل بشكل متتالى دائما بدون وجود اى فراغات كما هو واضح بالصورة . فالكود يعمل تمام ولكن عند الترحيل يقوم بعمل فراغات بين كل ترحيل وهذا لا أريده فأريد دائما ان تكون البيانات المرحلة من صفحة الفاتورة الى الصفحات الأخرى تكون متتالية بدون اى فراغات وأيضاً وكما هو واضح أمام حضراتكم لا اريد ان يتم ايضاً ترحيل صف إجمالى الفاتورة
بارك الله فيكم جميعاً وجزاكم الله خير الثواب
Sub Transfer()
Dim fa, mb, mo As Worksheet
Dim lr1, lr2 As Integer
Set fa = Sheets("الفاتورة")
Set mb = Sheets("مبيعات")
Set mo = Sheets("مشتريات")
If [I4].Value = "" Or [C3].Value = "" Or [d2].Value = "" Or [H3].Value = "" Then
MsgBox "ÈíÇäÇÊ ÇáÝÇÊæÑÉ ÛíÑ ãßÊãáÉ", vbCritical, "ÊäÈíÜÜå":
Else
Dim x As String
x = [d2].Value
fa.Activate
lr1 = fa.Range("B" & Rows.Count).End(xlUp).Row
Range("B6:L" & lr1).Copy
Sheets(x).Activate
lr2 = Range("B" & Rows.Count).End(xlUp).Row
Range("B" & lr2 + 1).Select
Selection.PasteSpecial xlPasteValues
fa.Activate
[d2].Select
Range("C6:E20").ClearContents
Range("G6:G20").ClearContents
Range("I6:I20").ClearContents
Range("D2:G2").ClearContents
Range("H3:J3").ClearContents
[C3].ClearContents
MsgBox ("تم ترحيل البيانات بنجاح ")
End If
End Sub
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب