Andrea Díaz

Luis Mondelo respondió: Te paso la solución con un ejemplo: En esta macro copio la hoja1 a un nuevo libro y en la hoja copiada quito los hipervínculos. Sub prueba3() 'Por Luismondelo mio = ActiveWorkbook.Name Workbooks.Add otro = ActiveWorkbook.Name Workbooks(mio).Activate...

Luis Mondelo respondió: Te puedo ayudar, pero necesito saber que 3 hojas de esas 7 son las quieres copiar. Necesito saber el nombre exacto de las hojas. ¿Van a ser siempre las mismas?

Tor Cheer respondió: Si es en combinar correspondencia en el siguiente enlace le guía como solucionar esta situación. https://www.adrformacion.com/blog/problemas_con_las_fechas_al_combinar_correspondencia.html

Dante Amor respondió: En la celda X2, pon la siguiente fórmula: =SI(D2="","IN PROCESS", SI(ESNUMERO(D2),"OK","no es fecha")) Nota: si utilizas punto y coma como separador de parámetros, cambia en la fórmula las comas por puntos y coma. Captura en la celda D2 una fecha...

Muy completa tu información, yo ocupe está opción : Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then Target = UCase(Target) End Sub Funciona muy bien, es decir cumple la función, es automático y cambia a mayúsculas, pero...

Uriel Baray respondió: Esta te sirve: Sub SELECCIONAULTIMA() Sheets(Sheets.Count).Select End Sub No olvides puntuar y finalizar la pregunta

Dante Amor respondió: Prueba con lo siguiente: Sub unionhojas() Application.ScreenUpdating = False Set h1 = Sheets("AÑO 2017") h1.Cells.ClearContents TitOrigen = "A1:w1" 'Rango donde están los títulos Sheets("ENERO 2017").Range(TitOrigen).Copy Sheets("AÑO...

Luis Mondelo respondió: Te paso la macro para conseguirlo: Esta macro te copia todas las hojas a un nuevo libro que grabaremos con el nombre de libro_2.xlsx. Después de copiar las hojas deja grabado y cerrado el archivo libro_2.xlsx Sub copiar_hojas() milibro =...

Dante Amor respondió: Tienes que copiar y pegar hoja por hoja, en tu macro solamente estás copiando noviembre, por eso sólo pega noviembre. Te anexo la macro para copiar y pegar cada hoja Sub exportData() 'Act.Por.Dante Amor ruta = "C:\Users\adiaz\Escritorio\PRUEBA MACRO...

Cecilio Pérez Maqueda respondió: ¿Y no te serviría algo así? ¿O no se encuentran en el mismo rango tus títulos? Tit = range("B2:N2")