حسونة حسين

وعليكم السلام ورحمة الله وبركاته طريقه Mr.Columns("i:xfb").Hidden = True وايضا range("i:xfb").EntireColumn.Hidden = true

وعليكم السلام ورحمة الله وبركاته عدل Rng.Copy Destination:=Sht6.Range("A3:Q" & LastRow6 + 2) الى Rng.Copy Destination:=Sht6.Range("A" & LastRow6 + 2 & ":Q" & LastRow6 + 2)

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

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

بارك الله فيك استاذ ضاحي

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

افتح الفورم وضع هذا الكود بها

اخى @علي بن علي ابو عبدالرحمن الكود الذي موجود في افضل اجابه يعمل جيدا وليس به مشاكل والكود الذي المشاركه الاخيره لاخي @محمد يوسف ابو يوسف يعمل ايضا وليس به مشاكل

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

اخى @طارق نادر قم بقراءه المشاركه جيدا ستجد انني كاتب لك الخطوات جيدا اين الخطوة التي بها صعوبه حتى اشرحها لك

جرب هذا التعديل Private Sub Worksheet_Activate() Range("M5:M17").value = Range("G5:G17").value End Sub

ضع هذا الكود في حدث الشيت Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then Range("D2").Value = Range("A1").Value End Sub

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

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

حل مشكله اللغه العربيه وايضا رابط

تنسيق الخليه عندك معمول text اجعله general وسوف يعمل الكود تفضل invoice ss new (1).xlsm

اضغط كليك يمين على الملف وهو مغلق ثم اختر Properties ثم اضغط على unblock كما بالصورة

اضغط على الشريط الاحمر Security risk واعمل trust

وعليكم السلام ورحمه الله وبركاته 1- قم بتحميل برنامج Selenium من الرابط او من ميديا فاير ثم قم بتسطيبه كأي برنامج 2- تفتح الكروم علي هذه الصفحه chrome://settings/help لنعرف ما هو اصدار الكروم ولنفرض اننا وجدناه كما لدي Version 109.0.5414.120 (Official Build) (64-bit) نأخذ الرقم 109.0.5414.120 ثم نبحث في الصفحه علي هذا الرقم او ما يقرب له ثم نفتح الصفحه لدي كان اقرب رقم له هو https://chromedriver.storage.googleapis.com/index.html?path=109.0.5414.25/ ثم نقوم بتحميل الملف المسمي chromedriver_win32.zip بعد التحميل تقوم بفك الضغط عنه باي برنامج ضغط ثم تقوم بنسخه للمسار التالي %LOCALAPPDATA%\SeleniumBasic\ لو المسار دا مش موجود هتلاقيه في مجلد %ProgramFiles%\SeleniumBasic\ لو المسار دا مش موجود هتلاقيه في مجلد %ProgramFiles(x86)%\SeleniumBasic\ وتوافق على الاستبدال بندخل على محرر الأكواد عن طريق Alt + F11 .. من القائمة Tools نضغط على References ونضيف المكتبة الخاصة بالأداة Selenium بنعلم علامة صح على Selenium Type Library ونضغط أوك كما بالشكل التالي ثم ضع هذا الكود في ملفك في الفورم المسماه UserForm1 Private Sub CommandButton14_Click() Dim bot As New WebDriver, Keys As New Selenium.Keys Dim i As Long, WS As Worksheet Set WS = ThisWorkbook.Sheets("البيانات") With bot .AddArgument "kiosk-printing" .Start "chrome", "https://apps.moe.gov.jo/App/Clearance/" For i = 2 To WS.Cells(Rows.Count, "C").End(xlUp).row .Get "/" .Wait 1000 .FindElementById("txtNumber").SendKeys WS.Cells(i, "C") .FindElementById("btnSearch").Click .Wait 1000 .ExecuteScript "window.print()" Next i End With End Sub

تفضل اخى Hassona229@gmail.com

السلام عليكم ورحمه الله وبركاته وبها نبدأ 1- مرحبا بك في المتتدي وفي المشاركه الاولي لك في المنتدي 2- هذا الموضوع يخالف قواعد المنتدي 3- ان كان باسوورد فتح الملف من الصعب معرفته

ارفعه على ميديا فاير وضع هنا الرابط http://mediafire.com

الشكر لله والحمد لله الذي بنعمته تتم الصالحات

السلام عليكم ورحمة الله وبركاته وبها نبدا ارفق ملف اخى

وجزاكم مثله اخى الحمد لله الذي بنعمته تتم الصالحات