Otomatİk Kopyalama

[1903bjk]

Ektekİ Gİbİ Bİr Dosyam Var.bu Dosya Server ÜstÜnde
Bİlgİsayarimda Bulunan Dosya AÇilirken Sheetlerİ Otomatİk Kopyalamasi İÇİn Bİr Makro Yapabİlİrmİyİz Acaba

 

[1903bjk]

Ektekİ Gİbİ Bİr Dosyam Var.bu Dosya Server ÜstÜnde
Bİlgİsayarimda Bulunan Dosya AÇilirken Sheetlerİ Otomatİk Kopyalamasi İÇİn Bİr Makro Yapabİlİrmİyİz Acaba

DOSYA EKTEDİR

 

[erkankamilonas]

Sub Autpen()
If MsgBox("Sayfa koplyalanacak mı?", vbYesNo) = vbNo Then
Exit Sub
Else
Sheets(1).Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Activate
Range("A6:A17, A25:A35, A43:A48, A56:A58, G1, G20, G38, G51") = CDate(Date)
Columns.AutoFit
Sheets(Sheets.Count).Name = (Date)
End If
End Sub