مساعدة في ترحيل الوارد والمنصرف إلي الصفحة الرئيسية

[أحمد فؤاد]

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

أخواني وزملائي الأفاضل 

أرجو مساعدتكم في الملف المرفق 

أريد ترحيل الوارد أو المنصرف من ورقة الوارد والمنصرف إلي الصفحة الرئيسية

ياريت أكون وصلت طلبي 

وشكراً

أخوكم / أحمد فؤاد

Book1.rar

[أحمد فؤاد]

أخواني وزملائي أرجو منكم المساعدة

تم التوضيح أكتر داخل الملف المرفق

شكرا

Book11.rar

[احمدزمان]

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

 

وضعنا شرطا لكي يتعامل الكود مع الصفوف التي بها بيانات فقط

ويحدد قيمة او رقم الصف المراد الترحيل اليه

 

ووضعنا الكود

Sub az_trhill()
Dim FS As Worksheet, TS As Worksheet, RN1 As Range

Set FS = Sheets("ÇáÊÑÍíá")
Set TS = Sheets("ÇáÑÆíÓíÉ")
Set RN1 = FS.Range("I2:L2")
TR = FS.Range("N2")
For R = 7 To 101
If FS.Cells(R, 9) = True Then
TR = TR + 1
RN1.Copy
TS.Range("A" & TR).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
FS.Range("A" & R & ":H" & R).Copy
TS.Range("E" & TR).PasteSpecial Paste:=xlPasteValues
'FS.Range("A" & R & ":H" & R).ClearContents
End If
Next R
MsgBox "ÇáÍãÏ ááå Êã ÇáÊÑÍíá ÈäÌÇÍ  -  ÔßÑÇ áß"


End Sub

 

Book11.rar

[أحمد فؤاد]

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

أستاذي ومديري / أحمد زمان 

رائع جدا تسلم أيدك فعلا هو ده المطلوب 

عندي زيادة بسيطة ممكن بعد الترحيل مسح مكان البيانات المرحلة

شكرا جزيلا علي تعبك معي

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

تلميذك / أحمد فؤاد

[احمدزمان]

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

استبدل السطر

 

 

'FS.Range("A" & R & ":H"
& R).ClearContents
 

 

بـ

 

 

 

FS.Range("A" & R & ":H" &R).ClearContents
 

 

 

 

بمعنى آخر ازل فقط الفاصلة الموجودة في بداية السطر

[ياسر الحافظ]

استاذ احمد زمان   ( رجل المهام الصعبة ) 

استفدت من هذا الكود كثيرا 

تشكر 

وفقك الله 

ابو الحارث 

[أحمد فؤاد]

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

أستاذي الفاضل أحمد زمان

بارك الله فيك وزادك من العلم

شكرًا علي مساعدتك

[عادل ابوزيد]

الاستاذ احمد زمان

بارك الله لك وفيك كود رائع

[احمدزمان]

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

استاذ احمد زمان   ( رجل المهام الصعبة ) 

استفدت من هذا الكود كثيرا 

تشكر 

وفقك الله 

ابو الحارث 

اخي الحبيب ومحاسبنا الكبير الأخ ياسر

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

 

السلام عليكم ورحمة الله وبركاته
أستاذي الفاضل أحمد زمان
بارك الله فيك وزادك من العلم
شكرًا علي مساعدتك

اخي الفاضل فؤاد

العفو

والحمد لله انك وصلت لماتريد

[احمدزمان]

الاستاذ احمد زمان

بارك الله لك وفيك كود رائع

وبارك الله فيك

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

[أحمد فؤاد]

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

أستاذي الفاضل / أحمد زمان

أنا أسف بس طمعان أتعلم من خبرتك

لي طلب يارب يكون بسيط

هل ممكن إستدعاء ماتم ترحيله للتعديل عليه وإعادة ترحيله مرة أخري

شكرا

تلميذك / أحمد فؤاد

[محمد خلف معوض]

اشكركم كثيرا

ولكن لى طلب اتمنى من الاخوة الزملاء مساعدتى

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