Para Dante, Hojas que adquieran nombre con signo según celda
Hola! Dante
Agradeciendo por la gran ayuda que siempre nos brindas, tengo varias hojas que adquieren el nombre según texto de celdas de la hoja 1 estas celdas llevan fechas del mes pero con signo, es decir la celdas "CB32:CB66" esta con la fecha 24.12.2014 como hacer para que mis hojas adquieran esos nombres de fecha pero con puntos. El código que tengo es este.
Private Sub CommandButton1_Click()
On Error Resume Next
Hoja1.Select
If TextBox1 = "" Then
MsgBox " NO INGRESASTES FECHA ", vbExclamation, "YACHAY MAQUI"
TextBox1.SetFocus
Else
Range("BS32").FormulaLocal = TextBox1
ActiveWorkbook.RefreshAll
'SEMANA#1
Hoja1.Name = Range("CB32")
Hoja2.Name = Range("CB33")
Hoja3.Name = Range("CB34")
Hoja4.Name = Range("CB35")
End If
End SubQue faltaría al código para que realice esta acción.
1 respuesta
Te anexo la macro con los cambios
Private Sub CommandButton1_Click()
'Act.Por.Dante Amor
Hoja1.Select
If TextBox1 = "" Then
MsgBox " NO INGRESASTES FECHA ", vbExclamation, "YACHAY MAQUI"
TextBox1.SetFocus
Else
Range("BS32").FormulaLocal = TextBox1
ActiveWorkbook.RefreshAll
'SEMANA#1
Hoja1.Name = Format(Range("CB32"), "dd.mm.yyyy")
Hoja2.Name = Format(Range("CB33"), "dd.mm.yyyy")
Hoja3.Name = Format(Range("CB34"), "dd.mm.yyyy")
Hoja4.Name = Format(Range("CB35"), "dd.mm.yyyy")
End If
End SubSaludos.Dante Amor
No olvides valorar la respuesta.
Hola! Dante
Gracias por tu gran ayuda, en la parte donde esta Hoja1.Select esta opción me esta llevando a esa hoja pero si yo estoy en otra hoja y ejecuto mi formulario, no abra otra forma en la que no llevara exclusivamente a esa hoja. yo podría estar en la hoja 35 y y desde esa hoja ejecutar mi formulario.
Prueba así
Private Sub CommandButton1_Click()
'Act.Por.Dante Amor
If TextBox1 = "" Then
MsgBox " NO INGRESASTES FECHA ", vbExclamation, "YACHAY MAQUI"
TextBox1.SetFocus
Else
Hoja1.Range("BS32").FormulaLocal = TextBox1
ActiveWorkbook.RefreshAll
'SEMANA#1
Hoja1.Name = Format(Hoja1.Range("CB32"), "dd.mm.yyyy")
Hoja2.Name = Format(Hoja1.Range("CB33"), "dd.mm.yyyy")
Hoja3.Name = Format(Hoja1.Range("CB34"), "dd.mm.yyyy")
Hoja4.Name = Format(Hoja1.Range("CB35"), "dd.mm.yyyy")
End If
End Sub
