moh250

لك كل الشكر اخى ياسر

شكرا يا استاذ ياسر على المتابعة اولا : انا اخترت الرقم 1000 عل اساس مكان حدود الشيب اليمين و الرقم 700 عل اساس مكان حدود الشيب الشمال ثانيا : لو ضغط على الشكل مرة اخرى حيذهب الي الشيت رقم 2 وحينزل صف و يكتب نفس البيانات محتوى الشيب فى العمود الاول ( MOHAMED ) و العمود الثانى يكتب مكان وقفة يمين فيكتب الرقم 1000 و العمود لثالث مكان وقفة شمال 700 ثالثا : لو ضغط على الشكل ALY حيذهب الي الشيت رقم 2 وحينزل صف و يكتب محتوى الشيب فى العمود الاول ( ALY ) و العمود الثانى يكتب مكان وقفة يمين فيكتب الرقم 1700 و العمود لثالث مكان وقفة شمال 1400

السلام عليكم اليكم شيت مرفق بية عدد 2 شيب , انا اريد عندما احدد الشيب يذهب الي الشيت رقم 2 و يكتب محتوى الشيب فى العمود الاول ( MOHAMED ) و العمود الثانى يكتب مكان وقفة يمين فيكتب الرقم 1000 و العمود لثالث مكان وقفة شمال 700 WORK.rar

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

جزاك الله عنا خير الجزاء

-- ارجو من سيادتكم افادكم الله ان افهم : ماهى علامتى السالب التى تسبق بعض المعادلات مثل معادلة : =SUMPRODUCT(--{TRUE,TRUE,FALSE}*{2,2,2}) وجزاكم الله كل الخيير

السلام عليكم و رحمة الله اريد قراءة اسماء المجلدات الموجودة فى نفس مكان activesheet.path

الخوة الاعضاء برجاء الرد

اخى العزيز عبد الله اليك ملف مرفق جديد انا عندى 2 ورقة عمل data , data2 اريد انا افتح ورقة data2 من خلال ورقة الdata و يبحث عن القيمة MSKU8769830 الموجودة بورقة data و يبحث بداخل ورقة data2 و احضار load data ووضعها فى LOAD PORT بجانب نفس القيمة MSKU8769830 ثم يقفل ورقة data2 بعد البحث New folder.rar New folder.rar

السلام عليكم و رحمة الله اليكم ملف مرفق به صفحتان الصفحة روتيتد بجيب البينات من صفحة التوبكس عن طريق زر GET DATA و اريد ان احضر داتا LOAD PORT من ورقة اكسيل اخرى من عمود معين و يعمل بحث و يجيب الداتا بس انا حاولت بس فشلت اليكم الكود الداخلى Sub GET_DATA() Dim FindString As Range Dim rng As Range For Each FindString In Range("A:A") If Trim(FindString) <> "" Then With Sheets("TOPX").Range("A:A") Set rng = .Find(What:=FindString, _ After:=.Cells(.Cells.Count), _ LookIn:=xlValues, _ LookAt:=xlWhole, _ SearchOrder:=xlByRows, _ SearchDirection:=xlNext, _ MatchCase:=False) If Not rng Is Nothing Then FindString.Offset(0, 1) = rng.Offset(0, 1) FindString.Offset(0, 2) = rng.Offset(0, 2) FindString.Offset(0, 3) = rng.Offset(0, 3) FindString.Offset(0, 4) = rng.Offset(0, 4) FindString.Offset(0, 5) = rng.Offset(0, 5) FindString.Offset(0, 6) = rng.Offset(0, 6) End If End With End If Next NewFN = Application.GetOpenFilename(FileFilter:="Excel Files (*.xls), *.xls", Title:="Please select a file") If NewFN = False Then ' They pressed Cancel MsgBox "Stopping because you did not select a file" Exit Sub Else Workbooks.Open Filename:=NewFN Workbooks("ROTATED.xlsm").Activate Sheets("Rotated container").Select For Each FindString In Range("A:A") If Trim(FindString) <> "" Then Workbooks(NewFN).Activate Sheet1.Select With Sheet1.Range("A:A") Set rng = .Find(What:=FindString, _ After:=.Cells(.Cells.Count), _ LookIn:=xlValues, _ LookAt:=xlWhole, _ SearchOrder:=xlByRows, _ SearchDirection:=xlNext, _ MatchCase:=False) If Not rng Is Nothing Then FindString.Offset(0, 8) = rng.Offset(0, 8) End If End With End If Next End If End Sub New folder.rar

هذا هو المطلوب أخى أعزك الله ... ولكن أخى هل يمكن ان يكون هذا الملف كملف SHARE ويتم الترحيل اليه من اكثر من ملف ؟؟؟؟؟؟؟؟ افادكم الله

ارجو من سيادتكم التكرم بعمل زر ترحيل البيانات من ملف (vessel) ال ملف (actual) off.rar

اشكرك يا أخى على هذه النصيحة الغالية ... وارجو من الله العون على هذا ...

