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 .. ولكن لا اعلم لها كتبا فهل من كتب اتعلم منها ... ؟