Adriel Ortiz Mangia

[Hola prueba esto Function insertarRegistro(OrdendeCompra As String, Fecha As String, N°deTransporte As String, Proveedor As String, GuiadeDespacho As String, Factura As String, Cantidad As String, Producto As String, Comentario As String,...

H o l a te paso la macro Private Sub CommandButton1_Click() Set h1 = Sheets("Hoja1") Set r = h1.Columns("A") Set b = r.Find(ComboBox1, lookat:=xlWhole) If Not b Is Nothing Then h1.Cells(b.Row, "B") = TextBox1 End If End SubPrivate Sub...

H o l a te paso la macro Sub imprimir() Set h1 = Sheets("Hoja1") hoja = h1.Range("A2") If hoja = "" Then MsgBox "ingrese nombre de la hoja a imprimir", vbCritical For Each h In Sheets If UCase(h.Name) = UCase(hoja) Then imprime = True Exit For End If...

H o l a prueba esto y me comentas Sub comparar() '//Por Aortiz ' Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") ' For i = 2 To h2.Range("A" & Rows.Count).End(xlUp).Row ' Set b = h1.Cells(i, "B").Find(h2.Cells(i, "B"), lookat:=xlWhole) ' If Not b...

Te paso la macro actualizada Private Sub CommandButton1_Click() '//Act. por Aortiz 'Asignando Objetos de busqueda y hojas Set h1 = Sheets("Plan MP") Set b = h1.Columns("B").Find(TextBox1, lookat:=xlWhole) u1 = h1.Range("B" & Rows.Count).End(xlUp).Row...

H o l a te paso la macro Ingresas el rut, presionas enter y automáticamente te volcará los datos y llenas las casillas necesarias y lo registras Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If TextBox1 = "" Then Exit Sub Set h =...

H o l a ¿Cuál es el rango al borrar?

Revisa esta web http://www.taringa.net/post/info/12161192/Quitar-contrasena-visual-basic-de-excel.html

H o l a: La respuesta de Dante es interesante para solucionar tu problema Como abro un hipervínculo desde un Listbox en Excel Esto para abrir hipervínculo Como agrego una condición para que Listbox abra un hipervínculo. Si no logras adaptar el código...

H o l a Ta paso la macro Private Sub CommandButton1_Click() 'Fuente Elsa 'Act. Adriel Set h1 = Sheets("Hoja3") Set b = h1.Range("A:A").Find(ComboBox1, lookat:=xlWhole) If b Is Nothing Then MsgBox "No se encuentra" Exit Sub End If Range("A" &...