Carlos Arrocha

Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("A:D")) Is Nothing Then Range("B" & Target.Row) = Date Range("C" & Target.Row) = Format(Now, "hh:mm") End If End Sub Prueba así a ver si te sirve. Tienes...

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") & "%"

¿Solo debe identificar una letra?

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.

Eso requiere de otra macro para detenerlo después, porque si no consume mucho recurso. ¿No te sería mejor hacerlo cambiando el color interior? Por ejemplo: Fondo rojo para NO y verde para SI

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