ترحيل حسب اسم العمود

[seddiki_adz]

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

 

تم تعديل مايو 6, 2022 بواسطه seddiki_adz
خطا

[محمد هشام.]

لا تنسى عند تغيير اسم العمود في الورقة 1 لابد من تغييره في الورقة 2 

Copie de TRANSFER-COLONE_Marcel32-v12.xlsx

[حسين مامون]

بعد اذن الاستاد هشام واثراء للموضوع هذا حل اخر بالاكواد

Option Explicit

Sub test()
Dim ws As Worksheet: Set ws = Sheets("Feuil2")
Dim lr1, r
Dim x1, x2
r = 2
Application.ScreenUpdating = False
ws.Range("g2:j1000").ClearContents
With Sheets("Feuil1")
lr1 = .Cells(Rows.Count, 1).End(3).Row
For x1 = 1 To 4
For x2 = 7 To 11
If .Cells(1, x1).Text = ws.Cells(1, x2).Text Then
.Cells(2, x1).Resize(lr1).Copy ws.Cells(2, x2).Resize(lr1)
GoTo 1
End If
Next x2
1: Next x1
End With
Application.ScreenUpdating = True
End Sub

 

Copie de TRANSFER-COLONE_Marcel32-v12.xlsm