Eliminar últimos carácteres de celda activa

3 envíos / 0 nuevos
Último envío
JORDI MES
Imagen de JORDI MES
Offline
última acción: Hace 6 meses 1 semana
alta: 06/02/2019 - 11:32
Puntos: 115
Eliminar últimos carácteres de celda activa

Hola

en una celda activa por una función, se copia un texto (referencia) de una base de datos. El texto siempre tiene una extensión final en referencia a un tipo de archivo (en mi caso és: ".html"); los carácteres de todo el texto(incluido el punto y la extensión) es de 12. Intento el script de copiar el texto, eliminar los 5 últimos carácteres, y pegar en la misma celda activa el resultado.

¿donde tengo el error?

Dim Cabecera As String

...

...

...

Selection.Value = filname               'Pego en la celda activa el texto (la referencia)

Cabecera = Mid (Active.Cells, 0, 7)    'Aquí no me funciona, supongo que referencio o interpreto                                                         erroneamente.

Gracias de antemano. 

:D

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 1 hora 49 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 10560
ActiveCell

Parece que hay una errata en cómo has escrito ActiveCell; puedes también añadir .Value, para referirte al valor de la celda.

Además, debes empezar en el carácter 1, no en el cero. Prueba con esto:

Cabecera = Mid (ActiveCell.Value, 1, 7)

 

Data Tools Suite
datos y tablas con Excel

JORDI MES
Imagen de JORDI MES
Offline
última acción: Hace 6 meses 1 semana
alta: 06/02/2019 - 11:32
Puntos: 115
Muchas Gracias Compañero:D

Muchas Gracias Compañero

:D