Carlos Arrocha

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

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

No entiendo mucho de esto, pero intenta así. Debes poner en nombre de la hoja donde pone nombre hoja entre comillas. Después creo que la puedes ejecutar desde cualquier hoja. Sub eliminarDuplicados() 'Utiliza el método RemoveDuplicates del Objeto...

Prueba así a ver si te sirve. Sub exportarPDF() ' ' Exportar Hoja a PDF Sheets("plantilla").Visible = True On Error Resume Next Dim carpeta, archivo As String carpeta = "C:\Users\" archivo = Range("X9") MkDir (carpeta)...

No entiendo muy bien lo que quieres, pero te modifiqué un poco la rutina para que cuando ingresas un número diferente a cero te muestre un mensaje. Pero si te sitúas en una celda y das un espacio o dos te muestra otro mensaje. Private Sub...

Private Sub ComboBox1_Change() If ComboBox1.Value = "A" Then Hoja1.Range("F30").Select ElseIf ComboBox1.Value = "B" Then Hoja1.Range("M40").Select Else Hoja1.Range("P40").Select End If End Sub 'Carga el ComboBox Private Sub UserForm_Initialize()...