mohamadhaje قام بنشر يناير 28 مشاركة قام بنشر يناير 28 السلام عليكم ورحمة الله وبركاته ارجو المساعدة في تصحيح الخطأ في عملية الترحيل ترحيل1.xlsm رابط هذا التعليق شارك More sharing options...
mohamadhaje قام بنشر يناير 28 الكاتب مشاركة قام بنشر يناير 28 (معدل) Sub Button1_Click() On Error Resume Next If Range("a13") = "" Or Range("b13") = "" Or Range("c13") = "" Then MsgBox "ÈÑÌÇÁ ÇßãÇá ÇáÈíÇäÇÊ", vbDefaultButton1, "ßæÏ ÇáÊÑÍíá " Else azsh = ãÈíÚÇÊ.Range("c50000").End(xlUp).Row + 1 æÇÌåÉ.Range("A3:AA13").Copy ãÈíÚÇÊ.Cells(azsh, 1).PasteSpecial Paste:=xlPasteValues MsgBox "Êã ÈäÌÇÍ", vbDefaultButton1, "ßæÏ ÇáÊÑÍíá " æÇÌåÉ.Range("A13:AA13") = "" End If End Sub مشكور هذا الكود ترحيل1.xlsm تم تعديل يناير 28 بواسطه mohamadhaje . رابط هذا التعليق شارك More sharing options...
أفضل إجابة محمد هشام. قام بنشر يناير 29 أفضل إجابة مشاركة قام بنشر يناير 29 Sub Test() Dim lr As Long, r As Range Dim ws As Worksheet: Set ws = Worksheets("واجهة") Dim Wdst As Worksheet: Set Wdst = Worksheets("مبيعات") Const Check = "A13:C13": Set r = ws.Range(Check): Rng = ws.[A3:AA13].Value lr = Wdst.Cells(Rows.Count, 3).End(xlUp).Row + 1 If Application.WorksheetFunction.CountA(r) < r.Count Then MsgBox "برجاء اكمال البيانات", vbExclamation, "كود الترحيل " Exit Sub Else Wdst.Range("A" & lr).Resize(UBound(Rng), UBound(Rng, 2)).Value2 = Rng ws.[A13:AA13] = Empty MsgBox "تم بنجاح", vbInformation, "كود الترحيل " End If End Sub ترحيل1 V1.xlsm 2 رابط هذا التعليق شارك More sharing options...
mustafa khatab قام بنشر يناير 29 مشاركة قام بنشر يناير 29 اخى محمد هشام , الرجاء المساعده فى اخر موضوه لى جزاك الله خير , لا استطيع ارسال رساله فى الخاص رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.