أخى اشكرك على إهتمامك .. وعلى هذا الكود الرائع . جزاك الله خيرا. وارجو الا تضيقوا بى ذرعا لكثرة اسئلتى .. حيث أننى أود ان أتعلم vba .. ولكن لا اعلم لها كتبا فهل من كتب اتعلم منها ... ؟ أخى اشكرك على إهتمامك .. وعلى هذا الكود الرائع . جزاك الله خيرا. وارجو الا تضيقوا بى ذرعا لكثرة اسئلتى .. حيث أننى أود ان أتعلم vba .. ولكن لا اعلم لها كتبا فهل من كتب اتعلم منها ... ؟

أخى اشكرك على إهتمامك .. وعلى هذا الكود الرائع . جزاك الله خيرا. وارجو الا تضيقوا بى ذرعا لكثرة اسئلتى .. حيث أننى أود ان أتعلم vba .. ولكن لا اعلم لها كتبا فهل من كتب اتعلم منها ... ؟

أخى أشكر لك شرحك الرائع أرجو ان استفاد من خبرتكم .. أما بالنسبة للمطلوب فهو كالاتى : - 1 - عندما يكون فى العمود b مبلغ يتم ترحيل الصف كاملا الى شييت 2 وشكرا لك مرة اخرى ..

أخى أبو أحمد .. جزاك الله عنى خير الجزاء وافادكم الله ... لكن أخى اود أن افهم هذه الاكواد وما هودورها فى عملية الترحيل . LR = ws.Range("a" & Rows.Count).End(xlUp).Row LR2 = ws2.Range("a" & Rows.Count).End(xlUp).Row ws.Range("a2:b" & LR).Copy ws2.Range("a" & LR2 + 1) وجزاك الله عنى خير الجزاء... وبعد ذلك عذرا اود ان أقوم بترحيل بيانات كما فى المرفق ولكنها مشروطة بوجود يبانات بالعمود الذى يليها أعلم اخى ان اتثاقل عليك ولكنى .. اود ان أفهم واكون مثلكم فى VBA ... أخوكم MOH250 ترحيل مشروط.rar

السلام عليكم ورحمة الله وبركاته .. هل ان أسال سيادتكم عن شرح كيف أقوم بترحيل ناق او صف عن طريق الكود .... حيث اننى مبتدأفى vba واريد ان افهم هذا الموضوع ... وجزاكم الله عنا كل الخير Posting.rar

أخى إعذرنى عدم قدرتى على توصيل ما أريد .. ولكنى سوف أرفق لسيادتكم ما اريد بالشرح وارجو ان يكون الشرح قد وفى ما اريد .. أخى أرجو الا تتضايق من كثرة أسئلتى producTNO.rar

أخى أبو أحمد - جزاك الله عنى خير الجزاء ... الحل كان قيا جدا جدا ولكنى اردت أن يتم الترحيل للكميات او المبالغ فقط فى اماكنها فى sheet 2 ولبيس للصف كامل فى sheet 1 - مثل داله vlookup عندما تعمل على ترحيل فقط القيمة المطلوبة فقط .. لذا اردت ان يتم عملها بالكود وجزاكم الله كل الغير وغفر لى الازعاج المسبب لجانبكم

يأخى سيتم العمل كالاتى : - 1- سيتم ادخال المنتجات فى sheet 2 ولكن بدون كمية او مبالغ ( يدويا ) 2- سيتم إدخال المبالغ والكميات فى sheet 1 ( يدويا ) 3 - أريد ترحيل البينات المكتوبة ( الكميات - المبالغ ) الى sheet 2 ( بالكود ) فى الخانات المخصصة لها كما هو موضح فى sheet2 حسب المنتج الخاص بها وجزاكم الله الخير .. وأأسف على إزعاجكم ارجو يا إخوانى أن تجيبونىجزاكم الله حيرا ارجو يا إخوانى أن تجيبونىجزاكم الله حيرا

يأخى سيتم العمل كالاتى : - 1- سيتم ادخال المنتجات فى sheet 2 ولكن بدون كمية او مبالغ ( يدويا ) 2- سيتم إدخال المبالغ والكميات فى sheet 1 ( يدويا ) 3 - أريد ترحيل البينات المكتوبة ( الكميات - المبالغ ) الى sheet 2 ( بالكود ) فى الخانات المخصصة لها كما هو موضح فى sheet2 حسب المنتج الخاص بها وجزاكم الله الخير .. وأأسف على إزعاجكم ارجو يا إخوانى أن تجيبونىجزاكم الله حيرا

يأخى سيتم العمل كالاتى : - 1- سيتم ادخال المنتجات فى sheet 2 ولكن بدون كمية او مبالغ ( يدويا ) 2- سيتم إدخال المبالغ والكميات فى sheet 1 ( يدويا ) 3 - أريد ترحيل البينات المكتوبة ( الكميات - المبالغ ) الى sheet 2 ( بالكود ) فى الخانات المخصصة لها كما هو موضح فى sheet2 حسب المنتج الخاص بها وجزاكم الله الخير .. وأأسف على إزعاجكم

نعم يا أخى ... المنتج موجود فى sheet2 .. اى ان اكتب اسمه فى sheet1 لكى يتم نقل الكمية او المبلغ او كليهما معا فى shee2