ترحيل بيانات

[elhadi]

لدي ملف ترحيل بيانات من شيت لآخر حسن عمود بالشيت

و لكن الاشكال يكمن في انه لما يكون الشيت الأساسي liste  من دون بيانات يقوم بمسح عناوين الجدول من الشيت liste

ارجوا الاجابة من الاخوة الكرام

Liste de malade hospitali.rar

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

 اضف سطر واحد الى الكود ليصبح هكذا

Sub trheel()
Dim cl As Range
On Error Resume Next
lr = [h10000].End(xlUp).Row
If lr < 5 Then lr = 5
    For r = 5 To lr
        i = Cells(r, "H").Value
        Range("B" & r & ":H" & r).Copy Sheets(i).Range("B" & Sheets(i).[b999].End(xlUp).Row + 1)
    Next
    
Range("B5:H" & lr).ClearContents

End Sub

[elhadi]

شكمرا جزيلا اخي سليم

ممكن ملاحظة اخرى لو تكرمت لي

بعد التجربة ان الشيت الاول بمجرد ملأ بيانات غير مكتملة  دون ملأ العمو H و الضغط على زر الترحيل يقوم بمسح البانات

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

تم تعديل يونيو 19, 2015 بواسطه elhadi

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

 استبدل لكود الموجود بهذا المعدل

Sub trheel()
Dim cl As Range
On Error Resume Next
lr = [h10000].End(xlUp).Row
If lr < 5 Then lr = 5
    For r = 5 To lr
       If Cells(r, "H").Value.Value = "" Then
       MsgBox "la cellule " & Cells(r, "H").Address & " est vide"
       Exit Sub
       End If
        i = Cells(r, "H").Value
        Range("B" & r & ":H" & r).Copy Sheets(i).Range("B" & Sheets(i).[b999].End(xlUp).Row + 1)
    Next
    
Range("B5:H" & lr).ClearContents

End Sub

[elhadi]

الف شكر لك اخي سليم و جعله الله في ميزان حسناتك و رمضان كريم

[elhadi]

السلام عليكم

العفو اخي  على  الاسئلة  الشكر على تكرمك لي

لا اعرف ما اللذي جرى للملف كان يعمل و لكن بشكل مفاجئ لم يقم بترحيل بالرغم بالقيام بكل شيء

هذا هو الملف

Liste de malade hospitali.rar

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

تم معالجة الامر

Liste de malade hospitali 1.rar

[elhadi]

شكرا جزيلا لك اخي سليم

و هل يمكن استعمال زر البحث و معه مربع نص للبحث عن ملف مسجل في اي من الشيت عبر الشيت الرئيسي liste

تم تعديل يونيو 20, 2015 بواسطه elhadi