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

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

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

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

De esta manera me funciona: Private Sub Worksheet_Change(ByVal Target As Range) Dim xPTable As PivotTable Dim xPFile As PivotField Dim xStr As String Dim i As Long Dim n As Variant ' Application.ScreenUpdating = False If Intersect(Target,...

Suponiendo que tienes datos en la fila 10. Prueba esto: Sub ultimafila() Dim lr As Long lr = ActiveSheet.Range("C11:I18").Find("*", , xlValues, , xlByRows, xlPrevious).Row End Sub

Pon la siguiente fórmula en B2: =SI.ERROR(INDICE(A1:A10;COINCIDIR(B1;A2:A100;0));"no existe") Ejemplo:

[Tienes pendiente valorar estas respuestas: Buscar texto dentro de un rango de celdas Buscar texto dentro de un rango No sé exactamente a qué te refieres con "acceso directo", pero si te refieres a un hipervínculo para ir a la hoja, entonces debes...

Prueba la siguiente fórmula en la celda C2: =SUMAR.SI.CONJUNTO(INDIRECTO("'" & B2 & "'!B$5:Z$5"),INDIRECTO("'" & B2 & "'!B$1:Z$1"),">="&$K$1,INDIRECTO("'" & B2 & "'!B$1:Z$1"),"<="&$K$2)

Prueba así: libre = Hoja18.Range("A65536").End(xlUp).Row + 1 Hoja18.Range("a" & libre) = TextBox1