Colocar tantos 0 como lo indique una celda
Hola experto
En la celda A1 tengo un valor cualquiera, en la celda A2 tengo el numero de caracteres que tiene la celda A1, ¿Cómo podría colocar en la celda A3 tantos ceros lo indique la celda A2?
Ej: celda A1: javier
Celda A2: 6
Celda A3: 000000
Espero haberme explicado mejor.
Saludos desde Chile
En la celda A1 tengo un valor cualquiera, en la celda A2 tengo el numero de caracteres que tiene la celda A1, ¿Cómo podría colocar en la celda A3 tantos ceros lo indique la celda A2?
Ej: celda A1: javier
Celda A2: 6
Celda A3: 000000
Espero haberme explicado mejor.
Saludos desde Chile
1 Respuesta
Respuesta
1
En la celda a1 pon la función
=largo(a1)
en la celda a3 pon la funcion
=iv1&iv2&iv3&iv4&iv5&iv6&iv7&iv9&iv10
Nota: la celda a3 dale formato de texto
Menu-Formato-Cell-texto
luego ejecutas esta macro
Sub MyMacro()
Range("iv1:iv65536").ClearContents
Range("iv1").Select
Dato = Range("a2").Value
For i = 1 To Dato
If ActiveCell = "" Then
ActiveCell = 0
End If
ActiveCell.Offset(1, 0).Select
Next
Range("a1").Select
End Sub
Una ves que la ejecutes, te pondrá la cantidad de ceros que te marque la celda a2, su esa celda cambia, vuelves a ejecutar la macro y te cambiara la cantidad de ceros..
=largo(a1)
en la celda a3 pon la funcion
=iv1&iv2&iv3&iv4&iv5&iv6&iv7&iv9&iv10
Nota: la celda a3 dale formato de texto
Menu-Formato-Cell-texto
luego ejecutas esta macro
Sub MyMacro()
Range("iv1:iv65536").ClearContents
Range("iv1").Select
Dato = Range("a2").Value
For i = 1 To Dato
If ActiveCell = "" Then
ActiveCell = 0
End If
ActiveCell.Offset(1, 0).Select
Next
Range("a1").Select
End Sub
Una ves que la ejecutes, te pondrá la cantidad de ceros que te marque la celda a2, su esa celda cambia, vuelves a ejecutar la macro y te cambiara la cantidad de ceros..