Dante Amor

Te anexo la macro, pon todo el código en un módulo: Sub CopiarArchivos() 'Por.Dante Amor ruta = [B2] incluye = UCase([B3]) dest = [B4] ext = [B6] ' If ruta = "" Or incluye = "" Or dest = "" Or ext = "" Then MsgBox "Complete los datos" Exit Sub End If...

Para listar los archivos solamente necesitas estas macros. Pon la extensión en la celda C9 Dim iRow ' Sub ListFiles() iRow = 11 Rows(iRow & ":" & "65536").Clear Call ListMyFiles(Range("C7"), Range("C8"), Range("C9")) End Sub ' Sub...

Prueba con lo siguiente: Sub AjustarGrafica() For Each grafica In ActiveSheet.ChartObjects grafica.Select For Each wserie In ActiveChart.SeriesCollection If wserie.Name = "FluidD" Then Set BA1 = ActiveChart.SeriesCollection("FluidD") With BA1 With...

H o l a : Crea un commandbutton en tu formulario. Pon el siguiente código en tu formulario Cuando presiones el botón, se generará un archivo con el nombre de "archivo.pdf", se abrirá el mail para que lo revises y lo puedas enviar. Private Sub...

Te anexo el código Private Sub CommandButton2_Click() If ListBox1.ListIndex = -1 Then MsgBox "Selecciona un registro del listbox" Exit Sub End If For Each h In Sheets If h.Visible = -1 Then h.Range("G4").Value = ListBox1.List() End If Next Unload Me...

H o l a : Te anexo las macros con la versión para enviar correos masivos con firma e imagen. Las siguientes macros van en los eventos de la hoja1 Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor On Error Resume Next If Target.Count...

H o l a : Te anexo las fórmulas. Pon la siguiente fórmula en la celda D2 =MAX(($A$2:$A$100<>"")*(FILA($A$2:$A$100)))-SI(MAX(($A$2:$A$100=D1)*FILA($A$2:$A$100))=0,1,MAX(($A$2:$A$100=D1)*FILA($A$2:$A$100))) En la fórmula puse la coma "," como separador...

H o l a: Envíame en un correo nuevo tu archivo con el formulario. Escribe tu nombre de usuario en el asunto. Describe en esta pregunta todo el detalle que se requiere para capturar la pantalla. Nombre de hoja.Nombre de archivoTipo de archivo.Tienes...

H o l a: Prueba con lo siguiente: Dim nombre2 As String, Ruta2 As String 'Ruta2 = Range("a1").Value Ruta2 = CreateObject("WScript.Shell").SpecialFolders("Desktop") nombre2 = Range("a2").Value ActiveWorkbook.SaveAs Filename:=Ruta2 & "/" & nombre2 'S...

Te anexo la primera parte para agregar usuarios y su imagen. Private Sub CommandButton1_Click() 'Act.Por.Dante Amor Set b = Hoja6.Columns("A").Find(txt_nUser, lookat:=xlWhole) If Not b Is Nothing Then MsgBox "El usuario ya existe" & vbCr & "Ingrese...