طلب نسخ من خلية متغيرة

[ناصراا]

السلام عليكم

 

عضو جديد بينكم أتمنى ان تقبلوني 

 

وعندي طلب بحثت عنه كثيرا 

 

 

عندي جلب بيانات تداول اسهم مباشر 

 

أريد في خلية b2 تعطيني أول قيمة لخلية a2

وفي خلية b3 تعطيني الوقت لهذه القيمة الجديد 

 

علما أن خلية a2  ترتفع وتنزل (وهي تمثل سعر السهم)

 

يعني سهم سعره 10  ارتفع وصار 11 الساعة 12 ظهرا ثم ارتفع وصار 15 الساعة الواحدة ظهرا 

 

المفترض تكون النتيجة في خلية b2  هي 11 وفي خلية الوقت 12 ظهرا

 

أريد ضبط هذه الخلايا بدون ماكرو 

 

ولكم مني الدعوات 

 

 

 

[حسين العصلوجى]

عملت لك هذا علي حسب ما فهمت من كلامك

فانا لم افهم هل انت لاتريد الماكرو فقط ام انك لاتريد اكواد نهائيا

اتمني ان يفي المرفق بالغرض

 

activecell.rar

تم تعديل مارس 5, 2013 بواسطه حسين العصلوجى

[ناصراا]

ما شاء الله لا قوة إلا بالله 

 

مخك يوزن بلد أخي حسين 

 

أنا لا أريد الماكرو  لأني لا أجيد التعامل معه ... ولأنه يطلب مني اذن عند فتح الملف كل مرة 

 

فهل يمكن تنفيذها بمعادلات فهو أنسب لي ؟؟

 

عودا على الملف 

 

لاحظت أنه سوف يضع كل حركة تغير مع وقتها حتى AZ

 

الطريقة ممتازة سانفذها في فكرة أخرى 

 

دعني أشرح طلبي أكثر 

 

هو سعره 10 ارتفع فقط (وليس نزل) صار 11 الساعة 12 ظهرا

يعني عندي سعر أولي هو اساس الشرط اذا ارتفع عنه عطني قيمة الإرتفاع ووقتها 

 

ستواجهني مشكلة أخي 

 

أن ملف الإكسل عندي يجلب من السوق مباشرة 

 

وهذه الخلية (الأساس ) دائما فيها رقم  (سعر الأمس أو صفر قبل بداية السوق  أو سعر تداول وقت افتتاح السوق )

الساعة 10 صباحا إلى 11 تصفر جميع الخلايا تلقئيا 

ثم بيدأ السوق الساعة 11 

 

في الملف المرفق مزيدا من الشرح لطلبي 

 

شاكرا لكم حسن الضيافة 

 

 

 

 

 

activecell.rar

[حسين العصلوجى]

جرب المرفق ان شاء الله يفي بالغرض

activecell (2).rar

[ناصراا]

الله يجزاك خير ويرحم والديك 

 

شكرا لك من كل قلبي 

 

ما أجمل هذا المنتدى بأعضائه الكرام

[ناصراا]

جرب المرفق ان شاء الله يفي بالغرض

الكود ممتاز مع الإدخالات اليدوية 

 

لكنه مع جلب البيانات عبر النت لم يتغير ولم يسجل أي رقم 

 

هل لآن قيمة الخلية رابط لا يتغير ؟

[حسين العصلوجى]

الاخ / ناصر
ارفق الملف الذي يتم جلب البيانات منها لاضافة الكود المناسب له ليعمل علي التحدبث التلقائي
 المرفق به مثال لعله يكون المقصود

 

activecell (3).rar

تم تعديل مارس 10, 2013 بواسطه حسين العصلوجى

[ناصراا]

لا اعرف كيف اشكرك على اهتمامك سوى الدعاء لك ولوالديك 

 

مرفق ملف كمثال 

 

يحتاج اتصال انترنت 

 

والبيانات تحدث كل خمس دقائق 

 

فتتغير الأرقام

 

أرجوك جربه بين الساعة 11 والساعة 3:30 بتوقيت السعودية 

 

الغريب أنه يخرج لك نتيجة أو اثنتين من بين 150 صف 

 

اكرر شكري  وتقديري

 

 

activecell (3).rar

[حسين العصلوجى]

جرب هذا المرفق

ولو في ملاحظات عرفني

activecell (3).rar

[ناصراا]

جرب هذا المرفق

ولو في ملاحظات عرفني

 

ممتاز جدا 

 

معلم والله 

 

استاذي لو تكرمت علي بعض الأسئلة 

 

حاولت أن أجتهد  

 

فأضفت هذا الكود  فأين الخطأ 

