Anónimo
Hola Elsa necesito su ayuda con macro
Buen Día, Elsa, ayer recibí el archivo de la macro para extraer números y cerré la pregunta, pero no me percate que cuando se le piden números de 3 cifras por ejemplo recorre la fila que tiene 40 números, entonces formara 13 cantidades dejando 1 valor que lo concatena con el valor de la primera columna de la siguiente fila o sea que este ya no lo forma de 3 sino que de 2 cifras, la ayuda que necesito ahora es si se puede dar la orden a la macro para que la cifra o cifras que quedan en la fila anterior sean concatenadas con las de la siguiente pero obedeciendo el número de cifras solicitadas.
Por su atención Muchas Gracias.
Por su atención Muchas Gracias.
1 respuesta
Respuesta de Elsa Matilde
1
Hola, ya le cambie y concatena los números tal como los necesito, solo que ahora al momento de la comprobación deja mostrar los que se repiten,
Disculpa, pero en ningún momento consideré si son repetidos o no, se me pasó esa condición...
Agregá esto a tu rutina, buscando la línea que dice : 'comprobación . Las líneas negras ya están en la rutina original, pero todo lo que esté entre ellas debe ser reemplazado por estas. Si necesitas el libro te lo enviaré.
'comprobación
If Val(nro) <= lim And Val(nro) <> 0 Then
'controla si ya no está en la lista
If colres > 5 Then
y = 5
While y < colres
If Sheets("Hoja1").Cells(23, y) = Val(nro) Then
contr = 1
End If
y = y + 1
Wend
End If
If contr = 1 Then
contr = 0
Else
Sheets("Hoja1").Cells(23, colres) = nro
colres = colres + 1
i = i + 1
End If
End If
ind = 1
nro = ""
Aquí hay muchas variables que utilizan el formato del modelo, por eje que la lista devuelta esté en fila 23 a partir de col 5. Si modificas esto, tendrás que revisar cada variable para ajustarlas.
Agregá esto a tu rutina, buscando la línea que dice : 'comprobación . Las líneas negras ya están en la rutina original, pero todo lo que esté entre ellas debe ser reemplazado por estas. Si necesitas el libro te lo enviaré.
'comprobación
If Val(nro) <= lim And Val(nro) <> 0 Then
'controla si ya no está en la lista
If colres > 5 Then
y = 5
While y < colres
If Sheets("Hoja1").Cells(23, y) = Val(nro) Then
contr = 1
End If
y = y + 1
Wend
End If
If contr = 1 Then
contr = 0
Else
Sheets("Hoja1").Cells(23, colres) = nro
colres = colres + 1
i = i + 1
End If
End If
ind = 1
nro = ""
Aquí hay muchas variables que utilizan el formato del modelo, por eje que la lista devuelta esté en fila 23 a partir de col 5. Si modificas esto, tendrás que revisar cada variable para ajustarlas.
Buen Día, ya agregue los datos y puse como variables "y", y "contr" y funciona a la perfección; Muchas Gracias por su ayuda.
Saludos
Att. David
Saludos
Att. David