Pablo Díaz

Macro Mejorada para Eliminar Filas con #N/D y #CALC! vba Sub Borrar_Filas() Dim ultifila As Integer Dim Rango As Range Dim celda As Range 'Guardar la última fila utilizada en la columna A ultifila = Range("A65536").End(xlUp).Row 'Establecer el rango...

Código para Ajustar Automáticamente el Ancho de las Columnas vba Sub AjustarAnchoDeCeldas() Dim Rango As Range Dim Columna As Range ' Definir el rango de celdas Set Rango = ThisWorkbook.Sheets("Hoja1").Range("C23:C32") ' Ajustar el ancho de cada...

Debo hacer cotizaciones y necesito guardar la información de los datos de las personas en una BD, sin ocupar Tablas. Lo principal de esto es que queden ordenada según el número de la cotización y mantener el número correlativo de la cantidad de...

Private Sub GuardarPDF() ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=" D:\PRACTICAS\" & Sheets("PRUEBA").Range("J189") & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=True, OpenAfterPublish:=False...

Al copiar una hoja1 del libro1 al libro2, me copia los botones de la hoja1, sería posible me indicaran cual seria la instrucción apropiada para que esto no ocurriera. (Cuando hago copias de un libro a otro con el nombre del nuevo libro en una celda...

Dante Amor escribió esto el 11 de Julio del 2014 aquí en todoexpertos. Macro para encontrar valores duplicados en una misma columna. Los datos los debes poner en la columna "C" a partir de la fila 3. Espero te sirva Sub buscardup() 'Por.DAM f = 3 c =...

Tengo una macro que se detiene en la fila once (11) y no puedo encontrar el motivo, reclama que la carpeta destino no se encuentra, siendo que esta macro debe crearla con el nombre nuevo y dejarla en la Carpeta destino. Sub GenerarArchivoCopia() Dim...

Elsa Matilde el 27-Mar-2009 dio la siguiente respuesta: Un ejemplo: Sub macrosJuntas() Call macro1 Call macro2 Call macro3 End Sub

Con el ejemplo que envías aplica esto que te describo y prueba si es lo que necesitas: 30% Azul $168 aplica esta fórmula =SUMA($B$2:$B$34)*$D$6 50% Naranja $281 aplica esta fórmula =SUMA($B$2:$B$34)*$D$7 20% Amarillo $112 aplica esta fórmula...