Dante Amor

¿Quieres crear una hoja nueva por cada dato que aparece en la columna "F" desde F5 hasta el final de los datos? Quieres copiar g5, g12, ¿g13 y en dónde los quieres pegar? ¿Puedes poner todas las celdas que quieres copiar y exactamente en dónde...

H o l a : Te falta un parámetro, el tipo de figura que quieres agregar, por ejemplo si quieres un rectángulo: ActiveSheet. Shapes.AddShape(msoShapeRectangle, 34.5, 28.5, 72#, 72#).Select En este enlace puedes ver las figuras:...

Te anexo la macro para filtrar en la hoja1 y pasar a la hoja2 Private Sub CommandButton1_Click() 'Por.Dante Amor Application.ScreenUpdating = False Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") h2.Rows("5:" & Rows.Count).ClearContents...

Te anexo la macro para outlook Sub Pdf_Enviar_Correos_Gmail() '--- ' Por.Dante Amor '--- '***Macro Para enviar correos por Outlook Application.DisplayAlerts = False Application.ScreenUpdating = False Set h = Sheets("REGISTRO") ' ruta =...

Te anexo la macro Sub Borrar_Filas() 'Por.Dante Amor Application.ScreenUpdating = False For i = Range("C" & Rows.Count).End(xlUp).Row To 3 Step -1 If WorksheetFunction.CountIf(Range("C:C"), Cells(i, "C")) > 1 Then Rows(i).Delete Next...

Te anexo la macro actualizada para el nuevo formato Dim h1, h2 ' Private Sub GUARDAR_Click() 'Por.Dante Amor If PROFESOR.Value = "" Or PROFESOR.ListIndex = -1 Then MsgBox "Falta el profesor" PROFESOR.SetFocus Exit Sub End If If GRUPO.Value = "" Or...

Envíame tu archivo, me explicas cómo lleno el form y de dónde a dónde quieres pasar información y cuáles datos. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “jonathan martinez salazar” y el título de esta pregunta.

Envíame 2 archivos, el primer archivo en excel con la información a exportar. El segundo archivo con la información en txt. Además me envías el procedimiento que realizar para exportar manualmente el archivo a txt, necesito que me digas que opción de...

Envíame tu archivo con ejemplos reales, con colores y me comentarios me explicas qué datos se copian y en cuál hoja se pegan. Trataré de que sea automático, pero lo más seguro es que tengas que presionar un botón para realizar las copias. Mi correo...

Te anexo la macro con los cambios Private Sub CommandButton4_Click() If UserForm1.OptionButton3 = False And UserForm1.OptionButton4 = False Then MsgBox "Selecciona un destinatario" Exit Sub End If If UserForm1.OptionButton3 = True Then destinatario =...