Elsa Matilde

Entra al Editor (con ALT y F11) Inserta un módulo y allí copia lo siguiente: Sub impresion() 'x Elsamatilde 'configura el rango según valor de celda 'AJUSTAR CELDA If [M2] = 2 Then ActiveSheet.PageSetup.PrintArea = "$A$1:$H$5" ElseIf [M2] = 5 Then...

Falta información en tu consulta, por ej en qué hojas se pegarán los rangos. Te dejo una macro iniciada que pegará el rango en la página siguiente ... aquí debes aclarar si la hoja existe o hay que crear una por cada cliente y en ese caso cómo se...

En el sector de código que transcribo a continuación, agrega la línea que dejo con mensaje: End If 'x Elsamatilde: aqui se elimina el txt kill ruta & arch '---------------- arch = Dir() Loop Application.ScreenUpdating = True MsgBox "Proceso...

Para tu ejemplo este sería un modo: Sub solovisibles() 'x Elsamatilde Range("A4:H4").SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets(6).Range("A1") End Sub

No indicas si lo trabajarás en la hoja Excel o a través de un formulario. En el ejemplo de la imagen utilicé hoja con controles ActiveX (los mismos que utilizarás en un Userform) Selecciona los 2 (o la cantidad que quieras) controles de la 1er fila,...

¿Puedes aclarar un poco lo que necesitas hacer? Si se trata de formularios o Userforms, desarrollados con VBA te invito a descargar la demo de mi manual de Formularios (desde el link que dejo al pie). Allí encontrarás una muestra de modelos de...

Para desarrollar la macro se requiere de más detalles, por ej en qué col se encontrarán las palabras señaladas, a qué hoja enviar los registros, si se acumularán unos a continuación de otros, etc. Lo mejor es que me envies copia de tu hoja (no es...

En lugar de tu línea: Cells(poner + 1, j) = Promt Debes colocar alguna de estas 2 dependiendo de lo que necesites: Cells(poner + 1, j).Formula = "=AVERAGE(" & Cells(i, j) & "," & Cells(i + 1, j) & "," & Cells(i + 2, j) & ")" Cells(poner + 1,...

Enviame tu libro aunque me ocuparé recién el lunes. De todos modos dejo aclarado que no hay ningún inconveniente en utilizar la función Ucase en las distintas versiones Excel, de hecho la venimos utilizando mucho antes. Tu problema es otro y te lo...

En lugar de 'Acivesheet' debes utilizar el nombre de tu otra hoja, y si se trata de otro libro anteponer el nombre del libro. Por ej: FilaLibre= Workbooks(libro2).Sheets("Hoja3"). Cells(.......) Como son muchas las instrucciones lo mejor es que de...