عمل زر ينقل البيانات

[محمودكمال]

 عمل زر ينقل البيانات من العامود c فى الصفحة 1 الى العمود الخالى فى الصفحة2

علما ان ترتيب الاسماء بيتغير كل شهر فى الصفحة 1 وترتيب الاسماء فى الصفحة 2 ثابت

والاسماء اكتر من 300 اسم

الاستحقاق الشهرى.xlsx

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

جرب هذا الملف

 

الماكرو الاول يغطيك البينات حسب الشهر

الماكرو الثاني يغطيك البينات حسب اول عامود فارغ

 انا اخترت الاول للزر

يمكنك التغيير الى الثاني اذا اردت

 

Option Explicit

Sub My_DATA()
Dim MY_RG As Range
Dim X%
Sheets("صفحة 2").Select
X = Evaluate("=MATCH(صفحة1!$C$1,'صفحة 2'!$A$3:$M$3,0)")
Set MY_RG = Sheets("صفحة 2").Range(Cells(4, X), Cells(500, X))
MY_RG.Formula = "=IF(B4="""","""",INDEX(صفحة1!$C$3:$C$500,MATCH($B4,صفحة1!$B$3:$B$500,0)))"
MY_RG.Value = MY_RG.Value
End Sub
Rem ================================================
Sub My_match()
Dim MY_RG As Range
Dim X%
X = Evaluate("=MATCH(TRUE,(A4:Z4)="""",0)")
Sheets("صفحة 2").Select
Set MY_RG = Sheets("صفحة 2").Range(Cells(4, X), Cells(500, X))
MY_RG.Formula = "=IF(B4="""","""",INDEX(صفحة1!$C$3:$C$500,MATCH($B4,صفحة1!$B$3:$B$500,0)))"
MY_RG.Value = MY_RG.Value
End Sub

الملف مرفق

 

الاستحقاق الشهرى SALIM.xlsm

[محمودكمال]

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