Dante Amor

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

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