Dante Amor

H o l a: Te el código para tu formulario: Private Sub ComboBox1_Change() 'Por.Dante Amor 'CARGA EL COMBO3 CUANDO CAMBIA EL COMBO1 ComboBox3.Clear If ComboBox1 = "" Then Exit Sub Set h = Sheets("CANTIDADES") Set b = h.Range("D:E").Find(ComboBox1,...

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 =...

H o l a: Al parecer el dato que se almacena en el campo de la tabla dinámica, cuando lo ocupas en los filtros, lo almacena como Texto. Realicé unas pruebas y me funciona así: Sub items() ' Dim PvtTbl As PivotTable Dim pvtItm As PivotItem...

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...

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"?

Pero quieres sumar el resultado de 7 sumas O quieres en un sumar poner 7 condiciones. Sería más claro si explicas con ejemplos y con imágenes lo que tienes en la hoja y lo que esperas como resultado.

Cambia esta línea ActiveWorkbook. SaveAs GuardarComo Por esta ActiveWorkbook. SaveAs GuardarComo, xlOpenXMLWorkbook Si tienes problemas, también cambia esta línea: Extension = .Trim(Right(.Substitute(GuardarComo, ".", .Rept(" ", 500)), 500)) Por esta...

Te anexo la macro actualizada Public Declare Function Beep Lib "kernel32" _ (ByVal dwFreq As Long, _ ByVal dwDuration As Long) As Long ' Sub CARGA_CONSUMOS() Set l1 = ThisWorkbook Set INC = Application.InputBox("INDIQUE DONDE COMENZAR LA CARGA DE...

Te anexo la macro completa para obtener toda la ruta, la última carpeta y el nombre del archivo. Si tus datos están en la columna H, el resultado quedaría así: la macro: Sub Extraer() 'Por.Dante Amor With Range("I2:I" & Range("H" &...

H o l a: No te preocupes, no es ninguna molestia, siempre que pueda con gusto te ayudaré. Te anexo la macro, la probé con 100, 000 registros y es casi inmediata: Sub ExtraerArchivos() 'Por.Dante Amor With Range("B2:B" & Range("A" &...