Programación VBA Estoy rogando por un programa maestro. ¡Quiero ingresar cualquier valor del 0 al 9 en la columna A y generarlo cuando el valor correspondiente aparezca en la columna B o en cualquier otra columna (no en la columna A)!
'Un poco molesto, muchas células cerebrales murieron, jaja, el código es el siguiente: (haga clic derecho en la pestaña de la hoja de trabajo--ver código--pegar)
'Cambiado un poco, eliminado el error
p>Private Sub Worksheet_Change(ByVal Target As Range)
En caso de error, GoTo Err
Si Target.Column = 1, entonces
Dim A(), strX como cadena
Dim I, J, X como entero
strX = Objetivo.
X = Len( strX)
ReDim A(1 a X)
Para I = 1 a X
A(I) = Mid(strX, I, 1)
Siguiente I
Celdas(Target.Row, 2) = ""
Celdas(Target.Row, 2).2).NumberFormat = "@"
Para I = 1 a X
Para J = 1 a X
Celdas(Destino.Fila, 2) = Celdas(Destino.Fila, 2) y A( I) & A(J ) & ""
Siguiente J
Siguiente I
Finalizar si
Salir Sub
Err:
Fin del subtítulo