Dante Amor

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 ejemplos de xml y un excel con los datos de esos xml Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “san lo”

H o l a: Envíame un ejemplo de lo que tienes y qué es lo que quieres enviar. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Martha Hernandez Baez”

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...

¿Primero quieres hacer una búsqueda y después poder eliminar un registro? Envíame tu archivo con tu userform para adaptar el código Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Razgriz Edge”

Lo más práctico es que los números los tengas en celdas hacia abajo, por ejemplo: Entonces, en la celda B2 pon esta fórmula =SI(A2=0;SI(B1<10;B1+1;0);0) Copia la fórmula hacia abajo hasta el final de tus números. En la celda C2 pon esta fórmula:...

Cambia "firma.jpg" por el nombre del archivo que tiene la firma y logo Private Sub Workbook_Open() 'envía mail 'Por.Dante Amor ' ' Sheets("Task Status").Select ufila = Range("B" & Rows.Count).End(xlUp).Row For i = 4 To ufila If Cells(i, 7) <=...