Insertar Formulas en celda con macros de excel

[ralvaradoaraya]

Buenas, necesito ayuda con esto.
Tengo un formulario de captura de hoja de excel, después de toda la recopilación de datos, entre las opciones esta borrar todas las casillas para empezar de cero, el problema es que me borra una formula que se necesita, intente pero no encontré información de como después de que se borre los datos aparezca un mensaje que diga DESEA INSERTAR FORMULAS EN CELDAS, y que después lo haga.

Lo que llevo hecho es lo siguiente:

MsgBox "Alta exitosa.", vbInformation, strTitulo
Limpiar = MsgBox("Deseas limpiar los campos de la captura?", vbYesNo, strTitulo)
If Limpiar = vbYes Then
With ActiveWorkbook.Sheets(1)
.Range("C6").ClearContents
.Range("C9").ClearContents
.Range("C12").ClearContents
.Range("C15").ClearContents
.Range("F9").ClearContents
.Range("F12").ClearContents
.Range("F15").ClearContents
'
'
Continuar = MsgBox("Insertar formulas para nueva busqueda?", vbYesNo + vbExclamation, strTitulo)

Después de aquí es que necesito agregar esta formula
BUSCARV(C6;'Lista HandHeld'!A2:G114;2;FALSO)"
en las celdas C9, C12, C15, F12 y F15.


Les agradezco que me puedan ayudar
Gracias.

[Perr0]

Hola ralvaradoaraya, las fórmulas en macros tienen que ser insertadas en inglés me parece, éste es un ejemplo:

Código vb:

Range("C9").FormulaR1C1 = "=VLOOKUP(RC[-1],'Lista HandHeld'!R2C1:R114C7,2,FALSE)"
 

Range("C9").FormulaR1C1 --> insertará la fórmula en la celda C9

VLOOKUP --> homónimo de BUSCARV en inglés

RC[-1] --> indica que buscara en la columna actual menos uno a la izquierda, si estás en la celda C9 buscará en la B9

R2C1:R114C7 --> hace referencia a la hoja llamada 'Lista HandHeld' en las celdas A2:G114


NOTA: también uso separador de punto y coma ";" pero para macros es "," siempre

espero te sirva

saludos