Jump to content

marco1099

Members
  • Content Count

    15
  • Joined

  • Last visited

About marco1099

  • Rank
    Member
  • Birthday 02/12/1982
  1. Excelente!!!!!!!, era lo que necesitaba, me quito el sombrero ante ti….gracias por el gran apoyo brindado… Saludos!
  2. Hola de nueva cuenta molestándote, ya revisé el archivo, pero, no me adjunta nada y tampoco cambia el nombre del archivo, según el valor de la celda, traté de darle una solución, pero, no pude ¿Qué podrá ser?
  3. Agradezco tu pronta respuesta, pero, he analizado el código que me proporcionas y el Excel, pero, es un poco diferente lo que necesito, ya que como te comentaba en los mensajes anteriores, necesito mandar solamente ciertas celdas a unas cuentas de correo y que de igual manera me dé la opción de poner los destinatarios. Espero que me puedas ayudar, estaré al pendiente
  4. Hola buen día, entiendo lo que comentas, ya leí los avisos, subo el archivo y espero que me puedas ayudar. Saludos! FORMATO- Copy.zip
  5. Hola buenas tardes, he encontrado en Internet esta macro, la cual me sirve para lo que requiero, por otra parte, es posible hacer que el archivo que genera se guarde según el nombre del libro, por ejemplo, si a mí archivo de Excel lo llamó “Prueba 1”, me lo guarde con ese nombre e igual, si le cambié el nombre a “Prueba2” me lo guarde de esa forma. Otra cosa que requiero es saber si uno puede definir los destinatarios a los que se va enviar, ya que con está macro se encuentran ya definido, más sin embargo no siempre se mandan a la misma persona, pensaba hacerlo con Userform para que me diera esa opción de dar de alta los correos necesario, pero, desconozco el proceso. Espero que me puedan asesorar. Sub Enviar_rangodeceldas_correo() Dim OLApp As Outlook.Application Dim OLMail As Object Sheets("TE2").Range("A1:K22").Copy Workbooks.Add Range("A1").PasteSpecial xlPasteValues Range("A1").PasteSpecial xlPasteFormats ActiveWorkbook.SaveAs ThisWorkbook.Path & "\TempRangeForEmail.xlsx" Set OLApp = New Outlook.Application Set OLMail = OLApp.CreateItem(0) OLApp.Session.Logon With OLMail .To = "[email protected]; marco. [email protected] " .CC = " [email protected] " .BCC = " [email protected] " .Subject = "Correo Prueba Macros Excel" .Body = "Se envía adjunto el rango de celdas solicitado" .Attachments.Add (ThisWorkbook.Path & "\TempRangeForEmail.xlsx") .Display End With 'ActiveWorkbook.Close Save Changes = True 'Kill ThisWorkbook.Path & "\TempRangeForEmail.xlsx" Set OLMail = Nothing Set OLApp = Nothing End Sub Editado por moderación para envolver código en etiquetas.
  6. Te explico de nueva cuenta que es lo que requiero: Este archivo está compuesto por una serie de hojas destinadas a realizar una función en específico, pero, hay tres que son las más importantes, las cuales, solamente puse en el archivo. Cada una lleva una secuencia para su ejecución, la cual empieza con la hoja bajo el nombre de “presencia”, lo que hace la macro de esa hoja es traspasar la información a la hoja de “incidencias” y acomodarla según la fecha y el número del participante. Cada vez que hago ese proceso me bloquea los autofiltros de la hojas de las Incidencias, quiero suponer que es por el código que le puse a la macro, porque los quito y me permite hacer los autofiltros, pero, al igual me permite ver las formular, editarlas o borrarlas, lo cual no quiero que pase, ya que es un archivo que voy a compartir con otros usuarios. De igual manera en la hoja Incidencias, tengo un botón (menú) que pasa cierta información a la tercera hoja “Exportar a Tress” y de igual forma me gustaría que cada que haga ese proceso no me bloque el auto filtros. Espero que me haya dado entender, estaré al pendiente d sus comentarios EjemploAyudaXL.zip
  7. Hola No puedo subir el Archivo me dice que es demasiado grande ¿Qué puedo hacer?
  8. Hola, si me funcionó, correctamente para esa hoja ya que anteriormente los filtros se quedaban bloqueados y quitando esa línea de la macro se resolvió para esa hoja el problema, pero, a la hoja donde copia y pega la información se queda bloqueada y sin poder utilizar los filtros, quite la línea ActiveSheet.Protect "10993838", pero, no se puede generar los autofiltros. Espero, que me puedan ayudar!!!
  9. Hola a todos de nueva cuenta: Actualmente, tengo una macro que me genera un reporte especial, pero, esa macro está habilitada para que desproteja y proteja la hoja al final de la ejecución de la macro, por lo que se bloquean ciertas funciones, como el “autofiltro”, mi duda es ¿qué puedo hacer para que cada vez que se ejecute la macro, no se bloquen los autofiltros y pueda hacer uso de esa función? Esta es la macro: Sub Traspasar_a_Incidencias() Worksheets("TRASPASA").Visible = xlSheetVisible ' -1 ActiveSheet.Unprotect "10993838" ActiveSheet.Protect "10993838" ' Traspasar_a_Incidencias Macro ' ActiveWindow.ScrollColumn = 8 ActiveWindow.ScrollColumn = 9 ActiveWindow.ScrollColumn = 10 ActiveWindow.ScrollColumn = 11 ActiveWindow.ScrollColumn = 12 ActiveWindow.ScrollColumn = 13 ActiveWindow.ScrollColumn = 14 Range("Y4:AL4").Select Selection.AutoFill Destination:=Range("Y4:AL2093") Range("Y4:AL2093").Select Sheets("TRASPASA").Select Range("D2:Q354").Select Selection.Copy Sheets("Incidencias").Select Range("D6").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("C6").Select Worksheets("TRASPASA").Visible = xlSheetHidden ' 2 ActiveSheet.Protect "10993838" End Sub
  10. Muchas gracias por la ayuda, ya puede resolver el problema, ya todo funciona correctamente
  11. Gracias, es lo que esperaba, pero, ¿por qué al momento de ver la formula y doy enter se quedan los parámetros de la formula y no el resultado?, algo como esto: =INDEX($D$2:$D$15,MATCH($F11&J$10,INDEX($A$2:$A$15&$B$2:$B$15,),)) Qué se puede hacer para solucionarlos?
  12. Hola a todos, necesito crear un resumen atreves de una tabla dinámica en Excel, pero al momento de que la genere me ponga los valores escritos, más no que me los cambie por número, ya que así no me sirve ¿Qué se puede hacer? Anexo un ejemplo de lo que necesito. EJEMPLO.xls
  13. Gracias!, me funcionó correctamente, ya hice el cambio
  14. Hola buen día: Actualmente tengo la siguiente macro que me ejecuta otras macros de manera automática, el detalle es de que si en el archivo de Excel con nombre "Incidencias SN S36.xls" lo renombro a otro por ejemplo: "Incidencias MD S36.xls", ya no me ejecuta la macro, debido a que siempre busca el nombre original del archivo. La pregunta sería ¿Cómo le hago para que cada que renombre el archivo, esta parte se cambie en automático? y no detenga la operación de la macro ' Cargar_a_3 Macro Application.Run "'Incidencias SN S36.xls'!Fase1_Tres" ActiveSheet.Previous.Select Application.CutCopyMode = False Application.Run "'Incidencias SN S36.xls'!Fase2_Tress" MsgBox "Proceso terminado correctamente" ActiveSheet.Protect "10993838" End Sub
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png