Dante Amor

Te anexo la macro, copia de A9 hasta T & u (última fila con datos), lo copia de la hoja1, y lo pega en la hoja2, insertando esos datos antes de la fila 2, si quieres que se inserten en otra fila, cambia el 2 en "A2", por el número de fila que quieras...

Me puedes enviar 3 archivos: En el archivoa en la hoja1 pones los datos antes de la extracción. En el mismo archivo1 en la hoja2 pones los datos después de la extracción. En el archivo2, me pones el dato a extraer, me explicas cómo lo localizo, este...

No entendí, ¿los datos en la hoja2 ya existen y solamente hay que hacer sumas? ¿O qué datos existen en la hoja2 y qué hay que hacer? ¿Para qué la hoja1?

H o l a: Envíame tu archivo con un par de ejemplos, en la hoja1 me pones los datos que tienes, y en la hoja2, pones los resultados que esperas, en la hoja2, con comentarios me explicas cada ejemplo. Mi correo [email protected] En el asunto del correo...

Puedes poner varios ejemplos y qué resultado esperas en cada ejemplo.

H o l a: Envíame tu archivo con tu formulario para ver cómo tienes los dato, explícame con un ejemplo de algún usuario, qué datos quieres que te muestre. En base a qué se calcula el último ingreso, ¿a una fecha? Mi correo [email protected] En el...

H o la: Podrías enviarme un archivo con ejemplos de lo que tienes y en otra hoja me pones el ejemplo de lo que esperas de resultado. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “alba sol” y el título de esta pregunta.

H o l a: Te anexo el código actualizado Sub Enviar_a_pdf() ' Ruta = ActiveWorkbook.Path & "\" nom = Mid(ActiveWorkbook.Name, 1, (InStr(ActiveWorkbook.Name, ".") - 1)) nom = "RecibodeBodega " & nom Archivo = nom & Range("E8").Value & " " &...

Te anexo el código actualizado Private Sub CommandButton1_Click() 'Act.Por.Dante Amor If TextBox1.Value = "" Or TextBox1.Value = "@gmail.com" Then MsgBox "Ingrese su correo electrónico para enviarle una respuesta", vbExclamation Exit Sub End If If...

Te anexo la macro actualizada Sub Guardar_Datos() '--- ' Por.Dante Amor '--- ' Set h1 = Sheets("Datos") 'origen Set h2 = Sheets("Planilla Final") 'destino Set h3 = Sheets("Codigos") ' For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row 'buscar...