ضياء 2

الف شكر جزاكم الله خير الجزاء و وفقكم

شكرا لكم استاذنا الغالي هو المطلوب

السلام عليكم الاخوة الافاضل مساعد في عمل كود المطلوب عند كتابة في TextBox1 اسم زيت ماتور او زيت باكم او زيت تروس يظهر لي رسالة ضع كمية العبوة في TextBox2 ورقة.xlsm

انا مش عارف اوصلك الفكر انا اتعبتك معي استاذنا الفاضل شكرا على سعة صدرك

ايوه هو ده"الحدف الخلايا من C4:A4 و C7:A7 "اعمدة ABC بنزل فيها بيانات العميل او المورد كنت عاوز ترحيل بيانات العميل في عمود J وبيانات المورد يرحل في عمود K بشرط بشرط النص الموجود في عمود A مقابل و لو عمود ( A ) فارغ لا يرحل

استاذنا الفاضل انا حذفت بيانات المورد اعمدة ABC يتم الترحيل في عمود K

السلام عليكم استادتنا الكرام فضلا وجدت كود للاستاذ ابراهيم الحداد كنت عاوز جلب بيانات من عمود ثاني F بجوار E يرحل الى عمود I بجوار عمودH Sub TrData() Dim ws As Worksheet, Detl As Worksheet Dim LR As Long, p As Long, i As Long, C As Range Set ws = Sheets("قاعدة بيانات") Set Detl = Sheets("بيان") LR = Detl.Range("H" & Rows.Count).End(3).Row For Each C In ws.Range("E2:E" & ws.Range("E" & Rows.Count).End(3).Row) i = WorksheetFunction.CountIf(Detl.Range("H2:H" & LR), C) If i = 0 Then Detl.Range("H" & LR + 1).Offset(p).Resize(12) = C p = p + 12 End If Next End Sub

شكرا اخي على الرد الاستاذ حسين مامون عندما قمت بتطبيق الكود ظهرت مشكلة عند حذف بيانات المورد في اعمدة ABC يتم الترحيل في عمود K وعند تغيير الاسماء الموجودة في الاعمدة ABC تختلف البيانات المرحلة معادلة.xlsm

السلام عليكم الاساتذة الافاضل انا اريد تنفيذ الاتي ( المطلوب ترحيل عميل في عمود ( G ) بشرط كلمة صندوق في عمود ( B ) بشرط كلمة مكرر ، موجود ، باقي في عمود ( A ) لو عمود ( A ) فارغ لا يرحل - وهكذا ترحيل كلمة مورد نفس الشروط في عمود ( H ) معادلة.xlsx