Dante Amor

Envíame un archivo a mi correo, en el archivo me explicas detalladamente con un ejemplo qué necesitas. Explica el ejemplo utilizando los datos del archivo, utiliza colores, comentarios e imágenes, entre más claro sea el ejemplo más práctica será la ayuda.

Prueba con la siguiente macro Private Sub Exportar_a_Txt() 'Por.Dante Amor Application.ScreenUpdating = False nbre = InputBox("Nombre del archivo") If nbre = "" Then Exit Sub ' ActiveSheet.Copy intUltimaFila =...

Te anexo una macro para arreglar tu tabla En la "Hoja1" pon tu información. Crea 2 hojas y les pones por nombres "Hoja2" y "Hoja3" Ejecuta la macro, el resultado lo verás en la hoja2 Sub Arreglar_Tabla() 'Por.Dante Amor Set h1 = Sheets("Hoja1") 'hoja...

Te anexo una opción hora = Evaluate("=TEXT(" & .Cells(709, lcol) & ",""[h]"")") minutos = Right(Evaluate("=TEXT(" & .Cells(709, lcol) & ",""[h]:mm"")"), 2) Label1630.Caption = hora & ":" & minutos . 'S aludos. Dante Amor. Recuerda valorar la...

No pusiste esta función EPMAddInAutomation, así que no puedo probar tu macro. Le hice algunos cambios a tu macro: Sub Copiar1() ' ' Copiar Macro ' Dim zEPMexample As New EPMAddInAutomation Dim informeactual_Str As String Dim valor_Num As Double Dim...

No puedo descargar el archivo, envíame el archivo adjunto en un correo. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Gerardo Mujica Arevalo” y el título de esta pregunta.

Te anexo la macro Sub Macro5() '------ ' Por.Dante Amor '------ Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") h2.Range(h2.Cells(3, "B"), h2.Cells(Rows.Count, Columns.Count)).Clear ' For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row fecha =...

No entiendo muy bien. Mencionas que quieres copiar registros, pero no explicaste en dónde están esos registros a copiar. Envíame un archivo con 2 hojas. En la hoja1 me marcas de amarillo el registro o registros que quieres copiar y me explicas, cómo...

Te regresa #value porque el valor buscado no existe en la hoja "Simplex" Para evaluar si existe o no el valor buscado, primero tienes que cambiar Application. WorksheetFunction. VLookup Por Application. VLookup Después, tienes que validar con un If,...

Te anexo la macro para que la pongas en los eventos de tu hoja2 "catalogo" Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Por.Dante Amor If Not Intersect(Target, Range("A2:A11")) Is Nothing Then If Target.Count > 1 Then Exit Sub If...