Ali Mohamed Ali

تفضل هناك كود من أعمل الأستاذ ياسر خليل والمعادلة من أعمال الأستاذ سليم حاصبيا , لهما منا كل الحب والإحترام Option Explicit Sub UniqueSortedList() Dim Arr, X As Object Application.ScreenUpdating = False With CreateObject("System.Collections.ArrayList") Set X = .Clone: X.Add " " Sheets("Sheet1").Activate For Each Arr In Sheets("Sheet1").Range("m2", Range("M" & Rows.Count).End(xlUp)).Value If Arr <> "" Then If IsNumeric(Arr) Then If Not .Contains(Arr) Then .Add Arr Else If Not X.Contains(Arr) Then X.Add CStr(Arr) End If End If Next .Sort: X.Sort: .addRange X: Arr = Join(.ToArray, ",") End With Sheets("Sheet1").Activate With Sheets("Sheet1").Range("e4").Validation .Delete .Add xlValidateList, 1, 1, Arr End With Application.ScreenUpdating = True End Sub على الرغم ان هذا الموضوع تم تناوله أكثر من مرة وكان عليك البحث جيداً -تفضل عمل قائمة منسدلة ديناميكية مطاطية بدون تكرار اى بند فيها قائمة منسدلة بدون تكرار وبدون فراغات بالكود والمعادلات.xlsm

وعليكم السلام-تفضل تم تعديل الفورم وضبطه Reservation HOTEL(2021).xlsm

وعليكم السلام - لم تبحث جيداً فتم تناول ونقاش هذا الموضوع كثيراً , اتبع الخطوات كما بالرابط مشكلة في اللغة العربية

أحسنت استاذ منير , ممتاز بارك الله فيك

بسيطة -طالما انك تريد طباعة الصفحة الأولى من شيت report فعليك بهذا الكود , وهذا بالفعل ما تريد الذى يخص صفحة بعينها من الملف Sub PrintAllFirstPage() Dim xWs As Worksheet Set xWs = Sheets("report") xWs.PrintOut from:=1, To:=1 End Sub

ولو قمت بالبحث لوجدت ما تريد -تفضل , طبعاً بعد اذن الأستاذ عبد الفتاح ولإثراء الموضوع -فهذا حل اخر بالمعادلات عند فصل الإسم العربى فى خلية اخرى اذا كانت الخلية المتضمنة الإسم العربى والإنجليزى هى A2 , فيمكنك استخدام معادلة المصفوفة بالخلية B2 (Ctrl+Shift+Enter) =MID(A2,MATCH(1,IF(CODE(MID(A2,ROW(INDIRECT("1:"&LEN(A2))),1))>=192,1),0),255) اما بالنسبة للإسم الإنجليزى فيكون بهذه المعادلة داخل الخلية C2 كما بالملف =TRIM(LEFT(A2,LEN(A2)-LEN(B2))) فصل الكلمات العربية عن الانجليزية Seperate Mix Text.xlsm

وعليكم السلام-تم اضافة و تجربة الكود على الطابعة ويعمل كما تريد Option Explicit Sub PrintFirstPage() Dim sh As Worksheet For Each sh In Sheets sh.PrintOut 1, 1, 1, , , , True, , False Next sh End Sub وهذا ايضاً كود اخر حتى يكون لديك عدة اختيارات وعدة بدائل Sub PrintAllFirstPage() 'Update 20140924 Dim xWs As Worksheet For Each xWs In Application.ActiveWorkbook.Worksheets xWs.PrintOut from:=1, To:=1 Next End Sub Print First Page Only.xlsm

بارك الله فيك ورحم الله والديك

بعد اذن استاذنا الكبير ابراهيم الحداد ولإثراء الموضوع - تفضل تواتي 412.xlsx

البقاء لله , رحم الله ولدك علي وأدخله فسيح جناته وأكرمه الله فى الدارين وجعل الله قبره روضة من رياض الجنة وغفر الله له, وان شاء الله يكون شفاعة لأهله يوم القيامة ورحم الله والديك وغفر الله لهم ولجميع موتى المسلمين .... وجزاك الله خيرا أستاذ محمد وأكرمك الله بمقدار صبرك على الشدائد والقضاء والقدر

