اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

jalalbarakat

عضو جديد 01
  • Posts

    1
  • تاريخ الانضمام

  • تاريخ اخر زياره

كل منشورات العضو jalalbarakat

  1. السلام عليكم اخواني لدي مشكله في كتابة الاسم وبضل يعطيني new2 new3 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 4 Then lr = Sheets(3).Range("d" & Rows.Count).End(xlUp).Rows.Value Sheets("new").Select Sheets("new").Copy after:=Sheets(Sheets.Count) Sheets(Sheets.Count).Name = lr Sheets(Sheets.Count).[c3].Value = lr End If End Sub
×
×
  • اضف...

Important Information