Visual Basic para Aplicaciones - Vba en Excel parámetros en funciones

Public Sub cumplimentar()

Dim palabra As String

Dim palabra1 As String

Dim palabra2 As String

palabra = InputBox("Palabra a buscar")

palabra1 = "*"

palabra2 = palabra1 & palabra & palabra1

Range("K26").Value = palabra

Range("K27").Value = "=SUM.IF(C4;_palabra2;D4)"

End Sub

Public Sub cumplimentar()

    Dim palabra As String

    Dim ultFila As Long

    Dim f As Long

    Dim suma As Double

    'LA VARIABLE ULTFILA DEBE DE SER UNA COLUMNA QUE CONTENGA EL MAYOR NUMERO DE FILAS DENTRO DE LOS RANGOS A BUSCAR

    ultFila = Range("A" & Rows.Count).End(xlUp).Row

    'LA VARIABLE F ES SOLO PARA INDICAR DESDE QUE FILA SE EMPEZARA A HACER LA SUMA, YO LA PUSE EN 2 PORQUE ME IMAGINO

    'QUE LA PRIMER FILA ES EL ENCABEZADO DE LOS DATOS Y LOS REGISTROS EMPIEZAN DESDE LA FILA 2, SI NO ES ASI CAMBIALA

    f = 2

    palabra = InputBox("Palabra a buscar")

    Do While f <> ultFila + 1

        ' AQUI SE LE INDICA QUE BUSQUE LA PALABRA INTRODUCIDA SIN IMPORTAR EN QUE PARTE DE LA CADENA DE TEXTO

        ' SE ENCUENTRE MIENTRAS COINCIDAN LOS CARACTERES "LIKE", LA FUNCION UCASE ES PARA QUE NO LE IMPORTE SI

        ' ESTA EN MAYUSCULAS O MINUSCULAS PERO SI TIENE ACENTO LA PALABRA BUSCADA O LA PALABRA EN LA CELDA Y NO

        ' LO PONES, NO LA ENCONTRARA, PARA QUE TE DE LAS PALABRAS CON ACENTO A LA HORA DE ESCRIBIRLA EN EL INPUTBOX

        ' LA SUSTITUYES POR UN "?", POR EJEMPLO LA PALABRA "código" LA PONDRIAS "c?digo" DE ESTA FORMA LE INDICAS

        ' QUE DE POR BUENO CUALQUIER CARACTER QUE SE ENCUENTRE EN LA POCISION DEL SIGNO ?, por ejemplo

        ' cadigo,c-digo,c digo, c.digo,etc...

        If UCase(Range("C" & f)) Like "*" & UCase(palabra) & "*" Then

            suma = suma + Range("D" & f).Value

            f = f + 1

        Else

            f = f + 1

        End If

    Loop

    Range("K26") = palabra

    Range("K27") = suma

    ' PARA USAR UNA FORMULA EN UNA CELDA DESDE VBA HAY VARIAS FORMAS

    ' PARA SACAR LA FORMULA LOCAL SOLO ESCRIBELA NORMALMENTE EN UNA CELDA DE LA HOJA, LA COPIAS

    ' DESDE LA BARRA DE FORMULAS Y LA PEGAS EN EL CODIGO EN VBA

    ' Range("K27").FormulaLocal = "=SUMAR.SI(C:C,""recibo"",D:D)", la parte que va en texto debe de ir entre comillas

    ' con sus respectivas comillas que indican que es un texto para lo que tu querias hacer era asi

    ' Range("K27").FormulaLocal = "=SUMAR.SI(C:C,""" & palabra & """,D:D)"

End Sub

Public Sub cumplimentar()

    Dim palabra As String

    palabra = InputBox("Palabra a buscar")

    If palabra <> "**" Then

        Range("K26").Value = palabra

        Range("K27").Formula = "=SUMIF(C3,""=*" & palabra & "*"", C4)"

    Else

        Range("K26").Value = ""

        Range("K27").Value = ""

    End If

End Sub