¿Como utilizar variables en una macro de excel?

H o l a:

Y qué necesitas poner en la celda, la fórmula o el resultado de la fórmula, porque si vas a utilizar una macro, entonces que la macro obtenga el resultado y que de una vez te lo ponga en la celda.

Envíame tu archivo y me explicas con colores y comentarios lo que necesitas.

'

Mi correo [email protected]

En el asunto del correo escribe tu nombre de usuario “Julio Castro” y el título de esta pregunta.

'

S a l u d o s . D a n t e   A m o r

Gracias ya mande el correo, ahí y también mencionó que en realidad lo que necesitó es saber como mezclar las variables que pongo en el botón con la macro. El resultado esta bien así como lo que arroja la macro por si sola, pero no puedo hacer que en lugar de utilizar celdas predeterminadas se puedan utilizar las variables.

 H o l a:

Vamos por partes para que te sea más claro.

Primero, vamos a simplificar la macro original.

Lo que hice fue lo siguiente:

'tienes esto:
Range("N2").Select
ActiveCell.FormulaR1C1 = "=LOOKUP(RC[-12],R2C12:R15C12)"
'
'lo reemplacé por esto
Range("N2").FormulaR1C1 = "=LOOKUP(RC[-12],R2C12:R15C12)"

'

'Del siguiente código:

