ال سراج

On ٢‏/٢‏/٢٠١٦ at 1:14 AM, ال سراج said:

السلام عليكم

اريد ان انتقل اعمدة من شيت 3 الي شيت 5

الاعمدة المراد نقلها من شيت 3 هي (G) , (H),(K)

الي شيت 5 في الجدول من ("E:G")
مع مسح البيانات من شيت 3

لقد استعملت هذا الكود لكن لم يعطيني فائدة

Sub siraj())
Dim lr As Integer
Sheets(3).Activate
lr = [G1000].End(xlUp).Row
Sheets(3).Range("G7:K" & lr).Copy
Sheets(5).Activate
Range("E" & [E100000].End(xlUp).Row + 1).Select
Selection.PasteSpecial xlPasteValues
Range("G6").Select
Range("E7:G10000").ClearContents
MsgBox ("تم الترحيل بنجاح ")
End Sub(

فواتير.rar

السلام عليكم

اريد ان انتقل اعمدة من شيت 3 الي شيت 5

الاعمدة المراد نقلها من شيت 3 هي (G) , (H),(K)

الي شيت 5 في الجدول من ("E:G")
مع مسح البيانات من شيت 3

لقد استعملت هذا الكود لكن لم يعطيني فائدة

Sub siraj())
Dim lr As Integer
Sheets(3).Activate
lr = [G1000].End(xlUp).Row
Sheets(3).Range("G7:K" & lr).Copy
Sheets(5).Activate
Range("E" & [E100000].End(xlUp).Row + 1).Select
Selection.PasteSpecial xlPasteValues
Range("G6").Select
Range("E7:G10000").ClearContents
MsgBox ("تم الترحيل بنجاح ")
End Sub(

فواتير.rar

انا في اشد الفرحة الان" الحمدلله"

مش عارف ادعيلك بي ايه

  بس روح ياعم ربنا مايوقفش قدامك حاجه

انا اعتزر لعدم تمكني من الانتظار استاذ ابوالبراء

واشكرك جدا جدا جدا وربنا يخليك لي احبابك

تقبل شكري وارجو ان تقبلني صديق في منتداكم الرائع  

اخي ابو البراء

الورقة هي الايصال واريد ان انقل البيانات منh8,g9,g10,i10,J18  

الي جدول الاستعلامات وهو في ورقة استعلام عن فاتورة من الخلية G6:K6

  السلام عليكم

لقد حاولت في كود الاستاذ ابوالبراء لكن اظن ان هناك شي

خطاء

انا اريد ان انقل  5 خلايا من شيت 2  الي شيت 3

فواتير.rar

اخوتي ارجو المساعدة

في موضوعي

حاضر اخي ابوالبراء

)

Private Sub CommandButton1_Click()
Dim رقم_الايصال As Integer, الاسم As String, التلفون As Integer, التاريخ As Date, الاجمالي As Integer
Worksheets("الايصال").Select
رقم_الايصال = Range("H8")
الاسم = Range("G9")
التلفون = Range("G10")
التاريخ = Range("I10")
الاجمالي = Range("I18")
Worksheets("الاستعلام_عن_الفاتورة").Select
If Worksheets("الاستعلام_عن_الفاتورة").Range("G7").Offset(1, 0) <> "" Then
Worksheets("الاستعلام_عن_الفاتورة").Range("G7").End(xlDown).Select
End If
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = تاريخ_الفاتورة
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = رقم_الفاتورة
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = اسم_العميل
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = رقم_التلفون
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = المبلغ_المدفوع
Worksheets("الايصال").Select
Worksheets("الايصال").Range("H8").Select

End Sub

(

كما شرحت مسباقا لحضراتكم اني اريد ان انقل بيانات عدد من السيل في شيت 2 مختلفا اماكنها  الي جدول في شيت 3

ولكم مني جزيل الشكر

فواتير.rar

السلام عليكم

لقد عملت شوية تغيرات في الكود لكن ظهرت لي هذه المشكلة

ارجو المساعدة ولكم مني جزيل الشكر والعرفان

حضرتك انا اريد ان انقل بيانات الفاتورة (الايصال),رقم الايصال ,الاسم ,التلفون ,التاريخ ,والاجمالي

الي شيت  (استعلامات الفاتورة )enqury

شكرا استاذ رجب شاويش

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

انت علي مااظن تعرف الحل لمشكلتي

انا اريد انا انقل بيانات الفاتورة في الاستعلامات

لك مني التقدير

شكرا استاذ ياسر خليل والمنتدي منور بي اهلو

ربنا يخليك

الفواتير.rar

الاستاذه الاجلاء انا بي بساطة عاوز اعمل icon للابديت من صفحة الفاتورة الي صفحة الاستعلامات ومن صفحة الاستعلامات الي الحسابات

Private Sub CommandButton1_Click()
dim lr as string
lr=("رقم الايصال ,الاسم,التلفون ,التاريخ,الاجمالي")
worksheet("recept").select
رقم الايصال=range("H8")
الاسم=range("G9")
التلفون=range("G10")
التاريخ=range("I10")
الاجمالي=range("I18")
worksheets("enqury").select
worksheets("enqury").range("G7").offset(1,0)<>"" then
worksheets("enqury").range("G7").end(xldown).select
End if
activecell.offset(1,0).select
activecell.value=("تاريخ الفاتورة")
activecell.offset(1,0).select
activecell.value=("رقم الفاتورة")
activecell.offset(1,0).select
activecell.value=("اسم العميل")
activecell.offset(1,0).select
activecell.value=("رقم التلفون")
activecell.offset(1,0).select
activecell.value=("المبلغ المدفوع")
worksheets("recept").select
worksheets("recept").reange("H8").select

End sub