Unidad 1. MICROSOFT EXCEL ()

Ejemplo 26:

Responder la pregunta hecha en el párrafo 2, de la página 82.

- Abra el archivo Ej Macros01.

-    Usando [Alt] - [F11] abra el Editor del VBA

-    Abra la carpeta Módulos y seleccione el módulo que contiene el procedimiento relativo a la macro Extraer.

-    Cambie el rango “B2:F3” por “B3:F4”

-    Cambie también “B5” por “B10”

-    Ahora ingrese Frejol canario en B3 y Frejol caballero en B4

-    Ahora ejecute la macro usando [Ctrl] + [j]

Ejemplo 27:

Abra el archivo Fármacos

Escriba un módulo procedimiento Listado que le permita extraer todos los productos farmacéuticos que empiezan con los caracteres ingresados desde el teclado. El módulo debe añadir una nueva hoja y darle nombre Lista. En ella debe dejar los resultados.

Solución

Luego de insertar un nuevo módulo en la ventana del Editor, digite: Sub Listado y presione [Enter]. A continuación escriba las siguientes instrucciones:

    Sheets.Add

    ActiveSheet.Name = "Lista"

    Sheets("Articulo").Select

    Range("A1:D1").Select

    Selection.Copy

    Sheets("Lista").Select

    ActiveSheet.Paste

    Application.CutCopyMode = False

'   Ingresaremos el dato hacia la variable Texto

    Cadena = UCase(InputBox("Ingresa parte de la descripción del producto"))

'   Reduciremos los espacios en blanco de la cadena ingresada

    Cadena = Trim(Cadena)

    NChar = Len(Cadena)

    Sheets("Articulo").Select

    Range("B2").Select

    NReg = Range(Selection, Selection.End(xlDown)).Count

    I = 2

    K = 1

    With Sheets("Articulo")

    While I [= NReg

        If Cadena = UCase(Trim(Left(Cells(I, 2), NChar))) Then

            K = K + 1

            Sheets("Lista").Cells(K, 2) = .Cells(I, 2)

            Sheets("Lista").Cells(K, 3) = .Cells(I, 3)

            Sheets("Lista").Cells(K, 4) = .Cells(I, 4)

        End If

        I = I + 1

    Wend

    End With

Sheets(“Lista”).Select

Range(“E3”).Select

Pág. 1.36

Atrás  Inicio  Adelante





Página inicial  Cursos Informática Gratuitos

Síguenos en:   Facebook       Sobre aulaClic            Política de Cookies