Dante Amor

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

Puedes desproteger la hoja y proteger la hoja en la misma macro. Cambia "abc" por tu password. Private Sub Resalta() Dim R As Long Dim C As Long Dim X As String R = ActiveCell.Row C = ActiveCell.Column ActiveSheet.Unprotect "abc" If R < 2 Or R > 500...

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

Pon aquí el código para realizar los ajustes.

Puedes poner una imagen. No entiendo muy bien tu ejemplo. ¿La cadena de números está en una sola celda? Tu comentario es: "Colocados en una lista dentro de una columna", ¿entonces es una lista o es un solo dato? ¿Cómo saber cuál de todos los "1" es...

No es clara la secuencia. - T1 = 1 - B3 = 6 - entonces T3 = 1, ¿qué pasa con U3, V3, etc...? - B4 = 28 - entonces T4 = 1, ¿qué pasa con U4, V4, etc...? - B5 = 6 - entonces T5 = 1, ¿qué pasa con U5, V5, etc...? - ¿B6 = 7 o primero T1 = 2? - Si primero...

[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