torek
unread,Jan 25, 2012, 3:53:13 AM1/25/12You do not have permission to delete messages in this group
Either email addresses are anonymous for this group or you need the view member email addresses permission to view the original message
to
¡ 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