Dante Amor

Copia las 2 hojas en un nuevo libro, entonces envía por correo el nuevo libro. Ejemplo: Sub Correo2hojas() 'Por.Dante Amor ' Dim dam As Object Dim archivo As String Application.ScreenUpdating = False Application.DisplayAlerts = False archivo =...

Ho la Eduardo: Prueba lo siguiente: Private Sub TextBox1_Change() Call sumar End Sub Private Sub TextBox2_Change() Call sumar End Sub Private Sub TextBox3_Change() Call sumar End Sub Private Sub TextBox4_Change() Call sumar End Sub Sub sumar() Dim i...

Te puede interesar: https://youtu.be/uZdFYfDuR8A Sal u dos Dante Amor

Ho la Joako Puedes poner una imagen de cómo quieres el resultado Recomiendo: https://youtu.be/fkMDV64YyE0 Sal u dos Dante Amor

Utiliza el método Find para encontrar datos. Revisa los siguientes ejemplos https://youtu.be/WI1XrCY50mA https://youtu.be/5k0szqErdXg Sal u dos Dante Amor

Revisa los siguientes vídeo te ayudarán a mejorar tus macros. https://m.youtube.com/watch?v=PupmVvM16-8&t=11s https://m.youtube.com/watch?v=HfFCtMl189U&t=198s Sal u dos Dante Amor

Te puede interesar: https://m.youtube.com/watch?v=f_x8pstpNqc&t=259s https://m.youtube.com/watch?v=WI1XrCY50mA&t=142s https://m.youtube.com/watch?v=5k0szqErdXg Sal u dos Dante Amor

Te puede interesar: https://m.youtube.com/watch?v=kvjmJF-5Tf0&t=6s https://m.youtube.com/watch?v=bmCJzc59K3I&t=265s https://m.youtube.com/watch?v=FRvI9loM7ns&t=2s Sal u dos Dante Amor

Ho la Jose. Visita: Macros y Excel Prueba: Sub extraenumero() Dim num As String With Range("C3") num = Left(.Value, InStr(1, .Value, ",") + 2) End With MsgBox num End Sub https://m.youtube.com/watch?v=fkMDV64YyE0 Te puede interesar:...

Te puede interesar https://youtu.be/j2sf0_ZCr7Y