¿Cómo puedo poner "00000000" como valor predefinido en una columna?
Esta programación me gustaría ponerla dentro de un botón.
Necesito poner 10 ceros ("0000000000") en las columnas u y v. Y solo en caso de que en la columna a el valor sea 160 que me ponga "CGI0000000"
Había intentado con
Range("u2", Range("u2").End(xlDown)).Value = 0
range("u").select
selection.numberformat="@"
pero no consigo rellenar los ceros que me hacen falta
ayuda por favor
1 Respuesta
Esta sería la macro
Sub ceros()
Range("u2", Range("u2").End(xlDown)).Value = 0
Range("u2", Range("u2").End(xlDown)).Select
Selection.NumberFormat = "0000000000"
For i = 1 To Range("u2").End(xlDown).Row
If Cells(i, 1) = 160 Then
Cells(i, "u") = "CGI0000000"
End If
Next
Range("V2", Range("V2").End(xlDown)).Value = 0
Range("V2", Range("V2").End(xlDown)).Select
Selection.NumberFormat = "0000000000"
For i = 1 To Range("V2").End(xlDown).Row
If Cells(i, 1) = 160 Then
Cells(i, "V") = "CGI0000000"
End If
Next
End Sub
Saludos. Dam
