خزاني

لـــــوغو لعمل شاشة افتتاحية ورقة اكسل او برنامج khezzaniLogo.rar

يمكن جعل هذه الحركة تظهر دون أي تدخل منك مثال:....... Private Sub Worksheet_Activate() MaMacro End Sub Private Sub Worksheet_Change(ByVal Target As Range) MaMacro End Sub الى اخيره ...

السلام عليكم ورحمة الله تنبيه انتظر قليلا مع حركة جميلة khezzani MsgAttente.rar

مروركِم دائما يشرفني باركـَ الله فيكـِم وجزاكـِم خيرا وتقبل الله منا ومنكـِم الصالحات مع تحياتي واحترامي

السلام عليكم ورحمة الله الادخال السريع مع قوائم منسدلة 12.bmp khezzani.rar

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

-( خيركم من تعلم العلم وعلمه )- المنتدى تعليمي لا تجاري فالعلم لا يقتصر على التعلم فقط و لكن ، من يعرف شيئا يعلمه لغيره و غيره يعلمه لغيره و هكذا و بهذا نكن جميعا متعاونين على الخير .

شرح رائع ومفيد للجميع جزاك الله كل الخير

بارك الله فيك

بارك الله فيك سلمت يداك

عمل جميل ورائع بارك لله بجهودك وجزاك الله خيراً

مشكوراخي الحبيب بارك الله فيك وجعله في ميزان حسناتك

السلام عليكم تفضل اخي الكريم khez.rar --------------------------- khez.rar

السلام عليكم بارك الله فيك وشكرا جزيلا

تحية لك من القلب أخي الحبيب : شوقي ربيع جزاك الله خيرا

غير مفهوم الطلب اخي

جزاك الله خيرا فعلا موضوع رائع جعله الله في ميزان حسناتك

السلام عليكم ورحمة الله وبركاته جزيت خيرا و سدد الله خطاك ووفقك الله ورعاك أخي

حسب ما فهمت لك ----------- كود نسخ / لصق من ورقة واحدة إلى أخرى بشروطة Private Sub CommandButton1_Click() Sheets("khezzani").Activate Dim i As Integer i = 10 Dim j As Integer j = 10 Do While Cells(i, 10) <> "" If Range("J" & i) = "khezzani1" Then Range("B" & i & ":I" & i).Copy Sheets("khezzani1").Range("B" & j & ":I" & j) j = j + 1 End If i = i + 1 Loop End Sub

تثبيت الورقة khezzani-2015.rar Worksheets("ورقة").ScrollArea = "A1:A1"

جرب هذا الملف المرفق Yasser.rar

بارك الله فيك أخي شوقي

. وضع صورة داخل خلية حسب رقم الصورة khezzani-photos.rar

رسائل التنبيه في الاكسل khezzani Alarme.rar

Sub Archiver() Dim DateEtHeure, Chemin, NomArchive, rep, Fichier, n& DateEtHeure = Format(Now(), "yyyymmdd") & Format(Time, "hhmmss") DateEtHeure = DateEtHeure & " le " & Format(Now(), "ddd dd-mmm-yyyy") DateEtHeure = DateEtHeure & " à " & Format(Time, "hh-mm-ss") rep = MsgBox("هل تريد نسخة من الملف", _ vbQuestion + vbDefaultButton1 + vbYesNo) If rep = vbYes Then Chemin = ThisWorkbook.Path If Right(Chemin, 1) <> "\" Then Chemin = Chemin & "\" NomArchive = "Archive " & DateEtHeure & ".xlsm" ThisWorkbook.SaveCopyAs Chemin & NomArchive ChDir Chemin Fichier = Dir("ارشيف " & Format(Now(), "yyyymmdd") & "*.xlsm") Do Until Len(Fichier) = 0 Or n = 10 If LCase(Fichier) <> LCase(NomArchive) Then Kill Chemin & Fichier Fichier = Dir("Archive " & Format(Now(), "yyyymmdd") & "*.xlsm") n = n + 1 Loop End If End Sub