أخي الكريم
لا تتوقع أن يشارك أحد في موضوع بهذا الشكل ..
اطرح الموضوع لنقطة واحدة فقط ، وضع لنا ما توصلت إليه وأين تعثرت ، ولا تنتظر أن يقدم إليك الحل كاملاً ..فالمنتدى تعليمي وليس خدمي

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

أخي الكريم
لم أقصد إحباطك والله وحده يعلم ذلك ..إنما أردت أن أوضح لك بعض الامور حتى تستطيع طرح أي موضوع بشكل صحيح ..
الكثير منا بل الكل ليس لديه الوقت الكافي للإطلاع على كل التفاصيل ، لأنه ليتابع المشكلة لابد من معرفة تفاصيل كثيرة وهذا قد يستغرق وقت طويل ..
لذا عندما وضعت رد أردت منك أن تحاول معرفة كيفية طرح الموضوع بشكل صحيح ليتنسى للأعضاء تقديم المساعدة
إذا كان لديك مشكلة في نقطة معينة تقوم بإنشاء ملف غير الملف الأصلي وتضع بيانات في حدود 15 سطر ، وتركز على أوراق العمل المطلوب العمل عليها فقط ، وتضع الكود الذي به المشكلة فقط ، وهكذا تستطيع أن تشرح المطلوب بسهولة.
وبالفعل لم أطلع على الملف ، لأن وقتي لا يتسع في الحقيقة .. وأعتذر عن الرد إذا كان محبطاً هو الآخر .. ولكني ما أردت إلا النصيحة ، وكان يمكنني عدم الرد من أساسه وأترك الموضوع لغيري.

ارجو المعذرة فصاحب الحاجة ارعن وانا والله كنت متأمل خيرا (ومازلت) وفاجئني جواب الاستاذ ياسر وانا اسهبت في الشرح كثيرا داخل الملف المرفق
ويعلم الله مدى الاحترام اللذي اكنه للاساتذة الكرام (من علمني حرفا كنت له عبدا)
وكم شعرت بالفخر وانا اترجم احد المواقع الاجنبية عندما رأيت اسم ياسر خليل كمصدر لمعلومة مهمة لكاتب احد المقالات التعليمية
<p dir="RTL" style="margin-top:0cm;margin-right:0cm;margin-bottom:23.4pt;
margin-left:0cm;text-align:right;line-height:26.2pt;direction:rtl;unicode-bidi:
embed">(لكن القارئ منذ فترة طويلة ياسر خليل أشار إلى نهج أكثر نظافة.([/p]
هل تذكر هذا المقال استاذ ياسر ؟؟؟؟

المهم :
انا منذ 6 اشهر فقط لم أكن اعرف شسئا في ال vba وبفضل منشورات ودروس هؤلاء الاساتذة انا اليوم استطيع كتابة كود رغم ضيق الوقت اللذي اعاني منه وهذا انجاز لا بأس فيه انشاء الله
ونزولا عند رغبتكما اخواني ساعيد شرح المطلوب رغم أنه موجود بالملف المرفق :
سأشرح اولا فكرة العمل وسأسهب بالشرح
انا اعمل في التسديد الالكتروني وبشكل يومي تأيني ارقام عن طريق مجموعات في الواتس اب وانا اقوم بالتسديد لهذه الارقام بدايةً قمت بتصميم ملف اكسل عادي مع بعض معادلات والملف مبني على اولا : (صفحات تمثل ارقامها تاريخ الشهر) وفي كل صفحة جدول سحب للارقام اللتي تأتيني كل يوم , وصفحة اقوم فيها بأرشفة الارقام كل رقم لمرة واحدة بحيث عندما يأتي الرقم مرة ثانية وفور ادخاله بجدول السحب تقوم المعادلات بجلب معلومات الرقم من صفحة الارشيف

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

