Dante Amor

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

Envíame tu archivo para revisarlo, en el correo me explicas qué necesitas. mi correo [email protected]

Prueba esto: Private Sub UserForm_Initialize() Dim sh As Worksheet Dim lr As Long Dim a As Variant Dim i As Long ' Set sh = Sheets("compras") lr = sh.UsedRange.Rows(sh.UsedRange.Rows.Count).Row a = sh.Range("A1", sh.Cells(lr, sh.Cells(2,...