Luis Barrales

kumbus respondió: En el evento UserForm Activate de un formulario creado en Excel Dim Boletas(10000) As String Dim BoletasRellenas(10000) As String Dim BoletasBoleta(10000) As String Dim BoletasTipo(10000) As String Private Sub UserForm_Activate() With Hoja1 b = 0...

Estás pidiendo algo tan amplio como indefinido... Especifica tus solicitudes y anda por partes.

Iván Martin Barrera respondió: Prueba con esta fórmula =SIERROR(CONSULTAV(IZQUIERDA(E6;1);Hoja1!$A$1:$B$12;2;0);"") Los signos monetarios $ permiten bloquear parte de la formula. Si pones $A1 y la arrastras, solo cambiara los valores de fila, quedando bolequeada la columna A Si...

Dante Amor respondió: Puede ser así. Lo que hace es brincarse el primer valor encontrado y borrar los siguientes. 'Por. Dante Amor una = True Set h = Sheets("Empleador") Set r = h.Columns("A") Set b = r.Find(ComboBox1, lookat:=xlWhole) If Not b Is Nothing Then celda =...

Dante Amor respondió: Te anexo algunas opciones: Sub im4() 'Por.Dante Amor ruta = "c:\trabajo\" arch = "fig1.gif" ' Set fotografia = ActiveSheet.Pictures.Insert(ruta & arch) With fotografia .Name = "imagen temporal" .Top = Range("F2").Top 'Para poner en la celda F2 .Left...

Dante Amor respondió: H o l a: ¿Pero quieres una función de VBA o quieres una fórmula de excel? ¿Si es una fórmula en cuáles celdas van a estar los datos a buscar "SOCIEDAD TODOEXPERTOS LIMITADA" y el dato "BONO PASAJES"?

Dante Amor respondió: H o l a : Te anexo el código Set h1 = Sheets("personal") For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row If h1.Cells(i, "AD") = "SI" And _ h1.Cells(i, "H") Like "*CAPATAZ*" Then ComboBox1.AddItem h1.Cells(i, "b") End If Next' : ) 'S aludos....