Dante Amor

Prueba con lo siguiente, ajusta los nombres de tus controles. La idea es una macro que revise cada cierto tiempo la hora. Yo puse que se revise cada 30 minutos, pero lo puedes ajustar a cada 10 minutos o cada 50 minutos. Private Sub...

Prueba con lo siguiente, cambia "Hoja2" por el nombre de tu hoja Private Sub Workbook_BeforeClose(Cancel As Boolean) 'Act.Por.Dante Amor Set h = Sheets("Hoja2") Set rng = h.Range("A1:A20") h.Select For Each celda In rng If celda.Value <> "" Then If...

Una opción es que cambies el formato de la columna, selecciona la columna, entra al menú Inicio, Formato, Formato de celdas, Selecciona Personalizada, en Tipo escribe 13 ceros: 0000000000000 Presiona Aceptar Pero el formato solamente es un efecto...

Tienes 2 libros Libro origen con los datos Libro destino donde quieres el resultado ¿En el libro origen en cuál hoja están los datos?¿En el libro origen en cuál columna están las cédulas?¿Pueden existir varios registros con la misma cédula o...

Envíame un par archivos des esos 30 archivos y me dices cuáles líneas quieres copiar y también me anexas el "archivo nuevo" donde pegaste las líneas.

Cambia en la macro los siguientes datos: "Diario" por el nombre de tu hoja donde capturas los datos. "global" por el nombre de tu hoja destino f = 2 'fila donde quieres la fecha Te anexo la macro. Sub Pasar_A_Global() 'Por.Dante Amor Set h1 =...

Si tienes los 5 optionbutton en un solo Grupo (GroupName), entonces solamente uno de ellos puede estar en Verdadero (True) De acuerdo a lo anterior, solamente hay que revisar cuál de los 5 optionbutton está Verdadero, puede ser así: Set h =...

Puedes poner unos ejemplos O envíame tu archivo con el formulario y me explicas lo que quieres hacer y qué esperas de resultado Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “DA L”

Envíame un correo nuevo, en el asunto del correo pon tu nombre de usuario: "Systemas" Me envías ejemplos de xml y en un excel me pones los datos que quieres de los xml

Te anexo la macro actualizada Private Sub Worksheet_Change(ByVal Target As Range) 'Act.Por.Dante Amor If Target.Count > 1 Then Exit Sub If Target.Value = "" Then Exit Sub If Target.Row = 1 Then Exit Sub ' If Target.Column = Columns("F").Column Then...