يقول اذا كان الأعلى اعلى من الرقم الذي سجله (رقم عالي جديد ) يسجله في الخلية المجاورة 46

 

Private Sub Worksheet_Change(ByVal Target As Range)
If Not IsEmpty(Target) Then
For x = 13 To 290
If Cells(x, 41) > Cells(x, 40) And Cells(x, 44) = "" Then
Cells(x, 44) = Cells(x, 41)
Cells(x, 45) = Format(Now, ("HH:MM:SS"))

If Cells(x, 41) > Cells(x, 44) And Cells(x, 46) = "" Then
Cells(x, 46) = Cells(x, 41)
Cells(x, 47) = Format(Now, ("HH:MM:SS"))
End If
Next
End If
End Sub




Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

 

 

 

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

تم تعديل مارس 12, 2013 بواسطه ناصراا

[حسين العصلوجى]

تصحيح الكود كالتالى

Private Sub Worksheet_Change(ByVal Target As Range)
If Not IsEmpty(Target) Then
 For x = 13 To 290
    If Cells(x, 41) > Cells(x, 40) And Cells(x, 44) = "" Then
    Cells(x, 44) = Cells(x, 41)
    Cells(x, 45) = Format(Now, ("HH:MM:SS"))
    End If

        If Cells(x, 41) > Cells(x, 44) And Not Cells(x, 44) = "" And Cells(x, 46) = "" Then
        Cells(x, 46) = Cells(x, 41)
        Cells(x, 47) = Format(Now, ("HH:MM:SS"))
        End If
 Next
End If
End Sub

 

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

وكذلك عند فتح الملف يحذف الارتفاعات القديمة

H-activecell (3).rar

تم تعديل مارس 12, 2013 بواسطه حسين العصلوجى

[خالد القدس]

السلام عليكم

استاذ حسين

اكواد غاية في الدقةوالخبرة

بارك الله فيك وزادك علما

[حسين العصلوجى]

بارك الله لك يا اخي خالد علي هذه الكلمات الطيبة

[ناصراا]

تصحيح الكود كالتالى

Private Sub Worksheet_Change(ByVal Target As Range)
If Not IsEmpty(Target) Then
 For x = 13 To 290
    If Cells(x, 41) > Cells(x, 40) And Cells(x, 44) = "" Then
    Cells(x, 44) = Cells(x, 41)
    Cells(x, 45) = Format(Now, ("HH:MM:SS"))
    End If

        If Cells(x, 41) > Cells(x, 44) And Not Cells(x, 44) = "" And Cells(x, 46) = "" Then
        Cells(x, 46) = Cells(x, 41)
        Cells(x, 47) = Format(Now, ("HH:MM:SS"))
        End If
 Next
End If
End Sub

 

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

وكذلك عند فتح الملف يحذف الارتفاعات القديمة

ياه  .. ما أجملك واجمل ابداعك استاذنا الكريم

 

اشكرك على الوقت والجهد الذي منحتني اياه 

 

وعلى الفائدة التي استفدتها منك .. فأنت مدرسة بفكرك وطبعك

 

تقبل شكري وثنائي

[ناصراا]

السلام عليكم

استاذ حسين

اكواد غاية في الدقةوالخبرة

بارك الله فيك وزادك علما

شرفتني اطلالتك اخي الكريم

[حمادة عمر]

اخي العزيز / حسين العصلوجي

رااائع وفعلا بجد اصبحت ابحث عن ردودك لانها تثير اعجابي جدا

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

[ناصراا]

اخي العزيز / حسين العصلوجي

رااائع وفعلا بجد اصبحت ابحث عن ردودك لانها تثير اعجابي جدا

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

أهلا بك أخي حمادة 

وشكرا لك 

فالأستاذ حسين يستحق كل ثناء 

[ا بو سليمان]

تصحيح الكود كالتالى

Private Sub Worksheet_Change(ByVal Target As Range)
If Not IsEmpty(Target) Then
 For x = 13 To 290
    If Cells(x, 41) > Cells(x, 40) And Cells(x, 44) = "" Then
    Cells(x, 44) = Cells(x, 41)
    Cells(x, 45) = Format(Now, ("HH:MM:SS"))
    End If

        If Cells(x, 41) > Cells(x, 44) And Not Cells(x, 44) = "" And Cells(x, 46) = "" Then
        Cells(x, 46) = Cells(x, 41)
        Cells(x, 47) = Format(Now, ("HH:MM:SS"))
        End If
 Next
End If
End Sub

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

وكذلك عند فتح الملف يحذف الارتفاعات القديمة

ما شاء الله ممتاز   كنت ابحث عن مثل هذا الجواب