Juan Cosceri

Te paso un Script Deberás setear los nombres de hojas a dejar: Sub Hider() Dim CurrSH As Long Dim i As Long CurrSH = Sheets.Count Do Until CurrSH = 0 'Setea el nombre de la hoja' CSHName = UCase(Sheets(CurrSH).Name) Worksheets(CurrSH).Visible = True...

Me parece que la única forma de restingirlo es protegiendo la celda, pero en este caso no te serviría por que necesitas que el usuario lo complete. Lo que se me ocurre que podes hacer es cargar una macro en la hoja que chequee lo que colocaron, si es...

Como estas! Target es el valor de la celda, por lo tanto tienes que agregarle And Target <> "-" Proba con el siguiente script Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 3 And Target <> "-" Then With...

Para definir el formato de fecha deberás utilizar la función Format. Si tienes que trabajar con una fecha en particular reemplaza Date por Range("A1") por ejemplo Fecha = Format(Date, "mm-dd-yyyy"). Por favor no olvides valorar las respuestas...

Te envío la macro sujeto a tu solicitud. Por favor recuerda valorar la respuesta! Slds Sub Macro1() ' ' Macro1 Macro ' Set Tool = Workbooks(ActiveWorkbook.Name) Set SH1 = Sheets("Hoja1") LastRow = SH1.Cells(SH1.Rows.Count, "A").End(xlUp).Row...

La función VAL incluida antes del formato le quita los decimales. Proba con: TextBox1.Value = Format(dato, "$ #,##0.00") Slds

Erika, Buen dia! Te envio la macro detallada para lo que estabas buscando. Sub Macro1() ' Set Tool = Workbooks(ActiveWorkbook.Name) Set Sheet1 = Sheets("Hoja1") 'Reemplazar Hoja1 por el nombre de la hoja ColParaListar = 1 'Colocar la columna para...