ملئ خانات من قيمة متغيرة

[مطمئن رشيد]

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

مشكلتي كالتالي: انا عندي شركة بناء لها رأس مال متغير تلقائيا في اكسيل كل شهر، يعني خانة بها رأس مال الشركة الذي يتغير تلقائيا كل شهر يزداد وينقص. 

اريد ان انشأ جدول به اشهر السنة من يناير الى دجنبر وبجانب هذه 12 خانة اشهر خانات فارغة. انا اريد ان تمتلئ هذه الخانات الفارغة  بي قيمة  رأس مال الشركة تلقائيا كل بداية شهر. عند حلول يوم محدد من الشهر الخانة الفارغة لي بجانب الشهر تستنسخ قيمة راس مال الشركة. بي شرط كل شهر يحافظ على القيمة التي استنسخة وبدون ان تتغير. 

مثال . راس مال الشركة في يناير هو 100000 dh يعني الخانة لي بجانب يناير تستنسخ تلقائيا 100000 dh 

نفترض في شهر فبراير راس مال الشركة هو 230000 dh يعني الخانة لي بجانب فبراير  تستنسخ تلقائيا 230000 dh وبدون ان  تتغير قيمت يناير 

و شهر مارس راس مال الشركة هو 210000  الخانة لي بجانب شهر مارس تستنسخ تلقائيا  210000 dh وبدون ان تتغير قيمة شهر يناير وفبراير

وهكذا الاشهر الاخرى.

 شكرا لكم جميعا

Classeur STE.xlsx

[عبدالفتاح في بي اكسيل]

تفضل اخي  مع هذا  الماكرو البسيط   لاتقم ثانية بدمج الخلايا  لان الكود  لايعمل ضع القيمة في الخلية g3

Sub abdelfattah()
   Dim NxtRw As Long
   
   On Error Resume Next
   NxtRw = Range("C5:C16").SpecialCells(xlBlanks)(1).Row
   On Error GoTo 0
   If NxtRw = 0 Then Exit Sub
   Range("C" & NxtRw).Value = Range("G3").Value
   Range("G3").Value = ""
End Sub

 

Classeur STE (1).xls

[مطمئن رشيد]

بارك الله فيكم والله يرزقكم الجنة. شكرا لكم جميعا

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

اشكرك اخي عبد الفتاح.

اخي الكريم هل من الممكن ان تمتلئ الخانات تلقائيا لوحدها عندما تحين بداية الشهر. بدون ان اضغط على click. اتمنى ان يكون سؤالي في محله.

شكرا لكم.

Classeur STE (1)-1.xls

[عبدالفتاح في بي اكسيل]

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

تحياتي