Ayuda! Fijar celdas $ dentro de una formula en VBA

25/01/2012 - 09:53 por torek | Informe spam
¡ Hola !

Estimados,
El dia de hoy les externo mi problema con un codigo BVA

Tengo este codigo:

Private Sub Intro_Click()
Dim material As String
Dim idioma As String
Dim nombre_del_material As String
Dim editorial As String
Dim autor As String
Dim tema_principal As String
Dim subtema As String
Dim ano_impresion As String
Dim ultimo_digito_isbn As String
Dim codigo1 As String
Dim codigo2 As String


material = CbMaterial.Value
idioma = Txtidioma.Value
nombre_del_material = Txtnombredelmaterial.Value
editorial = Txteditorial.Value
autor = Txtautor.Value
tema_principal = CBtema.Value
subtema = CBsubtema.Value
ano_impresion = Txtanoimpresion.Value
ultimo_digito_isbn = Txtisbn.Value


ultimafila = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count

Cells(ultimafila + 1, 2) = "=+R[-1]C+1"
Cells(ultimafila + 1, 3) = material
Cells(ultimafila + 1, 4) = idioma
Cells(ultimafila + 1, 5) = nombre_del_material
Cells(ultimafila + 1, 6) = editorial
Cells(ultimafila + 1, 7) = autor
Cells(ultimafila + 1, 8) = tema_principal
Cells(ultimafila + 1, 10) = subtema
Cells(ultimafila + 1, 12) = ano_impresion
Cells(ultimafila + 1, 14) = ultimo_digito_isbn
Cells(ultimafila + 1, 9) = "=+VLOOKUP(RC[-1],TEMAS!R[-92]C[-6]:R[904]C[-4],3,0)"
Cells(ultimafila + 1, 11) = "=+VLOOKUP(RC[-1],TEMAS!R[-92]C[-7]:R[904]C[-5],3,0)"
Cells(ultimafila + 1, 13) = "."
Cells(ultimafila + 1, 15) = "=+RC[-6]&RC[-4]&MID(RC[-10],1,1)&RC[-3]&RC[-2]&RC[-1]"

nuevo.TxtCode.Text = Cells(ultimafila + 1, 15)
End Sub

Es en "=+VLOOKUP(RC[-1],TEMAS!R[-92]C[-6]:R[904]C[-4],3,0)"
+VLOOKUP(RC[-1],TEMAS!R[-92]C[-7]:R[904]C[-5],3,0)" y en donde quiero que me fije el valor de la celda y no se mueva a medida que se va ejecutando la macro.
Algo asi como ponerle F4 a un rango y que agrega $ $

He intentado varias cosas pero aun así va colocando la informacion y cambiando la formula.

Toda la ayuda posible es agradecida y bienvenida

Gracias por su ayuda

Saludos
Torek

Preguntas similare

Leer las respuestas

Search Busqueda sugerida