Libre Office Calc – Capítulo 7

Curso de Libre Oficce Calc - Capítulo 7

LLAMADO DE DATOS (BUSCARV)

Aprende a realizar llamados de datos para administrar empresas o negocios, veremos el uso adecuado de la función BuscarV y BuscarH con unos ejemplos sencillos pero muy prácticos, diseñados para todo tipo de personas.

Espero ser muy claro en el tema y recuerden que esta función trabaja de la misma manera en excel sin importar su versión (2016, 2013, 2010, 2007)

Descargar Libre Office (Pagina Oficial)


DESCARGAR MATERIAL DE APOYO
Descarga el archivo que vemos en el vídeo desde los siguientes enlaces

Descargar desde Mega Descargar desde MediaFire

Descarga Directa

Mega | MediaFire | Descarga Directa

Capítulo Anterior Lista de Capítulos Capítulo Siguiente


3 Comentarios

  1. lucia

    buen día : solo quiero aprovechar este espacio para agradecerte infinitamente por compartir tus conocimientos… he aprendido muchísimo y la forma en la q explicas es muy fácil de entender

  2. Viviana

    Hola Dostin, buen día.
    ¿Por qué no puedo poner en la matriz la celda hasta 1,000.000? Solo me deja hasta 1,000

  3. Marilen

    Hola Dustin.
    Copié textual el código , pero a mi no me correo , me da un error y por mas que reviso no encuentro el error , por favor me puedes ayudar . Aquí está el código que copié :

    Public filalibre As Integer
    Public control As Integer
    Public ubica As String

    Private Sub CommandButton1_Click()
    Sheets(«sheet5»).Select
    If control > 0 Then
    ´actualizar datos
    Range(ubica).Value = TextBox1
    Range(ubica).Offset(0, 1).Value = TextBox2
    Range(ubica).Offset(0, 2).Value = Val(TextBox3)
    control = 0

    Else
    ´crear nuevos
    Cells(filalibre, 1).Value = TextBox1
    Cells(filalibre, 2).Value = TextBox2
    Cells(filalibre, 3).Value = Val(TextBox3)
    End If
    TextBox1 = Empty
    TextBox2 = Empty
    TextBox3 = Empty
    TextBox1.SetFocus

    End If

    End Sub

    Private Sub CommandButton2_Click()
    TextBox1 = Empty
    TextBox2 = Empty
    TextBox3 = Empty
    TextBox1.SetFocus

    End Sub

    Private Sub CommandButton3_Click()
    Unload UserForm1

    End Sub

    Private Sub TextBox1_AfterUpdate()
    Sheets(«sheet5»).Select
    filalibre = Range(«A2»).End(xlDown).Offset(1, 0).Row
    control = 0
    dato = TextBox1
    rango = «A2:A » & filalibre
    Set midato = ActiveSheet.Range(rango).Find(dato, lookin:=x1values, lookat:=x1whole)

    If (midato) Is Nothing Then
    MsgBox «no se encontraron los datos cree uno nuevo»
    Else
    ubica = midato.Address(False, False)
    TextBox2.Value = Range(ubica).Offset(0, 1).Value
    TextBox3.Value = Range(ubica).Offset(0, 2).Value
    control = 1
    MsgBox «datos cargados con exito»
    End If
    midato = Nothing
    End Sub

Responder a Marilen Cancelar la respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *