اخى الكريم رجب
هل يوجد اي اضافات تم اضافتها غير هذا الحدث Private Sub CommandButton1_Click()
On Error Resume Next
With Workbooks.Add(xlWBATWorksheet)
With .Sheets(1)
.Range("A1").Resize(1, 5).Value = Workbooks(Nam).Sheets("sheet2").Range("A1:E1").Value
.Range("A2") = Me.TextBox1
.Range("B2") = Me.TextBox2
.Range("C2").Resize(RR, R).Value = Me.ListBox1.List
.Columns("D:E").NumberFormat = "[$-1010000]yyyy/mm/dd;@"
.UsedRange.Columns.AutoFit
End With
Unload Me
End With
End Sub