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

[mohamadhaje]

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

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

[Ali Mohamed Ali]

هناك مشكلة فى تحميل هذا الملف أرجو ارساله مرة أخرى

[mohamadhaje]

السلام عليكم وجزاك الله كل خير ali mohamed aliالملف مرة اخرى

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

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

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

اجعل هذا السطر هكذا

y = Trim([c1].Value)

 

[mohamadhaje]

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

فما المشكلة

‫حوالات اكسل -.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

 

[mohamadhaje]

شكرا  وجزاك الله خيرا