كود ترحيل بيانات

[أنس3001]

السلام عليكم
ارغب في كود يقوم بترحيل البيانات من  شيت الى شيت
مع مسح  المعلومات  من الشيت الاول

وشكرا

 

ANAS-VBA.xlsm

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

جرب هذا الكود

Sub give_data()
Application.ScreenUpdating = False
Dim x As Byte

 x = Application.CountA(Sheets("SAISIE").Range("B1:B6"))
 If x < 6 Then MsgBox "Incomplete Data" & Chr(10) & _
  "You have Only " & x & " Values": GoTo Exit_sub
 Sheets("SAISIE").Range("B1:B6").Copy

 Sheets("DATA").Range("A" & Rows.Count).End(3).Offset(1) _
.PasteSpecial Paste:=xlPasteAll, Transpose:=True

 Sheets("SAISIE").Range("B1:B6").ClearContents
Exit_sub:
 Application.ScreenUpdating = True
End Sub

الملف مرفق

COPY-VBA.xlsm

[أنس3001]

شكرا الاستاذ سليم 

العمل منجز كما ينبغي 

حفظكم الله

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

2 دقائق مضت, أنس3001 said:

شكرا الاستاذ سليم 

العمل منجز كما ينبغي 

حفظكم الله

اذا كان هذا ما تريد

اضغط على علامة الصح (أفضل اجابة) حتى لا تتكرر الردود 

[Ali Mohamed Ali]

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

[aboesa]