"Extraer cadena de caracteres entre" con VBA

Estoy buscando un código bajo VBA que me permita extraer el numero 83 de esta cadena de caracteres: "A_83_MMJKLL03". Si me pueden ayudar le agradezco mucho, ya llevo mucho tiempo buscando una solución
Respuesta
3
Es como en excel
Utiliza la función Mid
Ejemplo
Supongamos que el campo en donde esta tu cadena se llama rfc
entonces ponemos
a = Mid(Refc, 3,2)
Campo2 = a
En el campo2 te pondrá el resultado que es 83
es decir extrae del campo rfc dos caracteres a partir de tercer carácter
Gracias por tu pronta respuesta, en la oficina me ayudaron y logramos construir esta otra forma de hacerla:
Dim p1 As Integer
Dim p2 As Integer
p1 = InStr(campo, "_") + 1
p2 = InStrRev(campo, "_") - 3
campodestino = Mid(campo, p1, p2)
OK, que bieno que lo lograste...
No olvides finalizar la pregunta.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Extraer números entre paréntesis de una celda

Necesito extraer unos números entre paréntesis y con el signo del € pero no hay forma... Todas las celdas tienen este formato: Exclusive product - WQK (3737.77 € ) Y necesito los números 3737.77 para poder hacer cálculos (numérico) ¿Alguien me ayuda...
1 respuesta

Borrar registros de una tablay guardar los cambios

Que tal recurro a ti o a ustedes para realizar una petición de ayuda respecto a est nuevo problema que ma aqueja, bien les explico en que consist y ojala pudieran ayudarme, resulta que tengo una tabla en access2000 llamada "Ordenes" la cual tiene...
1 respuesta

Mayúsculas o minúsculas según número de espacios

En un campo de access quiero que al insertar los datos éstos se pongan en mayúsculas o minúsculas según la posición en que estén los caracteres en relación al número de espacios que hay en la cadena de texto. EJEMPLO: Si hay dos espacios: Si hay dos...
1 respuesta

Extraer sólo Números

Si existe alguna fórmula que me ayude a extraer de una celda que contenga un dato alfanumérico (Ejem: Cerros 2145), sólo los valores numéricos, es decir que me extraiga el 2145, ¿Existe?
1 respuesta

Access: Convertir horas:minutos:segundos en minutos totales

Espero que puedan ayudarme. Mi tarea va sobre fecha y hora en Access. Tengo en primer lugar una tabla en Excel con una columna en formato fecha y hora completo (1/12/11 08:07:58) y otra columna "duración" de la forma 2 h, 24', 53''. En mi aplicación...
1 respuesta

Función access

Necesito una función de access que recorte por espacios, es decir, un quiero separar un campo apellidos en dos campos, uno para cada apellido. ¿Me puedes decir si existe algún procedimiento para hacerlo?
3 respuestas

Ayuda con los dnis

Quisiera saber si hay alguna función para que al introducir un DNI sin letra, se genere la letra correspondiente.Si no la hay, ¿Alguien me da alguna solución para ello?
1 respuesta

Separar texto con macro

Como puedo separar estos textos con una macro para que me separe en a1 por en b1 13 en c1 12 en d1 13 en e1 13 en f1 12 es decir que me identifique el espacio y que cada texto después del espacio lo separe a1 = por 13 12 13 13 12 Esto considerando...
4 respuestas

Separar cadena de caracteres

Necesito separar una cadena de caracteres. Por ejemplo tengo "Rodriguez Ramírez Jose Antonio" Lo que necesito es guardar la primera cadena en una variable (Rodriguez), la segunda cadena (Ramírez) en otra variable y por ultimo todo lo que venga...
3 respuestas

Cargar txt a access desde vba

Hace un par de meses empecé a usar access para manejar una BD y de a poco fui aprendiendo SQL y algo de VBA. Mi problema es el siguiente quiero automatizar la carga de datos (la BD es de un sistema de cobranzas) el banco realiza los cobros de los...
1 respuesta