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
Mega | MediaFire | Descarga Directa
Capítulo Anterior Lista de Capítulos Capítulo Siguiente
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
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
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