Autofill que rellene inteligentemente (con referencia relativa)

[lidavq]

Buenas,

Tengo una hoja en la que en la que en una de las columnas uso un buscarV, que además quiero que se autorrellene usando referencias relativas (el autorrelleno inteligente, vamos). Os pongo un ejemplo que no es real, ya que son decenas de miles de celdas, y tengo en cuenta el tamaño del rango que puede variar, etc….pero para simplificarlo.

Si lo hago grabando una macro, obtengo esto:

    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],Hoja1!R2C1:R10C3,3,FALSE)"

    Selection.AutoFill Destination:=Range("B2:B20")

Pero no quiero que se vea que es una macro grabada, por lo cutre que queda. Además porque quiero aprender. Así que uso la expresión Application.WorksheetFunction.VLookup directamente o bien, como lo uso varias veces me creo una funcion, que sería la equivalente a SI.ERROR(BUSCARV)):

 

Function buscar(ByVal valorBus As Range, ByVal rangoBusq As Range, ByVal ncolum As Integer) As String

    Dim result As String

    On Error Resume Next

    s = Application.WorksheetFunction.VLookup(valorBus, rangoBusq, ncolum, False)

    If IsError(result) Then

        buscar = ""

    Else

        buscar = result

    End If

End Function

 

De cualquiera de las dos formas, cuando luego uso AUTOFILL no rellena de forma inteligente:

 

Range("B2").Value = buscar(Range("A2"), Sheets("Hoja1").Range("A2:C10"), 2)

Range("B2").AutoFill Destination:=Range("B2:B20")

 

Este mismo problema lo tengo también cuando quiero concatenar y rellenar. Por eso lo que quiero saber es....Hay alguna forma de que Autofill rellene haciendo uso de las referencias relativas? O bien, alguna forma de hacer referencia a las celdas  de forma relativa en la función?

Muchas gracias de antemano.

[JSDJSD]

Sube tu archivo y pon un ejemplos con datos del antes y el después, los datos no tienen que ser reales.

[Antoni]

ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],Hoja1!R2C1:R10C3,3,FALSE)"
Selection.AutoFill Destination:=Range("B2:B20"), Type:=xlFillDefault '<-------------

 

[lidavq]

Buenas, 

No he subido un archivo porque lo único que busco en realidad es que el AUTOFILL me rellene inteligentemente, y no me deja adjuntar un archivo, pero aquí intentaré explicarlo con el ejemplo más sencillo, el de concatenar.

Nombre	Apellido	Completo
Ana	Pérez
Paco	Gómez
Antonio	Ruíz
Pedro	García

Tiene un módulo con 2 macros grabadas y una hecha a mano:

Sub Macro1()

    'OPCIÓN1: CON MACRO GRABADA USANDO CONCATENAR --> FUNCIONA
    Range("C2").Select
    ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-2],"" "",RC[-1])"
    Selection.AutoFill Destination:=Range("C2:C5")
    
End Sub

Sub Macro2()

    'OPCIÓN2: CON MACRO GRABADA USANDO AMPERSAN --> FUNCIONA
    Range("C2").Select
    ActiveCell.FormulaR1C1 = "=RC[-2]&"" ""&RC[-1]"
    Range("C2").Select
    Selection.AutoFill Destination:=Range("C2:C5")
    
End Sub

 

Sub Amano()

  'OPCIÓN3: uso rangos, sin grabar la macro--> NO FUNCIONA!!!!

    Range("C2").Value = Range("A2") & "" & Range("B2")
    Range("C2").Select
    Selection.AutoFill Destination:=Range("C2:C5")
    
End Sub

Gracias de nuevo

[lidavq]

Muchas gracias, Antoni,

Eso es lo que me sale cuando grabo la macro usando referencias relativas y absolutas. Y sí, funciona. Pero es que quería aprender a hacerlo sin usar grabación de macros.

Un saludo

[Antoni]

Hace 1 hora, lidavq dijo:

Muchas gracias, Antoni,

Eso es lo que me sale cuando grabo la macro usando referencias relativas y absolutas. Y sí, funciona. Pero es que quería aprender a hacerlo sin usar grabación de macros.

Un saludo

A ver, publicas una consulta en el foro de macros, pero no quieres una macro. ¿Entonces que quieres?,  porqué no se entiende. 

[JSDJSD]

Creo que lo que pretende es hacer su propia macro pero sin usar la grabadora de macros, verdad? lidavq

[lidavq]

Sí, eso exactamente.  Me interesa aprender VBA, y además el código va a ser visible y no quiero que de tanto cantazo  a "noTengoNiIdeaYHeGrabadoUnasMacros" jaja

[lidavq]

A parte,  necesito comprender por qué cuando se escribe el código de una forma el AUTOFILL funciona inteligentemente, y cuando se usan las celdas a pelo ya no....

[Haplox]

Hace 13 horas, lidavq dijo:

Sí, eso exactamente.  Me interesa aprender VBA,

Me temo que la única opción son tutoriales en internet (que los hay a patadas) y mucha práctica del tipo prueba y erorror, prueba y error....

[lidavq]

Hace 21 horas, Haplox dijo:

Me temo que la única opción son tutoriales en internet (que los hay a patadas) y mucha práctica del tipo prueba y erorror, prueba y error....

Buenas, no entiendo bien tu mensaje. Lo temes? Es obvio que es la manera de aprender y así lo estoy haciendo. No pretendo que me enseñéis VBA entre todos, solo he hecho una pregunta concreta sobre una duda a la que no encuentro solución tras haberla investigado todo lo que he podido.

[Antoni]

Hace 23 minutos , lidavq dijo:

Buenas, no entiendo bien tu mensaje. Lo temes? Es obvio que es la manera de aprender y así lo estoy haciendo. No pretendo que me enseñéis VBA entre todos, solo he hecho una pregunta concreta sobre una duda a la que no encuentro solución tras haberla investigado todo lo que he podido.

No tienes una duda, tienes un error de concepto, tu macro Amano pone un valor en C2, NO UNA FÓRMULA, que es lo que hacen las otras dos macros que si funcionan, por eso al arrastrar hacia abajo lo único que haces es copiar el valor de la celda C2.

Corrige la macro así y verás que si funciona:

Sub Amano()

  'OPCIÓN3: uso rangos, sin grabar la macro--> YA FUNCIONA!!!!

    Range("C2").Formula = "=A2&B2"
    Range("C2").Select
    Selection.AutoFill Destination:=Range("C2:C5")
    
End Sub

 

[Haplox]

Hace 2 horas, lidavq dijo:

Lo temes?

No sé a qué te refieres, pero no

[lidavq]

Muchas gracias Antoni!

[JSDJSD]

Hace 4 horas, lidavq dijo:

Buenas, no entiendo bien tu mensaje. Lo temes? Es obvio que es la manera de aprender y así lo estoy haciendo. No pretendo que me enseñéis VBA entre todos, solo he hecho una pregunta concreta sobre una duda a la que no encuentro solución tras haberla investigado todo lo que he podido.

No malinterpretes las palabras de Haplox  simplemente te da un consejo para seguir avanzando.