حاليا فكرة العمل اللذي اقوم به كالتالي :
انشاء يوزر فورم يقوم بالجرد بناءا على عدة معطيات
1 - يتم ادخال اسم الزبون وبمجرد ادخال الاسم يتم تعبئة اسعار ثابتة وفق نسبة وقد نجحت بتنفيذ ذلك
ولكن هنا واجهتني اول مشكلة فعندما يكون الادخال اجنبي او لاسم غير موجود بالكومبو بوكس يعطيني خطأ


وهذا الخطأ




وهذا الكود المستحدم

Private Sub zbon_Change()
Dim x, y, z As Integer
Dim r, q As Boolean
r = OB2.Value
q = OB1.Value
x = Val(Me.tar)
'x التاريخ
'r q نظام التسعير
y = WorksheetFunction.CountIf(Sheets("ss").Range("ag14:ag819"), Me.zbon.Value)
If Me.zbon.Value = "" And y <> 0 Then: Exit Sub
zbonmain.Value = WorksheetFunction.Index(Range("af14:af819"), WorksheetFunction.Match(zbon.Value, Range("ag14:ag819"), 0))
zbonsy.Value = WorksheetFunction.VLookup(zbon.Value, Range("ag14:av819"), 13, 0)
zbonmtv.Value = WorksheetFunction.VLookup(zbon.Value, Range("ag14:av819"), 14, 0)
zbonfatora.Value = WorksheetFunction.VLookup(zbon.Value, Range("ag14:av819"), 15, 0)
zbonfmtn.Value = WorksheetFunction.VLookup(zbon.Value, Range("ag14:av819"), 16, 0)
End Sub

هذه اول مشكلة

بارك الله فيك أخي الحبيب
هل جربت استخدام جملة

On Error Resume Next<br />

في بداية الكود ..

ما المقال الذي تتحدث عنه ..؟ في الواقع أنا أضع تعليقات وردود وأسئلة في مئات المواقع منذ سنين وصعب أن أتذكر شيء بعينه ..
تقبل تحياتي

VBA Web Scraping with GetElementsByTagName

The VBA Tutorials Blog

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

On Error Resume Next<br />

نجحت تماما
_________________________
اذا سمحت لي بالمتابعة :
المفترض الان ان ادخل تاريخ الجرد ونظام التسعير للتوضيح لدي نظامين للتسعير النظام الاول عادي يكون سعر الزبون مثبت سلفا في صفحة الارشيف ss ويتم جلبه في جدول السحب عن طريق معادلات ونظام نسبة حيث يتم التسعير بسعر التكلفة ومن ثم يتم اضافة نسبة ربح لاحقا


ولدى ادخال الرقم اللذي نريد الجرد له يجب ان يقوم الفورم بجلب معلومات الرقم من الارشيف والسعر حسب نظام التسعير (من صفحة الارشيف اذا كان نظام التسعير عادي أو سعر التكلفة من جدول السحب نفسه في العمود H) كما في الصورة التالية


ليصبح الوضع كالتالي :


وهذا الكود المستخدم

Private Sub b1_Change()
Dim x, y, z As Integer
Dim r, q As Boolean
r = OB2.Value
q = OB1.Value
x = Val(Me.tar)
'x التاريخ
'r q نظام التسعير
y = WorksheetFunction.CountIf(Sheets("ss").Range("b:b"), Val(Me.b1.Value))
 Set kh = Application.WorksheetFunction
With Me
If .b1.Value <> "" And y <> 0 Then
.a1 = kh.VLookup(CLng(Me.b1.Value), Sheets("ss").Range("b4:o50000"), 2, 0)
.c1 = kh.VLookup(CLng(Me.b1.Value), Sheets("ss").Range("b4:o50000"), 3, 0)
.e1 = kh.VLookup(CLng(Me.b1.Value), Sheets("ss").Range("b4:o50000"), 4, 0)
.g1 = kh.VLookup(CLng(Me.b1.Value), Sheets("ss").Range("b4:o50000"), 5, 0)
.h1 = kh.VLookup(CLng(Me.b1.Value), Sheets("ss").Range("b4:o50000"), 6, 0)
.i1 = kh.VLookup(CLng(Me.b1.Value), Sheets("ss").Range("b4:o50000"), 7, 0)
  If r = True Then
   .k1 = kh.VLookup(CLng(Me.b1.Value), Sheets("ss").Range("b4:o50000"), 9, 0)
  ElseIf q = True Then
   .k1 = kh.VLookup(CLng(Me.b1.Value), Sheets(x).Range("g15:m805"), 7, 0)
  End If
