محمد عبد الناصر

upppppp

اتفضل الملف مرفق اهو فيميزان حسناتكم يارب md.rar

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

السلام عليكم الكود ده كان شغال معايا بس بدل كلمة tmam كنت بكتب ارقام عايز اكتب لو يساوي تم الرد ينقل الاصفف Sub Move() Dim LR As Long, I As Long, X As Long LR = Sheets("Sheet1").Cells(Rows.Count, "G").End(xlUp).Row X = 5 Application.ScreenUpdating = False For I = 6 To LR If Cells(I, "G").Value = "tmam" Then Rows(I).Copy Sheets("Sheet2").Range("a" & X): X = X + 1 Next I Application.CutCopyMode = False Application.ScreenUpdating = True End Sub انا دايخ فيه من امبارح مش عارف فين المشكلة

uuppp

حضرتك انا هكتب صفوف كتييير عايزه يطبقها على كله وعايزه يشيل اللي مكتوب عليه تم الرد كت وينقله في الشيت 2جربت المرفق وزي م حضرتك قولتلي عملت الدنيا بتبوظ خالص

upppppppppp

up

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

السلام عليكم ورحمة الله وبركاتة على احلى منتدى في الملف المرفق عايز امر لو مكتوب (تم الرد) ياخد الصف كامل قص ويوديه للشيت 2 md.rar

up up up up up up up

upppppppp

uuuuppppppppppp

يا جماعه up

up

السلام عليكم اخي الكريم انا عايز كود ياخد الصور من الاسكانر يحفظها في فولدر في اي مكان يحفظ الصور من غير ملف اكسيل يحفظ صور بسسسس في فولدر خاص بالاسم اللي مكتوب في الخلية A1 لو تقدر تساعدني يبقى كتر خيرك عندي مشكله فشغلي بسبب الموضوع ده

السلام عليكم اخي الكريم انا عايز كود ياخد الصور من الاسكانر يحفظها في فولدر في اي مكان يحفظ الصور من غير ملف اكسيل يحفظ صور بسسسس في فولدر خاص بالاسم اللي مكتوب في الخلية A1 لو تقدر تساعدني يبقى كتر خيرك عندي مشكله فشغلي بسبب الموضوع ده

السلام عليكم اسف للمره التانية برفع الموضوع والله عندي مشاكل فشغلي بسببها عايز بس كود يسحب سكان ويحفظ ف اي مكان بالجهاز ويكون اسم الفولدر اللي مكتوب في الخلية A1 والله في مشاكل في شغلي بسببها اسف مره تانية ياريت حد يساااااعدني ضرورررررررررري

up

طيب حضرتك الكود ده بياخد سكان بس بيحفظ الصور في ملف الاكسيل نفسه انا عايزه يحفظ الصور في فولجر مش عارف اعملها Sub SCAN() ' ' Scan Document Button ' Range("A1").Select ActiveCell.FormulaR1C1 = 1 Const FromScannerorCamera As Long = 1764 Application.CommandBars.FindControl(, FromScannerorCamera).Execute ' Selection.ShapeRange.LockAspectRatio = msoTrue Selection.ShapeRange.Width = 912# Selection.ShapeRange.Height = 1092# ' End Sub

ياجماعة الخير عندي شغر يوم الحد وهتنفخ لو مخلصتش

up

up

عايز اعمل امر سكان ياخد الورق اللي في جهاز الاسكانر ويحفظ الصور اللي اخدها سكان في فولدر في اي مكان في الجهاز وفنفس الوقت يعمل ارتباط تشعبي (هايبر لينك ) يفتح لي الفولدر ده بالاسم اللي يكون موجود في الخلية A6 محتاجها ضروررررررررري جداا لاني بواجه مشاكل كتييير فشغلي والحمد لله اتخصم عليا من مرتبي بسبب الموضوع ده لان بيكون عندي صور كتييييربتتلغبط غصب عني ياريت حد يساعدني ويعملها في الملف المرفق ده 12.rar

انا عامل جدول في شرائح 1 عايز الخليه الاولى تساوي نفس الخلية اللي في شرائح 2 عرض تقديمي1.rar