Dante Amor

Tienes en la hoja "CONCILIA OCTUBRE 2021" un formato un poco complejo de ir llenando de manera automática. No digo que es imposible, pero tiene varios detalles que necesito que me aclares. 1. Cuando empieza el mes, cuántas filas en blanco tienes en...

Puedes poner una imagen de tu hoja productos, para ver dónde tienes las fechas. Que en la fila se vean las filas y las columnas de excel. Si el importe máximo se repite varias veces, ¿cuál fecha quieres mostrar? Es decir, el producto "Galleta" Fecha...

Prueba la siguiente: Sub Consolidar_csv() 'Por Dante Amor Dim Ruta As String, nom As String Dim arch As Variant Dim l2 As Workbook Dim sh1 As Worksheet, sh2 As Worksheet Dim u1 As Long, u2 As Long, code As Long, lc As Long ' Application.DisplayAlerts...

Set Activador1 = Range("D11,D14,D17,D20,D23,D26,D29,D32,D35,D38,D41,D44,D47,D50,D53,D56,D59,D62,D65,D68,D71,D74,D77,D80,D83,D83,D86,D89,D92,D95,D98,D101,D104,D107,D110,D113,D116,D119,D122,D125,D128,D131,D134,D137,D140,D143") Para simplificar esa...

Te paso el código para ensachar la fila, cuando es 0 y NO tiene aplicado el formato condicional. Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("E3:P500")) Is Nothing Then If Target.CountLarge > 1 Then...

Entiendo que la petición es para una celda. Pero me gustaría contribuir con una opción cuando seleccionan más de una celda. Tal vez, no se requiera para este caso en particular, pero puede ayudar a alguien más con un escenario similar, donde necesite...

¿En cuál columna están los valores? ¿Siempre están separados por un guión?

Existen aplicaciones como google maps, Waze, Apple Maps, que te ayudan a trazar tus rutas; y desde luego, te ayudan a encontrar la ruta más corta y rápida.

Tienes pendiente valoras estas respuestas: ¿Cuántas columnas tiene mi Array birideccional? ¿Crear procedimiento para vaciar los items de un listbox de cualquier formulario? ---- Revisa el siguiente tip para configurar el ancho de columnas: ¿Cómo...

Prueba la siguiente macro: Sub AbrirTodosLosArchivos() Dim wb As Workbook Dim arch As Variant Dim ruta As String ' Application.ScreenUpdating = False Set wb = ThisWorkbook ruta = wb.Path & "\" arch = Dir(ruta & "*.xls*") Do While arch <> ""...