عبد الفتاح كيرة

http://www.officena.net/ib/index.php?app=core&module=attach&section=attach&attach_id=37677

أخى قصى أولا معذرة للتأخر عليك فالوقت لم يعد متوفرا لدى كما كان ولو كان كذلك لاختصرت لك الكود فى أسطر قليلة بالنسبة لطلبك فقط غير الرقم 1 فى هذا السطر إلى 5 krow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row ليصبح krow = ActiveSheet.Cells(Rows.Count, 5).End(xlUp).Offset(1, 0).Row مع الشكر

أهلا أستاذ عماد بارك الله فيك وشكرا لك

أشكرك يا أخى على إعادة فتح الموضوع بارك الله فيك

سيكون الكود كالتالى Private Sub CommandButton1_Click() Dim krow As Long 'Dim ws As Worksheet 'Set ws = Worksheets("ß2") krow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row With ActiveSheet .Cells(krow, 5).Value = Me.TextBox1.Value .Cells(krow, 7).Value = Me.TextBox2.Value .Cells(krow, 8).Value = Me.TextBox3.Value .Cells(krow, 9).Value = Me.TextBox4.Value .Cells(krow, 10).Value = Me.TextBox5.Value .Cells(krow, 11).Value = Me.TextBox6.Value .Cells(krow, 12).Value = Me.TextBox7.Value .Cells(krow, 13).Value = Me.TextBox8.Value .Cells(krow, 14).Value = Me.TextBox9.Value .Cells(krow, 15).Value = Me.TextBox10.Value .Cells(krow, 19).Value = Me.TextBox11.Value .Cells(krow, 20).Value = Me.TextBox12.Value .Cells(krow, 21).Value = Me.TextBox13.Value .Cells(krow, 22).Value = Me.TextBox14.Value .Cells(krow, 23).Value = Me.TextBox15.Value .Cells(krow, 24).Value = Me.TextBox16.Value .Cells(krow, 25).Value = Me.TextBox17.Value .Cells(krow, 26).Value = Me.TextBox18.Value .Cells(krow, 27).Value = Me.TextBox19.Value 'ws.Cells(krow, 25).Value = Me.TextBox7.Value 'ws.Cells(krow, 26).Value = Me.TextBox7.Value 'ws.Cells(krow, 27).Value = Me.TextBox7.Value Me.TextBox1.Value = "" Me.TextBox2.Value = "" Me.TextBox3.Value = "" Me.TextBox4.Value = "" Me.TextBox5.Value = "" Me.TextBox6.Value = "" Me.TextBox7.Value = "" Me.TextBox8.Value = "" Me.TextBox9.Value = "" Me.TextBox10.Value = "" Me.TextBox11.Value = "" Me.TextBox12.Value = "" Me.TextBox13.Value = "" Me.TextBox14.Value = "" Me.TextBox15.Value = "" Me.TextBox16.Value = "" Me.TextBox17.Value = "" Me.TextBox18.Value = "" Me.TextBox19.Value = "" 'Me.TextBox20.Value = "" 'Me.TextBox21.Value = "" 'Me.TextBox22.Value = "" Me.TextBox1.SetFocus End With End Sub المرفقات ارساليات ومدفوعات 2011- kemas.rar

أستاذ سفير يمكنك بسهولة عمل 3 خلايا بحث وتترك ال 3 جداول كما هى

يمكنك مؤقتا أن تدعو لهم

تفضل ex2-kemas.rar

عليكم السلام أنت لن تنسخ الفورم أنت تنسخ الزر أو الشكل التلقائى المرتبط بالماكرو الذى يستدعى الفورم اتبع ما يلى : انقر بالزر الأيمن على المستطيل الأحمر الذى يستدعى " ماكرو 1 " اذهب لشيت " شباط " انقر بأيمن الماوس و اختر لصق الآن جرب النقر بالأيسر على الشكل الذى لصقته سيتم استدعاء الفورم

أخى سعد بارك الله فيك وشكرا لكلامك الطيب أشكرك أستاذ أحمد لعل الارتياح سببه الميكروفون الجديد يا للا حصلونا على تويتر وجدت الأستاذ الأخ عادل حنفى هناك و قد تابعته شكرا لكم

السلام عليكم أشكركم جميعا على كلامكم الطيب جزاكم الله خيرا

أخى سعد عابد بارك الله فيك إنها فعلا الفرق جزاك الله خيرا

=IF(AND(C9<>"";D9<>"");d9-c9;"")

إلى الأخ مصطفى كمال وكل الذين يرفعون الصور على هذا الموقع أحب أنبه إلى أنه لا يمكن رؤية الصور التى ترفعونها إلا للمسجلين فى الموقع ويظهر عوضا عنها صور الضفدع مع الشكر

أخى العزيز أرفق مثالا للمطلوب الثانى عسى أن نجد الوقت لمساعدتك بإذن الله

تم التعديل الكود يعمل كما طلبت لكن الملف به مشكلة خلايا مخفية و روابط الكود بعد التعديل Sub Macro3() ' ' Macro3 Macro ' Dim Lr As Long Lr = Sheets("Sheet2").Range("b1000").End(xlUp).Row + 1 ' Range("N3").Select Dim rng As Range, myrng As Range Sheets("Sheet1").Select Set myrng = Sheets("Sheet1").Range("l2:l15") For Each rng In myrng If rng = "Ok" Then rng.EntireRow.Copy Sheets("Sheet2").Range("a" & Lr) rng.EntireRow.Delete Application.CutCopyMode = False Lr = Sheets(2).Range("b1000").End(xlUp).Row + 1 End If Next rng End Sub الملف بعد التعديل نقل سجل2 معينن- kemas.rar

تفضل لعله المطلوب نقل سجل معينن- kemas.rar

تفضل شرطkemas.rar

و جزاك خيرا أخى بارك الله فيك

=IF(A1<0;FALSE;TRUE)

=MID(A1;2;LEN(A1)-1)

أخى جرب المرفق غير رقم الموظف باستخدام السهم فى الخلية Book3-kemas.rar

الأخت ناديا ربما نفعك هذا و هذا و هذا