Juan Carlos González Chavarría

Me parece que en este caso sería mejor utilizar una Tabla Dinámica con Rangos Consolidados, Datos-Informe de Tablas y Gráficos Dinámicos. Ahí escoges las hojas que quieres consolidar en una sola. [email protected]

a), no sé a que te refieres con insertar un registro nuevo por cada uno, me imagino que será un campo nuevo. Me refiero que si tienes por ejemplo: Código, Nombre, Dirección. Si necesitas insertar el campo Teléfono y quieres estar presionando la tecla...

Prueba con este código: Sub Delete_N_MarkedRows() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Dim lastrow As Long, r As Long lastrow = Range("A71") For r = lastrow To 1 Step -1 If UCase(Cells(r, 31).Value) = ""...

Así como lo pones es solo de usar multiplicaciones y sumas. Para ver datos a modo de consulta de un producto se usaría la función =BuscarV() y se podría hacer un Filtro Avanzado para ver datos según criterios a aplicar. No sé si me explico, caso...

a), no tienes que utilizar macros para eso, con solo que presiones la tecla Shift y con el puntero del mouse presiones sobre la última hoja que quieres ocultar se marcan las hojas, luego presionas el botón derecho del mouse y escoges ocultar....

Primeramente tendría que ver parte de tu código para que me digas en dónde es que falla. [email protected]

a), para eso tendrías que utilizar el TreeView. Es un poco extenso explicarte cómo integrarlo por lo que prefiero que me escribas y te lo envío por correo para que lo utilices y modifiques según tu proyecto. [email protected]

Intenta con esta rutina: Sub SalvarComo() Application.Dialogs(xlDialogSaveAs).Show End Sub Esto te despliega el cuadro de diálogo para que escojas la ruta y el formato. [email protected]

Voy a suponer que quieres la fórmula aleatoria en E1 y que luego quieres volver a A1, entonces la macro sería la siguiente: Sub NewValue() ' Range("E1").Select ActiveCell.FormulaR1C1 = "=ROUND(RAND()*(10-50)+50,0)" Range("A1").Select Recalcular End...

a), utiliza esta sentencia: ThisWorkbook.Close SaveChanges:=False [email protected]