اذهب الي المحتوي
أوفيسنا

ترحبل بيانات العملاء


mohamadhaje

الردود الموصى بها

السلام عليكم ورحمة الله وبركاته جزاكم الله خبرا  على موقعكم المتميز  عندي سؤال عن ترحبل البيانات الى صفحة العميل قمت بكتابة الكود ولكن لايعمل ولاعرف ماالسبب وارفق لكم الملف مع الشكر الجزيل 

حوالات اكسل - نسخة.rar

رابط هذا التعليق
شارك

السلام عليكم ورحمة الله وبركاته اخي الكريم زيزو العجوزشكر الك ولجميع الاخوه في المنتدى تم حل المشكلة ولكن يتم الترحيل  الى صفوف اخرى ارجو المساعدة

فما المشكلة

‫حوالات اكسل -.rar 

رابط هذا التعليق
شارك

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

اليك الكود بعد التعديل

Sub الادخال()
If [c1].Value <> "" And [a4].Value <> "" Then
y = Trim([c1].Value)
Sheets(1).Activate
Range("a4 : g" & Cells(Rows.Count, "b").End(xlUp).Row).Copy
Sheets(y).Activate
ir = Sheets(y).Range("a" & Rows.Count).End(xlUp).Row
MsgBox ir
Sheets(y).Range("a" & ir + 1).Select
Selection.PasteSpecial xlPasteValues
Sheets(1).Select
Range("a4:g100").ClearContents
Range("c1").Select
Else
MsgBox ("يرجى التاكد من البيانات")
End If
Application.CutCopyMode = False
End Sub

 

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
×
×
  • اضف...

Important Information