Ali Mohamed Ali

بعد اذن الأستاذ أحمد ولإثراء الموضوع -هذا حل اخر بالأكواد كود استخراج اسم ولي الامر-2.xls

وعليكم السلام من الأفضل ارسال الملف لوضع الكود به ولكن هذا هو كود الإخفاء للخلايا الفارغة: Sub HideBlan() For i = 4 To 103 If Cells(i, 6) = 0 Then Cells(i, 6).EntireRow.Hidden = True End If Next Dim c As Range For Each c In Range("g104:s104").Cells If c.Value = "0" Then c.EntireColumn.Hidden = True End If Next c End Sub وهذا هو كود الإظهار: Sub showBlank() For i = 4 To 103 If Cells(i, 6) = 0 Then Cells(i, 6).EntireRow.Hidden = False End If Next Dim c As Range For Each c In Range("g104:s104").Cells If c.Value = "0" Then c.EntireColumn.Hidden = False End If Next c End Sub جزاكم الله كل خير

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

اين الملف

تفضل سجل الدوام اليومي-1.xlsx

تفضل Down.xlsm

اهلا وسهلا بك بين اخوانك-تفضل time.xlsx

تفضل غياب MD-1.xlsm

تفضل غياب.xlsm

تفضل time.xlsx

لو ممكن رفع الملف مرة اخرى فبه مشكلة عند فك الضغط

تفضل ....

تفضل هذا تطبيق لمعادلة استاذنا الكبير سليم -جعله الله دائما زخرا لنا Book1.xlsx تفضل هذا تطبيق لمعادلة استاذنا الكبير سليم -جعله الله دائما زخرا لنا

من فضلك قم برفع الملف وحاول حذف المشاركة الاخرى فهى مكررة

تفضل هذا حل اخر بتعديل طفيف فى المعادلة htta-2.xlsx

تفضل برنامج شئون عاملين 2020.xlsm

ما هو الباسورد واسم المستخدم

تفضل فصل كلمات من سلسلة نصية بدلالة رمز-1.xlsm

من فضلك ارسل الملف نفسه وليس صورة منه

thank you,it's very nice

تفضل 121212-1.xlsm

وهذا حل بالمعادلات htta-1.xlsx

تفضل Book1.rar

تفضل Translation Names .rar

تفضل Sub mergeFiles() 'Merges all files in a folder to a main file. 'Define variables: Dim numberOfFilesChosen, i As Integer Dim tempFileDialog As FileDialog Dim mainWorkbook, sourceWorkbook As Workbook Dim tempWorkSheet As Worksheet Set mainWorkbook = Application.ActiveWorkbook Set tempFileDialog = Application.FileDialog(msoFileDialogFilePicker) 'Allow the user to select multiple workbooks tempFileDialog.AllowMultiSelect = True numberOfFilesChosen = tempFileDialog.Show 'Loop through all selected workbooks For i = 1 To tempFileDialog.SelectedItems.Count 'Open each workbook Workbooks.Open tempFileDialog.SelectedItems(i) Set sourceWorkbook = ActiveWorkbook 'Copy each worksheet to the end of the main workbook For Each tempWorkSheet In sourceWorkbook.Worksheets tempWorkSheet.Copy after:=mainWorkbook.Sheets(mainWorkbook.Worksheets.Count) Next tempWorkSheet 'Close the source workbook sourceWorkbook.Close Next i End Sub