Dante Amor

Podrías explicar con 2 imágenes. La primera imagen pon ejemplos de lo que tienes en tus columnas. En la segunda imagen pon el resultado que necesitas.

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

Podrías explicar con 2 imágenes. La primera imagen pon ejemplos de lo que tienes en tus columnas. En la segunda imagen pon el resultado que necesitas en la "nueva" columna.

Puedes poner ejemplos... Debes poner información para que te podamos ayudar. Qué columnas hay que copiar, en cuál fila empiezan los datos, en cuál fila pegar, todas las hojas tienen la misma estructura, etc, etc. Debes tomar en cuenta que no...

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