Necesito ayuda para crear un documento en Microsoft Excel con unas funciones específicas
Mi estimado experto, otra vez por aquí, una pregunta adicional:
Y si ademas de que abriera una página con el nombre de la fecha del día, quisiera que se copiara el contenido de la página anterior en la página recién creada (día anterior...)
Y si ademas de que abriera una página con el nombre de la fecha del día, quisiera que se copiara el contenido de la página anterior en la página recién creada (día anterior...)
1 Respuesta
Respuesta de César Mera
1
Bueno sólo debes adicionar el último bloque IF al código de la pregunta anterior, para los demás usuarios acá está el código completo:
Private Sub Workbook_Open()
For Each hoja In ActiveWorkbook.Sheets
If InStr(1, Str(Day(Date)), hoja.Name, 0) > 0 Then
hoja.Select
End If
Next
If InStr(1, Str(Day(Date)), ActiveSheet.Name, 0) < 1 Then
Worksheets.Add.Move after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Str(Day(Date))
End If
If ActiveSheet.Index > 1 Then
ActiveSheet.Previous.Select
Cells.Select
Selection.Copy
ActiveSheet.Next.Select
ActiveSheet.Paste
End If
End Sub
Si no entiendes la respuesta o necesitas alguna aclaración escríbeme y con mucho gusto te ayudo si de lo contrario, la respuesta te satisface te agradeceré una calificación de acuerdo a la oportunidad y calidad de la respuesta.
Private Sub Workbook_Open()
For Each hoja In ActiveWorkbook.Sheets
If InStr(1, Str(Day(Date)), hoja.Name, 0) > 0 Then
hoja.Select
End If
Next
If InStr(1, Str(Day(Date)), ActiveSheet.Name, 0) < 1 Then
Worksheets.Add.Move after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Str(Day(Date))
End If
If ActiveSheet.Index > 1 Then
ActiveSheet.Previous.Select
Cells.Select
Selection.Copy
ActiveSheet.Next.Select
ActiveSheet.Paste
End If
End Sub
Si no entiendes la respuesta o necesitas alguna aclaración escríbeme y con mucho gusto te ayudo si de lo contrario, la respuesta te satisface te agradeceré una calificación de acuerdo a la oportunidad y calidad de la respuesta.