'lo siguiente:
Range("N2").Select
Selection.Copy
Range("O2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=LOOKUP(RC[-12],R2C12:R15C12,R2C13:R15C13)"
Range("O2").Select
ActiveCell.FormulaR1C1 = "=LOOKUP(RC[-13],R2C12:R15C12,R2C13:R15C13)"
'
'
'Por esto:
Range("O2").FormulaR1C1 = "=LOOKUP(RC[-13],R2C12:R15C12,R2C13:R15C13)"

'

Solamente quité algunas líneas que la grabadora de macros va poniendo pero que no son necesarias, el resultado es este:

Sub buscar()
'Act.Por.Dante Amor
    Range("N2").FormulaR1C1 = "=LOOKUP(RC[-12],R2C12:R15C12)"
    Range("O2").FormulaR1C1 = "=LOOKUP(RC[-13],R2C12:R15C12,R2C13:R15C13)"
    Range("P2").FormulaR1C1 = "=RC[-1]-RC[-3]"
    Range("N2:P2").AutoFill Destination:=Range("N2:P15"), Type:=xlFillDefault
End Sub

El siguiente paso es cambiar la nomenclatura FormulaR1C1 (RowColumn), por celdas:

Sub buscar2()
'Por.Dante Amor
    Range("N2") = "=LOOKUP(B2,$L$2:$L$15)"
    Range("O2") = "=LOOKUP(B2,$L$2:$L$15,$M$2:$M$15)"
    Range("P2") = "=O2-M2"
    Range("N2:P2").AutoFill Destination:=Range("N2:P15"), Type:=xlFillDefault
End Sub

Te explico el significado de la nomenclatura RC en esta instrucción:

Range("N2").FormulaR1C1 = "=LOOKUP(RC[-12]

LOOKUP(RC[-12]: Lo anterior significa que en la misma fila, es decir, si estás en N2, entonces en la R2 (fila 2), en la columna -12, la columna N es la número 14, 14 -12 = columna 2, entonces la dirección de R2C2 (Fila2Columna2) = celda B2. Por eso queda:

Range("N2") = "=LOOKUP(B2

Entonces, es más práctico utilizar las variables en esta nomenclatura

Range("N2") = "=LOOKUP(B2 

Para utilizar variables, podríamos hacer un ciclo desde la fila 2 hasta la última fila con datos de la columna A y reemplazar en las fórmulas el número 2 por la variable i y el número 15 por la variaba ufila:

Sub buscar3()
'Por.Dante Amor
    ufila = Range("A" & Rows.Count).End(xlUp).Row 'última fila con datos de la columna A
    For i = 2 To ufila
        Range("N" & i) = "=LOOKUP(B" & i & ",$L$2:$L$" & ufila & ")"
        Range("O" & i) = "=LOOKUP(B" & i & ",$L$2:$L$" & ufila & ",$M$2:$M$" & ufila & ")"
        Range("P" & i) = "=O" & i & "-M" & i
    Next
End Sub

Nota: el número 2 de ",$L$2:$L$" y ",$M$2:$M$", no debe cambiarse, ya que es donde inicia el rango.

Entonces en esta instrucción:

Range("N2")

Estoy cambiando el 2 por la variable i:

Range("N" & i)

'

En esta instrucción:

"=LOOKUP(B2,$L$2:$L$15)"

Estoy cambiando el 2 por la variable i: 

"=LOOKUP(B" & i & ",$L$2:$L$" & ufila & ")"

Primero, estoy cerrando las comillas: "=LOOKUP(B"  & pongo la variable & y nuevamente abro comillas para continuar con el texto de la fórmula: ",$L$2:$L$

Si no quieres hacerlo con un ciclo, lo ponemos con autofill.

Sub buscar4()
'Por.Dante Amor
    ufila = Range("A" & Rows.Count).End(xlUp).Row
    Range("N2") = "=LOOKUP(B2,$L$2:$L$" & ufila & ")"
    Range("O2") = "=LOOKUP(B2,$L$2:$L$" & ufila & ",$M$2:$M$" & ufila & ")"
    Range("P2") = "=O2-M2"
    Range("N2:P2").AutoFill Destination:=Range("N2:P" & ufila), Type:=xlFillDefault
End Sub

Avísame cualquier duda sobre cómo utilizar las variables en las fórmulas.

‘

Ya hice los cambios en la macro y me sirvio bastante para entender como funciona y para eliminar las lines de codigo basura, por otro lado en realidad sigo con el mismo problema porque en tu ejemplo me dice como hacer que las operaciones se hagan en una ubicacion de filas y columnas ya determinadas y utilizando las variables para moverse entre las celdas de esas filas y columnas, el archivo que te envie esta en constante cambio y necesito que esos cambios donde se agregan mas clientes y tambien debo agregar columnas, aqui pongo como quedo la macro con los cambios que me recomendaste:

 Range("N2") = "=LOOKUP(B2,$L$2:$L$15)"
Range("O2") = "=LOOKUP(B2,$L$2:$L$15,$M$2:$M$15)"
Range("P2") = "=O2-M2"
Range("N2:P2").Select
Range("N2:P2").AutoFill Destination:=Range("N2:P15"), Type:=xlFillDefault
Range("N2").Select

Mi duda es, como hago para que en lugar de poner Range("N2")pueda utilizar variables en lugar de indicar la columna N fija,para que cuando el archivo cambie la macro pueda acoplarse a los cambios.

SSS a lo mejor no me explico bien en lo que ocupo. Y es que quiero incorporar en esta macro las variables del programita precisamente por esos cambios de informacion en el archivo.

Muchas gracias Dante Amor 

Leyendo tu código me llamó la atención tantos & & & 

Así que solo te dejo un ejemplo de cómo se arman las fórmulas con variables: la parte fija entre comillas dobles y la parte variable entre &

Por ej en la primera:

ActiveCell.FormulaR1C1 = "=LOOKUP(RC[" & xneg & "],R " & c &  "C" & x & ",R" & d & "C" & x & ")"

Es decir que dentro de las comillas, en la parte en negrita no va el signo &

Espero puedas armar con esta explicación tus fórmulas.

Gracias por tu atención, intente de la forma que me dices pero me marcar error 1004 :S, y de la forma en que lo tengo si corre, pero sale una formula que no es correcta en lugar de aparecer =buscar(B2,L2:L15), lo que aparece es esto =buscar(B2,2:2 &2& N:N &12,2:2 &16& N:N &12)  :/