Foro de elhacker.net

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