Ali Mohamed Ali

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

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

اللهم اغفر لوالدك وارحمه، وعافه واعف عنه، وأكرم نزله، ووسع مدخله، واغسله بالماء والثلج والبرد، ونقه من الخطايا كما ينقى الثوب الأبيض من الدنس. - اللهم أبدله دارا خيرا من داره، وأهلا خيرا من أهله، وزوجا خيرا من زوجه، وأدخله الجنة، وأعذه من عذاب القبر، ومن عذاب النار

أحسنت أستاذنا الكريم بارك الله فيك وزادك الله من فضله موضوع قيم جعله الله فى ميزان حسناتك

بارك الله فيك استاذ محمد وزادك الله من فضله

وعليكم السلام -تفضل لك ما طلبت

للرفع.xlsb

أحسنت بارك الله فيك وزادك الله من فضله

وعليكم السلام- باركود          IDAutomationHC39M

Idautomationhc39m.zip

أحسنت وبارك الله فيك ودائماً من نجاح الى تفوق ان شاء الله

IFERROR(LOOKUP(A1,{600001;700001;800001;900001},{525;2775;5025;8025})

بسيطة وسهلة هذا الجزء يعنى ان الشرائح التى تبدأ بـــ600001 يكون الوعاء الضريبى هو المقابل لها بالقوسين الأخرين وهو 525 أما الشريحة الثانية 700001 فالوعاء الضريبى لها هو 2775  ...وهكذا الى اخر الشرائح وشكراً

وعليكم السلام أهلا وسهلاً بك بالمنتدى , كان لابد من رفع ملف لتوضيح المطلوب بكل دقة وتجنباً لإهدار وقت كل من يود مساعدتك .. ولكن عموماً بإفتراض ان الرقم المراد تقسيمه الى سنوات وشهور وأيام موجود بالخلية A2                                     فستكون المعادلات كالتالى

=INT(A2/360)
'الشهور
=INT(MOD(A2,360)/30)
'الأيام
=MOD(A2,30)

وعليكم السلام . كان لابد من رفع ملف للتوضيح ولكن يمكنك استخدام هذه المعادلة

=IF(A1<=21000,0, IF(A1<=30000,(A1-21000)*2.5%, IF(A1<=45000,(A1-30000)*10%+225, IF(A1<=60000,(A1-45000)*15%+225+1500, IF(A1<=200000,(A1-60000)*20%+225+1500+2250, IF(A1<=400000,(A1-200000)*22.5%+225+1500+2250+28000, IF(A1<=600000,(A1-400000)*25%+225+1500+2250+28000+45000, IF(AND(A1>600000,A1<=1200000),(A1-400000)*25%+225+1500+2250+28000+45000+IFERROR(LOOKUP(A1,{600001;700001;800001;900001},{525;2775;5025;8025}),0), IF(A1>1200000,((A1-1200000)*27.5%)+300000,0) ))))))))

هذه فقط تظهر معك لعدم ضبط اللغة العربية لديك , فعليك بضبطها وأوضحنا هذا من قبل كثير جداً

المعادلة تعمل بالفعل وشغالة تمام بملفك وشوف بنفسك

دائماً مبدع أستاذنا الكبير ياسر , تبارك الله مجهود رائع جعله الله فى ميزان حسناتك وأكرمك الله وموضوع مهم للجميع جزاك الله خير الثواب

تفضل هذا الملف .على الرغم ان كان عليك من البداية رفع ملف بالمشاركة فلا تعنى أى مشاركة شيء بدون ملف يدعمها 

Colored.xlsb

وعليكم السلام-تفضل هذا الكود

Sub ColorPaletteDialogBox()
Dim lcolor As Long
If Application.Dialogs(xlDialogEditColor).Show(10, 0, 125, 125) = True Then
  'user pressed OK
  lcolor = ActiveWorkbook.Colors(10)
  ActiveCell.Interior.Color = lcolor
Else
  'user pressed Cancel
End If
End Sub

السلام عليكم بها نبدأ أى مشاركة -بما انك لم تقم برفع ملف -فيمكنك استخدام هذا الكود لطلبك:

Sub ColorCompanyDuplicates()

Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim xChar As String
Dim xCellPre As Range
Dim xCIndex As Long
Dim xCol As Collection
Dim i As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
xCIndex = 2
Set xCol = New Collection
For Each xCell In xRg
On Error Resume Next
If xCell.Value <> "" Then
xCol.Add xCell, xCell.Text
If Err.Number = 457 Then
xCIndex = xCIndex + 1
Set xCellPre = xCol(xCell.Text)
If xCellPre.Interior.ColorIndex = xlNone Then xCellPre.Interior.ColorIndex = xCIndex
xCell.Interior.ColorIndex = xCellPre.Interior.ColorIndex
ElseIf Err.Number = 9 Then
MsgBox "Too many duplicate companies!", vbCritical, "Kutools for Excel"
Exit Sub
End If
On Error GoTo 0
End If
Next
End Sub

بارك الله فيك وزادك الله من فضله -جمعة مباركة ان شاء الله

أحسنت استاذنا الكريم عمل ممتاز جعله الله فى ميزان حسناتك وبارك الله فيك

أحسنت استاذنا الكريم وبارك الله فيك جهود ممتازة جعله الله فى ميزان حسناتك

عمل ممتاز أستاذ حسونة بارك الله فيك وزادك الله من فضله

بارك الله فيك وزادك الله من فضله هدية قيمة أحسنتم

البقاء لله وان لله وان اليه راحعون اللهم اسكنه فسيج جناتك واغفر له وارحمه ةالهم اللهم اهله الصبر والسلوان على هذه المصيبة واجعله يا الله من أرباب جنات الفردوس الأعلى واحشره مع الصديقين والمرسلين والشهداء وحسن أولئك رفيقاً 

السلام عليكم -يمكنك ذلك بإستخدام هذه المعادلة داخل Data Validation

=YEAR($C2)<=2000

عدم قبول ادخال تاريخ قبل سنة معينة.xlsx

وعليكم السلام -يمكنك استخدام هذه المعادلة

=IFERROR(INDEX(ورقة1!B2:B270,MATCH(0,COUNTIF($A$1:A1,ورقة1!B2:B270),0)),"")

تلخيص1.xlsx