بحث مخصص من جوجل فى أوفيسنا
![]()
Custom Search
|
-
Posts
271 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
1
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو ابا اسماعيل
-
السلام عليكم ورحمة الله وبركاته اخواني في الله هذا كود الى الاخ الكبير salim كود بحت رئع جدا لقد قمت بعدت محوالات لضبط الكود في الملف ولم استطيع اخواني المرجو ضبط الكود ليتوفق مع كود الليست بوكس في ملف العمال وجزاكم الله خيرا Private Sub TextBox1_Change() ListBox1.Clear ListBox1.RowSource = "" Dim k#: k = 0 Dim laste_row# Dim All_Rg As Range 'Range when we saecrh Dim Fd_Rg As Range 'Range to find Dim F_row#, A_row# 'First row by saerch,Actual row by saerch With Sheets("data") laste_row = .Cells(Rows.Count, 1).End(3).Row Set All_Rg = .Range("a5:B" & laste_row) Set Fd_Rg = All_Rg.Find(Left(TextBox1.Value, Len(TextBox1.Value)), lookat:=2) If Not Fd_Rg Is Nothing Then F_row = Fd_Rg.Row: A_row = F_row Do If Left(Fd_Rg, Len(TextBox1.Value)) = _ TextBox1.Value Then ListBox1.AddItem .Cells(F_row, 1) ListBox1.List(k, 1) = .Cells(F_row, 2) k = k + 1 End If Set Fd_Rg = All_Rg.FindNext(Fd_Rg) F_row = Fd_Rg.Row If F_row = A_row Then Exit Do Loop End If End With Me.TextBox_num = k End Sub فاتورة.xlsm
-
ياريت كود يقوم بخفاء واظهار صفوف الفارغة تلقائيا
ابا اسماعيل replied to ابا اسماعيل's topic in منتدى الاكسيل Excel
المرجو تعديل الكود لي ادراج 20 اسطر من كل نطاق معين من الخلايا .D40. يتم ادراج 20 اسطر ومن الخلايا .D80. يتم ادراج 20 اسطر اخر ومن الخلايا .D120 -
ياريت كود يقوم بخفاء واظهار صفوف الفارغة تلقائيا
ابا اسماعيل replied to ابا اسماعيل's topic in منتدى الاكسيل Excel
أخي الكريم أود أن أشكرك على جهودك الكبير جزاك الله خيرا لطلب اريد اضافة تعديل في الكود اذا كان باستطاعتك اتك اريد اضافه في الكود لي ادراج 20 اسطر من كل خانة محددة لما تساوي الخانة .D40. يتم ادراج 20 اسطر و عندما تساوي صفر يتم اخفاء صفوف وعندالخانة .D80. تساوي يتم ادراج 20 اسطر اخر وفي الخانة .D120. تساوي ادراج 20 اسطر حتى نطاق 158 Hidden_rows .xlsm -
ياريت كود يقوم بخفاء واظهار صفوف الفارغة تلقائيا
ابا اسماعيل replied to ابا اسماعيل's topic in منتدى الاكسيل Excel
أخي الكريم أود أن أشكرك على جهودك الكبير جزاك الله خيرا لطلب اريد اضافة تعديل في الكود اذا كان باستطاعتك اتك اريد اضافه في الكود لي ادراج 20 اسطر من كل خانة محددة لما تساوي الخانة .D40. يتم ادراج 20 اسطر و عندما تساوي صفر يتم اخفاء صفوف وعندالخانة .D80. تساوي يتم ادراج 20 اسطر اخر وفي الخانة .D120. تساوي ادراج 20 اسطر حتى نطاق 158 Hidden_rows .xlsm -
ياريت كود يقوم بخفاء واظهار صفوف الفارغة تلقائيا
ابا اسماعيل replied to ابا اسماعيل's topic in منتدى الاكسيل Excel
اخي سليم حاصبيا لا أعرف من أين أبدا ولا أعرف ماذا اقول وفقك الله و جزاك الله خيرا -
ياريت كود يقوم بخفاء واظهار صفوف الفارغة تلقائيا
ابا اسماعيل replied to ابا اسماعيل's topic in منتدى الاكسيل Excel
اخي سليم حاصبيا عمل رائع اتمنى لك توفيق وبارك الله فيك وجزاك الله الفردوس الاعلى ان شاء الله هدا نموذج من الملف الخاص بي لوسمحت اخي اتمنى تطبيق طريقة في هدا الملف دونا تغيير شيئ من تنسيقات الملف منذ البارحة وانا احاول تطبيق طريقة ولم استطيع جزاك الله خير Hidden.zip -
ياريت كود يقوم بخفاء واظهار صفوف الفارغة تلقائيا
ابا اسماعيل replied to ابا اسماعيل's topic in منتدى الاكسيل Excel
اخي سليم ارجو المعذرة لو سمحت اريدلما اكتب اي شئ في عمود d يتم إدراج سطر بدلا من عمود a -
ياريت كود يقوم بخفاء واظهار صفوف الفارغة تلقائيا
ابا اسماعيل replied to ابا اسماعيل's topic in منتدى الاكسيل Excel
عمل رائع اخي سليم حاصبيا اتمنى لك توفيق جزاك الله خير وأرجو أن لاأكون قد أزعجتك بطلباتي اريد ان اعرف كيف اقوم بتطبيق هذه طريقة في ملف اخر وكيف اقوم تحويل عمود القيمة لدراج سطر من عمود a الى عمود D -
ياريت كود يقوم بخفاء واظهار صفوف الفارغة تلقائيا
ابا اسماعيل replied to ابا اسماعيل's topic in منتدى الاكسيل Excel
ياريت يتم إدراج حدود الطباعة مع سطرفارغ في أخر صفحة في آخر سطر فيه بيانات -
ياريت كود يقوم بخفاء واظهار صفوف الفارغة تلقائيا
ابا اسماعيل replied to ابا اسماعيل's topic in منتدى الاكسيل Excel
-
ياريت كود يقوم بخفاء واظهار صفوف الفارغة تلقائيا ولما يتم اضافه بيانات جديدة يتم ااظهار وادراج سطرتلقائيا من نطاق 35 الى 100 اخفاء واظهار.zip
-
السلام عليكم ورحمة الله وبركاته الرجاء مساعدتي في تعديل كود اريد من الكود عند ضغط على زر الاستبدال ان يقوم باستبدال البيانات القديمة ويضع بدلا عنها البيانات الجديدة فانه يترك البيانات في شيت codes مرتابةكما هي ويقوم باستبدال البيانات القديمة بي الجديدة مع هداك تكرار في شيتcodes استبدال البيانات القديمة ويضع بدلا عنها البيانات الجديدة.zip
-
السلام عليكم ورحمة الله وبركاته المرجو المساعدة في تعديل واسألوا الله لكم الصحة والعافية
-
كيف اربط فورم البحث بفولدرات الكمبيوترC,D,E,F
ابا اسماعيل replied to عاشق الاسلام's topic in منتدى الاكسيل Excel
كود رائع الستاذ عبد الله باقشير -
السلام عليكم ورحمة الله وبركاته طلب تعديل كود المشكلة في لكود هي عندما اقوم بمسح البيانات من ورقة nvoice يتم الحدف حتى من ورقة Codes اريدلما يتم حدف ورقة nvoice لايتم حدف البيانات من ورقة Codes اتمنا من احد للأساتذة والخبراء المحترمين المساعدة واسألوا الله لكم الصحة والعافية طلب تعديل كود يقوم بعديل البيانان من صفحة الى صفحة اخر.rar
-
طلب تعديل كود يقوم بعديل البيانان من صفحة الى صفحة اخر
ابا اسماعيل replied to ابا اسماعيل's topic in منتدى الاكسيل Excel
السلام عليكم ورحمة الله وبركاته اخي احمد يوسف جزاك الله خيرا على راد اخي الكود يعمل بشكل رائع وجميل المشكلة في لكود هي عندما اقوم بمسح البيانات من ورقة nvoice يتم الحدف حتى من ورقة Codes اريدلما يتم حدف الفاتورة لايتم حدف البيانات من ورقة Codes اتمنا من احد للأساتذة والخبراء المحترمين المساعدة في هذه الطريقة لي انانى محتاجها في عمالي واسألوا الله لكم الصحة والعافية -
طلب تعديل كود يقوم بعديل البيانان من صفحة الى صفحة اخر
ابا اسماعيل replied to ابا اسماعيل's topic in منتدى الاكسيل Excel
هل طلبي غير توضح ام مستحيل هدا طلب جزاكم الله خيرا -
طلب تعديل كود يقوم بعديل البيانان من صفحة الى صفحة اخر
ابا اسماعيل replied to ابا اسماعيل's topic in منتدى الاكسيل Excel
-
لســلامَ عليكـــم ورَحِمَـــة الله وَبَركــآتــه لاخوة الافاضل محتاج مساعدة من حضراتكم في الكود يقوم بتعديل البيانات من ورقة invoice من عمود e او عمود h يقوم تلقائيا بتعديل في ورقة codes في عمود h.e المشكلة في لكود هي عند المسح البيانات من ورقة nvoice يتم المسح من ورقة codes هدالكود الأخ الكريم أبو عبد النور Private Sub Worksheet_Activate() Dim Rg As Range Application.Visible = True With Sheet1 LtRow = .[D10000].End(xlUp).Row Set Rg = Union(.Range("D10:E" & LtRow), .Range("G10:H" & LtRow)) End With Rg.Copy Sheet2.[A2] Application.CutCopyMode = False End Sub طلب تعديل كود يقوم بعديل البيانان من صفحة الى صفحة اخر.rar
-
السلام عليكم ورحمة الله وبركاته عند البحث في المنتدى واجت هد الملف يوجد فيه كود رئع الأخ الكريم أبو عبد النور وهو يلائم طلبي وعندا تعديل سعر اوصنف في صفحة invoice يتم تعديل تلقائيا في صفحة codes وهذا رائع المشكلة في لكود هو عند حدف البيانات من ورقة nvoice يتم الحدف حتى من ورقة codes وهده مشكلة في الكود المرجو المساعدة في ضبط اهد الكود جزاكم الله خيرا عند تعديل على اسم في الصفحة يتم تعديل في صفحة الأخرى_v003.1.rar