مساعده يا اساتذه والانقاذ بسرعة

[محمد النيل]

السلام عليكم

ما عارف كيف حل مثال في اكسل

او اي شخص يساعدني الى كل الاساتذة ... ربنا يخليكم

ضروري جدا ...

هذا المثال بضبط

الف تحية وتقدير انا بالانتظار والله والله

ترحيل مثال.rar

تم تعديل أكتوبر 25, 2017 بواسطه محمد النيل

[محمد النيل]

اين الاستاذ

زيزو العجوز المحترم استاذ لا تقصر

الاساتذه والاخوه بالله عليكم مستعجل ومهم عندي

لا تقصرو رحمكم الله

ياالله

يالله

[سليم حاصبيا]

جرب هذا الماكرو

Option Explicit

Sub Tarhil()
Dim Sh As Worksheet
Dim My_max%, My_min%
Dim my_num%, Search_Num
Set Sh = Sheets("ورقة1")
If ActiveSheet.Name <> Sh.Name Then Exit Sub

My_max = Application.Max(Sh.Range("a:a")): My_min = 1
Search_Num = Sh.Range("c2")
If Not IsNumeric(Search_Num) _
Or Search_Num < My_min Or Search_Num > My_max Then
MsgBox "Write a number between  " & My_min & " and " & My_max
Exit Sub
Else
Search_Num = Int(Search_Num)
my_num = Sh.Range("a:a").Find(Search_Num).Row
End If
Range("c" & my_num) = Range("d2"): Range("f" & my_num) = Range("e2")
End Sub

اليك الملف مع الكود

 

ترحيل مثال Salim.rar

[ابراهيم الحداد]

السلام عليكم ورحمة الله

اخى الكريم محمد

انسخ الكود التالى والصقه فى موديول جديد

و اربطه بالزر المرفق بالملف

Sub TrnsTime()
Dim ws As Worksheet
Dim R As Long
Set ws = Sheets("ورقة1")
For R = 7 To 1000
If ws.Cells(R, "A") = ws.Range("C2") And ws.Cells(R, "C") = ws.Range("D2") Then
ws.Cells(R, "F") = ws.Range("E2")
End If
Next
End Sub

 

[محمد النيل]

مشكورين والله ماقصرتو فعلا لكم الف تحية ... اعلام والله ادعيلكم بالخير

الاستاذ

سليم حاصبيا

 

الاستاذ زيزو العجوز .... شباب والعمر كله

الف تحية وتقدير

السلام عليكم استاذ زيزو

اسف على ازعاجك

ممكن ترتبة على المثال الموجود

عاوزو والله

 

تحياتي بالصحة

[سليم حاصبيا]

7 ساعات مضت, زيزو العجوز said:

السلام عليكم ورحمة الله

اخى الكريم محمد

انسخ الكود التالى والصقه فى موديول جديد

و اربطه بالزر المرفق بالملف

Sub TrnsTime()
Dim ws As Worksheet
Dim R As Long
Set ws = Sheets("ورقة1")
For R = 7 To 1000
If ws.Cells(R, "A") = ws.Range("C2") And ws.Cells(R, "C") = ws.Range("D2") Then
ws.Cells(R, "F") = ws.Range("E2")
End If
Next
End Sub

 

اخي زيزو

اسمخ لي بابداء ملاحظتين على الكود الذي قمت بوضعه

1- الحلقة التكراية لا لزوم لها لا نها نستغرق بعض الوقت لتنفيذ الكود كاملاً (حوالي 1000 صف يحب البحث فيها)

2- اذا كان ولا بد من الحلقة التكراية فعند العثور على الرقم المطلوب لا بد من الحروج من الحلقة باستعمال Exit For

    مباشرة قبل السطر End If (توفيراً للوقت)

[محمد النيل]

السلام عليكم ورحمة الله وبركاته .... طلب صغير جدا ... وماعندي غيرك منقض

احسنتم بارك الله بك حقا تستحقون التحية ....

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

تحياتي وتقديري لك ... وان شاء الله افراح وصحة بين الاصدقاء

هو هذا مهم جدا.rar

[محمد النيل]

تقبل الله عملكم

 

هو هذا مهم جدا.rar

يالله

[محمد النيل]

طلب اخير ... وصغير اوي

حل المثال باسم هو هذا مهم جدا rar

شكرا لك مقدما ... منتظرك استاذ

الله يعطيك الصحة ... جمعة مباركه

[محمد النيل]

استاذ

سليم حاصبيا

 

متلهف جدا للحل الملف الجديد ... هو اخر طلب لي.... محتاجه شاهد الله اكتير اووووي

منتظرك يغالي

[محمد النيل]

يالله ...

اي شخص يساعدني اخوان ... حبا بالله

أتمنى من الاساتذة الافاضل التكرم والاطلاع على الملف

تم تعديل أكتوبر 26, 2017 بواسطه محمد النيل

[محمد النيل]

يالله

[محمد النيل]

النبي والله ... نظره ... اي شخص ... مازلت انتظر طول الوقت حل المثال ده

حل.rar

[محمد النيل]

ممكن الجواب ... ضروري والله