محي الدين ابو البشر

J43=VALUE(LEFT(I7,FIND("يومية",I7)-1)) J44=MID(I7,FIND(" و",I7)+2,FIND("ساعة",I7)-FIND(" و",I7)+2)

الموقع (2).xlsm

تفضل أخي الكريم عسى ولعل الموقع (2).xlsm

E8=VLOOKUP(D24,'بيانات المقترضين'!A2:K120,6,0) F18=VLOOKUP(D24,'بيانات المقترضين'!A2:K120,11,0) F17=VLOOKUP(D24,'بيانات المقترضين'!A2:K120,10,0) Copy of قيد السداد والفائدة_.xlsx

اتمنى أن أكون قد قهمتك صح Sub test() Application.ScreenUpdating = False Sheets("Table").Copy With Cells(7, 1).CurrentRegion: .Value = .Value: End With ActiveSheet.Copy After:=Sheets(1) Sheets(1).Name = "1 -45" Sheets(2).Name = "46 - 75" Sheets(1).Rows("56:75").Delete Shift:=xlUp Sheets(2).Rows("11:55").Delete Shift:=xlUp Path = ThisWorkbook.Path & "\" & Range("BA4") & "-" & Range("BF4") If Dir(Path, vbDirectory) = vbNullString Then MkDir (Path) ActiveWorkbook.SaveAs Path & "\" & Range("BA4") & "-" & Range("BF4") ActiveWorkbook.Close Application.ScreenUpdating = False End Sub

آسف نسيت موضوع المعادلات Sub test() Application.ScreenUpdating = False Sheets("Table").Copy ActiveSheet.Name = Range("BA4") & "-" & Range("BF4") Rows("56:75").Delete Shift:=xlUp With Cells(7, 1).CurrentRegion: .Value = .Value: End With ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Range("BA4") & "-" & Range("BF4") & " 1-45.xlsx" ActiveWorkbook.Close Sheets("Table").Copy ActiveSheet.Name = Range("BA4") & "-" & Range("BF4") Rows("11:55").Delete Shift:=xlUp With Cells(7, 1).CurrentRegion: .Value = .Value: End With ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Range("BA4") & "-" & Range("BF4") & " 46-75.xlsx" ActiveWorkbook.Close Application.ScreenUpdating = False End Sub

Sub test() Application.ScreenUpdating = False Sheets("Table").Copy ActiveSheet.Name = Range("BA4") & "-" & Range("BF4") Rows("56:75").Delete Shift:=xlUp ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Range("BA4") & "-" & Range("BF4") & " 1-45.xlsx" ActiveWorkbook.Close Sheets("Table").Copy ActiveSheet.Name = Range("BA4") & "-" & Range("BF4") Rows("11:55").Delete Shift:=xlUp ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Range("BA4") & "-" & Range("BF4") & " 46-75.xlsx" ActiveWorkbook.Close Application.ScreenUpdating = False End Sub يتم حفظ النلفين في نفس مسار الملف الأساسي

وجزاك الله الف خير

المصنف2.xlsx

وبتسمية لخلية معينة .?? لم أفهم

عليكم السلام ببساطة يمكن عملها يدويا نسخ مرتين ثمحذف الاسطر حسب الطلب على كل اليك Sub test() Application.ScreenUpdating = False Sheets("Table").Copy After:=Sheets(1) ActiveSheet.Name = "1-45" Rows("56:75").Delete Shift:=xlUp Sheets("Table").Copy After:=Sheets(2) ActiveSheet.Name = "1-46" Rows("11:55").Delete Shift:=xlUp Application.ScreenUpdating = False End Sub

Sub test() Dim a: Dim i& With Feuil1 For i = 11 To Cells(Rows.Count, 4).End(xlUp).Row If .Cells(i, 2) = -1 Then .Cells(i, 2) = "متسرب" Next End With End Sub بمعني تريد استبدال -1 ب كلمة متسرب؟

Sub test() Dim a: Dim i& With Feuil1 For i = 11 To Cells(Rows.Count, 4).End(xlUp).Row If .Cells(i, 4) = -1 Then .Cells(i, 5) = "متسرب" Next End With End Sub

ربما Sub test() Dim a Dim i& With Feuil1 a = .Range(Range("D11"), .Range("D11").End(xlDown)) For i = 1 To UBound(a) If a(i, 1) = -1 Then a(i, 1) = "متسرب" Next .Range("D11").Resize(UBound(a)) = a End With End Sub

ربما تقارير.xlsm

Sub test() With ActiveSheet .[A:A].SpecialCells(2, 1).EntireRow.EntireRow.Hidden = True .PrintOut .Cells.EntireRow.Hidden = False End With End Sub

ربما حساب الراتب OFFICENA.xlsm

ورقة عمل Microsoft Excel جديد (1).xlsm First_one.xlsm عندي مشكلة باللغة العربية استبدل بالشيت و بالكود

عزيزي الكود يعمل بشكل جيد حبذا في Sheet1 تلغي دمج الخلايا على الأقل أول يمكن تعديل السطرين .Range("Y1:Z1") = Array("head1", "head2") .Range("A:D").AdvancedFilter 2, , .Range("Y1:Z1"), True تحياتي

ربما Sub get_data() Dim i% Dim a Dim r r = 2 With [Sheet1!A1].CurrentRegion.Rows .Range("k1:L1") = Array("head1", "head2") .Range("A:D").AdvancedFilter 2, , .Range("k1:L1"), True a = .Range("K1").CurrentRegion.Value2 For i = 2 To UBound(a) .Range("K2").Value2 = a(i, 1): .Range("l2").Value2 = a(i, 2) .Range("A:D").AdvancedFilter 1, .Range("K1:l2") .Item("2:" & .Count).Columns("A:D").Copy Sheet2.Cells(r + 2, 1) r = Sheet2.Cells(Rows.Count, 1).End(xlUp).Row Next .Parent.ShowAllData .Range("k1:L1").CurrentRegion.ClearContents End With End Sub

ws.Rows("2:2").Find(Tb13.Value, , , 1) بحث في السطر الثاني عن القيمة المطابقة للقيمة الموجودة في Tb13 وتحديد رقم العمود لهذا التطابقة .Column وباعتبار رقم السطر محدد بـ r فالقيمة المفروض أن تكون في Tb13 عي القيمة الموجود في السطر R و العمود الذي حصلنا عليه أتمنى أن تكون الفكرة قد وصلت

ربما دفعات في اعمده مختلفة.xlsm

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

ربط.xlsmببساطة

عليكم السلام ربما هذا الكود يحل المشكلة Sub Separet_values() Dim Cel As Range Dim m%, st1 For Each Cel In Range("G22").Resize(Cells(Rows.Count, "H").End(xlUp).Row - 19).Cells m = Cel.Row If Cel.MergeCells Then st1 = Cel.MergeArea.Columns(1) Cells(Cel.Row, "B") = st1 Else Cells(Cel.Row, "B") = Cel End If Next Cel For Each Cel In Range("H22").Resize(Cells(Rows.Count, "H").End(xlUp).Row - 19).Cells m = Cel.Row If Cel.MergeCells Then st1 = Cel.MergeArea.Columns(1) Cells(m, "A") = st1 Else Cells(m, "A") = Cel End If Next Cel End Sub