Else
.a1 = ""
.c1 = ""
.e1 = ""
.g1 = ""
.h1 = ""
.i1 = ""
.k1 = ""
End If
End With
End Sub

المشكلة هنا استاذ ياسر اني لم اقدر على التبديل بين النظامين
يعني لنفرض ان زبون على نظام التسعير العادي وانا نسيت وتركته على نظام النسبة ولاحقا انتبهت للموضوع وحولته للنظام العادي فلا يتغير السعر في تيكست بوكس السعر
والمشكلة الثانية بنفس النقطة عندما انسى تحديد نظام التسعير واكتب الرقم يبقى تيكست بوكس السعر فارغ وعند تحديد نظام السعر بعد كتابة الرقم يعطي خطأ

لا أخفي عليك . لم أفهم شيء مما شرحته ، ربما يفيدك أحد الأعضاء إن شاء الله
أو حاول الشرح بلغة الإكسيل ، كأن تشرح كيف تريد عملية التبديل بين السعر العادي والسعر على نظام النسبة ؟؟ ما هو المعيار والشرط لعملية الاختيار ..؟

يمكنك الاستفادة بهذا الكود

<pre>
  If OB1.Value = True Then
'هنا optionbutton1 هو الاوبشن الخاص بالتسعير 
'اكتب هنا الاكواد الخاصه بالتسعير

</pre>

<pre>
        MsgBox "OB1 has Selected"
    Else
        MsgBox "OB1 has Not Selected"
    End If</pre>

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

الف شكر لك استاذ حسونة
واستاذ ياسر شكرا لمتابعتك معي وشكرا لسعة صدرك
حاولت ان ابسط احدى المشاكل قدر الامكان وسأحاول ان اشرحها بلفة الاكسل
في الملف المرفق اريد حلقة تكرارية تأخذ الارقام اللتي في العمود الثاني في الجدول الاول (يعني من C3 الى C11) تبدأ بالرقم الاول في C3 وتبحث عنه في الجدول الثاني وفي حال وجوده تقارن بين الزبون في الجدولين (الزبون موجود بالعمود الثالث في الجدول الاول وموجود بالعمود السادس في الجدزل الثاني)
وفي حال تطابق الزبون يتم تنفيذ المطلوب وهو : كتابة الاسم والشركة والسرعة من الجدول الاول (E3 ,F3 ,G3) في الجدول الثاني



اتمنى ان يكون الطلب واضح

ccc.xlsb

حرب هذا الملف
صفحة Salim

Option Explicit

Sub fin_and_replace()
Dim s  As Worksheet
Dim Rg_B4 As Range, Rg_B16 As Range, ro%, k%, m%
Dim fr_1 As Range, fr_2 As Range

Set s = Sheets("salim")

Set Rg_B4 = s.Range("B3").CurrentRegion
Set Rg_B16 = s.Range("B16").CurrentRegion
s.Range("h17").Resize(Rg_B16.Rows.Count - 1, 3).ClearContents
For m = 2 To Rg_B4.Rows.Count
  Set fr_1 = Rg_B16.Columns(2).Find(Rg_B4.Cells(m, 2), lookat:=1)
  Set fr_2 = Rg_B16.Columns(5).Find(Rg_B4.Cells(m, 3), lookat:=1)
      If Not fr_1 Is Nothing And fr_2 Is Nothing Then
        ro = fr_1.Row
        For k = 0 To 2
         Cells(ro, "H").Offset(, k) = Rg_B4.Cells(m, 4 + k)
        Next
      End If
 Next m
End Sub

صراحة اطلعت على الملف و لم أجد ما تريده
[/quote]