Dante Amor

Te anexo el código actualizado Function CONCATENARCELDAS(rango As Range) For Each celda In rango.Cells If celda.Value <> "" Then resultado = resultado & ", " & celda.Value End If Next celda resultado = Right(resultado, Len(resultado) - 2) ult =...

Con el método .AddItem, es una limitación de VBA, solamente puedes agregar hasta 10 columnas. Para agregar más de 10 columnas, tienes que utilizar la propiedad .RowSource o .List Te anexo unas respuestas donde hay un ejemplo para List y otro para...

Puedes filtrar las filas que muestran "RENEW", copiarlas y pegarlas en otra, después envías la información de la otra hoja. Revisa la siguiente respuesta para enviar un rango de celdas Enviar correos copiando los rangos de celda [ sal u dos

Prueba de esta forma: Private Sub Workbook_Open() ActiveWorkbook. RefreshAll DoEvents Application. Wait (Now + TimeValue("00:00:01")) DoEvents Módulo2. ColoresIconos Módulo3. ExportarIconos End Sub '.[Sal u dos. Dante Amor. No olvides valorar la...

Es correcto lo que comenta Gustavo, lo más practico es crear una tabla dinámica Selecciona los datos, ve al Menú Insertar, Tabla dinámica, puedes seleccionar la opción, Hoja de cálculo existente y seleccionar una celda. Después de la lista de campos,...

Para que funcione de forma automática pon la siguiente macro en los eventos de tu hoja. Private Sub Worksheet_Change(ByVal Target As Range) 'Por Dante Amor col = "H" If Not Intersect(Target, Columns(col)) Is Nothing Then If Target.Count > 1 Then Exit...

Te anexo la macro Sub Compara_Hojas() 'Por Dante Amor Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") h2.Columns("A:C").Interior.ColorIndex = xlNone For i = 2 To h2.Range("A" & Rows.Count).End(xlUp).Row docid = h2.Cells(i, "A").Value valor =...

Te anexo la macro actualizada Private Sub cmdguardar_Click() Application.ScreenUpdating = False Application.DisplayAlerts = False Application.CopyObjectsWithCells = False Worksheets("Caja").Activate Worksheets("Caja").Visible = True...

Te anexo la macro, solamente actualiza en la macro los nombres de tus hojas. Supongo que tus datos empiezan en la fila 2, si empiezan en otra fila, cambia en la macro el 2 en esta línea por el número de fila: For i = h1.Range("AK" &...

Ejecuta la siguiente macro, el número de pdfs lo pondrá en la celda A3 Sub ContarPdf() 'Por Dante Amor ruta = "C:\scanneados\" arch = Dir(ruta & "*.pdf") Do While arch <> "" cuenta = cuenta + 1 arch = Dir() Loop Range("A3").Value = cuenta End Sub...