Buenas a todos:
hola soy muy novato en vba y me gustaría hacer una pregunta
tengo una planilla excel con 2190 registros, a los que les debo eliminar el ultimo carácter y llevo harto buscando y pensando y no me resulta
la idea que yo tenia era la siguiente:
Range("A2:A2190").Select = Left(Range("A2:A2190"), Len(Range("A2:A2190")) - 1)
probe con: (Range().Value / Range().Text)
Algo así pero me dice error no coinciden los datos.
la verdad es que tengo poco conocimiento en vb
así que cualquier ayuda sirve
muchas gracias
Saludos.
Lo mejor que puedes hacer es grabar un macro en Excel y ahí hacer lo que quieres hacer. Para editar el macro solo presionas Alt+F8 y pones editar.
Saludos.
Intentad con esté!
Sub EliminarUltimoCaracter()
Dim oHoja As String: oHoja = "Hoja4" ' Hoja de donde se realizará el proceso
Dim oFila As Integer: oFila = 2 ' Inicio de fila
Dim oColumna As String: oColumna = "A" ' Columna que contiene el texto
' Seleccionar la hoja
Sheets(oHoja).Select
' Recorrer todos los valores hasta que encuentre un celda vacia
Do While Range(oColumna & oFila).Value <> Empty
' Reemplazar el valor de la celda por el mismo valor eliminando el ultimo caracter
Range(oColumna & oFila).Value = Left(Range(oColumna & oFila).Value, Len(Range(oColumna & oFila).Value) - 1)
' Incremento de fila
oFila = oFila + 1
Loop
End Sub
Agregas un boton en la hoja y le asignas la macro que te acabe de copiar
hola a todos:
Probé la opción de shell root y me dice indice fuera de intervalo y reviso (dentro de lo que entiendo) y no encuentro el problema
gracias a todos por sus respuestas
Cambiaste el nombre de la hoja por la que tu tienes? La fila inicial y la columna?
Ahora si muchas gracias a todos los que respondieron.
y a shellroot que se dio el tiempo de programar para ayudarme