Dante Amor

H o l a: Envíame tu archivo de excel con la información. Además me envías 4 archivos de ejemplo, 2 de la hoja1 y 2 de la hoja2, es decir, necesito ver cómo quieres los archivos de salida. Me explicas con comentarios cuáles hojas estás generando....

H o l a: Es un procedimiento bastante largo, hay que sincronizar varias macros. - Primero, cuando creas un usuario tienes que guardar en la hoja de "usuarios" a cuáles botones tiene acceso. - Segundo, también deberás tener un administrador que tenga...

Prueba con lo siguiente. Sub GenerarPDF() nombre = Range("H3") & "-" & Range("D7").Value u = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row Range("A1:H" & u).Select Selection.ExportAsFixedFormat Type:=xlTypePDF, _...

Actualmente copia el rango y lo pega en la celda B8 H2. Range("O42:O104"). Copy h1. Cells(8, "B") Si copia el rango "O42:O62", ¿dónde quieres que se pegue? El rango "O70:O80, dónde quieres que se pegue? Y el rango "O88:O104", ¿dónde quieres que se pegue?

H o l a: Te anexo la macro actualizada Sub Macro5() '------ ' Por.Dante Amor '------ Range(Cells(3, "E"), Cells(Rows.Count, Columns.Count)).ClearContents For i = 3 To Range("B" & Rows.Count).End(xlUp).Row fecha = Cells(i, "B") horas = Cells(i, "C")...

Envíame tu archivo con el userform y me explicas con ejemplos, r ecuerda poner tu nombre de usuario en el asunto del reporte.

Vamos una por una Target.addres(False, False) = "A1" target.address te regres "$A$1", pero si le pones (false, false) te regresa "A1" (False, true) te regresa "A$1" (True, false) te regresa "$A1" If Target.Row > 100 Then Exit Sub If Target.count > 1...

Te anexo la macro, cambia "D4" por la celda en la que quieres pegar la ruta completa y el nombre del archivo Sub Ruta_Archivo() 'Por.Dante Amor With Application.FileDialog(msoFileDialogFilePicker) .Title = "Seleccione archivo" .Filters.Clear...

H o la : Te anexo la macro Sub Ocultar_Filas() '--- ' Por.Dante Amor '--- Application.ScreenUpdating = False Rows("2:74").EntireRow.Hidden = False For i = 2 To 74 If Cells(i, "AJ") = 0 Then Rows(i).EntireRow.Hidden = True End If Next End Sub 'S...

H o l a: Te anexo la macro Sub Copiar_Celdas() '--- ' Por.Dante Amor '--- Set h1 = Sheets("Informe Mensual") Set h2 = Sheets("Equipos BESALCO") For Each celda In h1.Range("I14:I18") If celda.Value <> "" Then Set b =...