Carlos Arrocha

Prueba con la siguiente a ver si es lo que necesitas. Ingresando en Mes en la celda D1 y pulsando enter, te trae de la hoja2 el resto de datos hasta la celda D7. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(False, False) <>...

Coloca esta línea dentro de un botón para filtrar en la columna H el texto Si Está. Range("H1").AutoFilter , Field:=1, Criteria1:="S*"

Private Sub CommandButton1_Click() Sheets("Detalle_salidas").Unprotect ("2019") If colaborador.Value = "" And servicio.Value = "" And empresa = "" And puesto = "" And cliente = "" And region = "" And motivo = "" Then MsgBox "Debe llenar todos los...

Veo que el error te sale cuando llamas la macro. Asegúrate que se llama así y donde la tienes ubicada.

Se me atraganta un poco en código vba, pero dime una cosa. Que nombre tiene el combobox. munisipi o Num_equipament?

En la primera línea. Donde pone total.value está bien? O es totalArt.

Sinceramente desconozco cual puede ser el fallo, pero prueba con esta línea muy usada en estos casos. On Error Resume Next. Lo colocas al principio de la rutina a ver si te sirve. No es una practica muy recomendable porque no soluciona el problema.

No sé si funcionará porque no he probado, pero intenta así: x100Gastat.Caption = Format(x100Gastat, "####,##0.00") & "%"

Sustituye tú código por este Sub CarlosArrocha() Dim Counter As Integer For Counter = 1 To 1000 Application.Worksheets("Hoja1").Cells(Counter, 14) = Val(Hoja1.Cells(Counter, 1)) 'CDbl Next Counter End Sub Cambia el nombre de la hoja1 por el que tengas.

Utiliza esta línea a ver si te sirve. Worksheets("Hoja1"). Columns("C"). _ NumberFormat = "$#,##0.00_);[Red]($#,##0.00)" '<-FORMATO NÚMERO