Dante Amor

H o l a: Con esta macro obtienes el número de serie de tu disco duro: Sub DriveSerialNumber() Range("A5") = CreateObject("Scripting.FileSystemObject").GetDrive("C:\").SerialNumber End Sub El número de disco te lo poner en la celda A5. Ahora toma ese...

H o l a: Te anexo la macro actualizada Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Por.Dante Amor If Target.Count > 1 Then Exit Sub ' Set celdas = Range("B2:B193") If Not Intersect(Target, celdas) Is Nothing Then Set h =...

H o l a: Este es el código para el userform1, lo que hace es, cada que cambias el dato del combobox1, busca en la hoja1, en la columna A, si encuentra el dato, oculta el userform1, le pasa el número de fila al userform2, abre el userform2. Private...

H o l a: Para realizar la macro tienes que explicar cómo se debe realizar la actualización. Envíame 3 archivos, tu archivo de excel, y 2 archivos notepad. Supongo que los archivos que su nombre termina en A actualizan a la tabla "Conector A" y que...

H o l a Te envié una respuesta, falta que definas unos datos y unos ejemplos.

H o l a: Si es posible, falta que digas cómo es el formato 2 y el formato 3. ¿Los formatos 2 y 3 también son contadores? Puedes poner una imagen. Que se vean 2 o 3 veces las repeticiones . Sa l u d o s

H o l a: ¿Y entonces qué necesitas? La macro para generar un pdf por hoja. ¿O tú vas a crear los archivos? Para terminar la macro tienes que indicar de dónde se va a tomar el correo del destinatario para cada hoja. Qué se va a poner en el asunto del...

H o l a: El formato condicional lo puedes realizar seleccionando todas las celdas. Te anexo un par de vídeos para ver si te ayudan. https://www.youtube.com/watch?v=K0mxZ7xoU2I https://www.youtube.com/watch?v=o53MilQlwRo Si no te ayudan los vídeos,...

No, no entendí. Puedes explicarlo con ejemplos.

H o l a: Te anexo la macro Sub poner_salto_pagina() 'Por.Dante Amor Set h1 = ActiveSheet h1.ResetAllPageBreaks For i = 26 To h1.UsedRange.Rows.Count Step 25 h1.HPageBreaks.Add Before:=Cells(i, "A") Next h1.PrintOut End Sub s a l u d o s