بارك الله فيك استاذ عبد اللطيف وزادك الله من فضله ورحم الله والديك

بارك الله فيك ورحم الله والديك

بارك الله فيك استاذ محمد وجزاك الله كل خير- وتم وضع الملف بالمشاركة الرئيسية

أحسنت أستاذ منير -مجهود رائع الى الأمام دائما وبالنجاح والتوفيق

أحسنت استاذ محمد وعود حميداً .. وحشتنا كتير بارك الله فيك وزادك الله من فضله ورحم الله والديك

وهذا حل ايضا بالكود على الرغم انك قد رافض هذا الأمر من البداية فلهذا موضوعك اخذ أكبر من وقته وحجمه فالموضوع ابسط من هذا بكثير -تفضل وذلك من خلال وضع هذا الكود بحدث الصفحة Private Sub Worksheet_Change(ByVal Target As Range) Dim xCellColumn As Integer Dim xTimeColumn As Integer Dim xRow, xCol As Integer Dim xDPRg, xRg As Range xCellColumn = 1 xTimeColumn = 2 xRow = Target.Row xCol = Target.Column If Target.Text <> "" Then If xCol = xCellColumn Then Cells(xRow, xTimeColumn) = Now() Else On Error Resume Next Set xDPRg = Target.Dependents For Each xRg In xDPRg If xRg.Column = xCellColumn Then Cells(xRg.Row, xTimeColumn) = Now() End If Next End If End If End Sub الحضور1.xlsm

وعليكم السلام , طالما انك لا تريد الحل بالأكواد .فلا يمكن عمل هذا الا بهذه المعادلة =IF(A2<>"",IF(AND(B2<>"",CELL("address")=ADDRESS(ROW(A2),COLUMN(A2))),NOW(),IF(CELL("address")<>ADDRESS(ROW(A2),COLUMN(A2)),B2,NOW())),"") الحضور1.xlsx

أستاذ منير -لك كل الشكر , لا يمكن تثبيته أكثر من ذلك بناءاً على تعليمات وقواعد المنتدى

أحسنت استاذ محمد عمل ممتاز جعله الله فى ميزان حسناتك ورحم الله والديك ووسع الله فى رزقك وأكرمك الله فى أولادك

تفضل لك ما طلبت New Microsoft Excel Worksheet1.xlsx

تفضل لك ما طلبت بهذا الكود Private Sub UserForm_Activate() UserForm1.Label1.Caption = Sheets("1").Range("B1").Value + Sheets("2").Range("B1").Value UserForm1.Label2.Caption = Sheets("1").Range("C1").Value + Sheets("2").Range("C1").Value UserForm1.Label3.Caption = Sheets("1").Range("D1").Value + Sheets("2").Range("D1").Value End Sub أحتساب عمود من شيتين في 2اليوزرفوم.xlsm

بارك الله فيك وجزاك الله خير الثواب حقاً فكرة ممتازة جعله الله فى ميزان حسناتك

تفضل تم الحل بطريقتين بمعادلات المصفوفة (Ctrl+Shift+Enter) =IF(ROWS($L$3:L3)>COUNTA($B$3:$B$500),"",INDEX($B$3:$B$500,SMALL(IF($B$3:$B$500<>"",ROW($B$3:$B$500)-ROW($B$3)+1),ROWS($L$3:L3)))) وايضا بالكود .. حتى تختار المناسب لك من بين الحلين Sub Rectangle1_Click() On Error Resume Next Worksheets("Sheet1").Range("b3:c100").SpecialCells(xlCellTypeConstants).Copy Worksheets("Sheet1").Range("I3:I100") Application.CutCopyMode = False End Sub جلب بيانات عمود بدون فراغات.xlsm

هو ده التنسيق الصح بأن يكون اليوم من اليمين ثم الشهر ثم السنة لو محتاج غير كده ... يمكنك التعديل بنفسك على المعادلة على الشكل الذى تريده

وعليكم السلام-وذلك من خلال هذه المعادلة =YEAR(G4)-5 &"/"&MONTH(G4)&"/"&DAY(G4) تواتي 39.xlsx