Marcar celda numerada con un numero escrito
Tengo columnas marcadas con N1... N5 con números cuales quiera, lo que deseo es que se marque con un 1 la celda del número que escriba, es decir,
Si escribo 16 en la N1 se marque un 1 en la celda del numero 16
Si escribo 23 en la N2 se marque con un 1 la celda numero 23
Y así sucesivamente hasta la N5
Espero explicarme, de antemano muchas gracias.
2 Respuestas
Este es el resultado de la macro
y esta es la macro solo asegurate de no tener nada en las columnas A y B
Sub PONER_1()
Set datos = Range("C1").CurrentRegion
With datos
R = .Rows.Count: C = .Columns.Count
MATRIZ = datos
For I = 2 To R
For J = 1 To 5
NUMERO = .Cells(I, J)
MATRIZ(I, NUMERO + 5) = 1
Next J
Next I
Range(.Address) = MATRIZ
End With
Set datos = Nothing
End Sub
¡Gracias!
MUCHAS GRACIAS
Aunque quería que fuera en automático en tiempo real el cambio, aun así me sirvió.
Esta macro ya la tenia hecha para un propósito más o menos similar pero con fechas solo le hice unas modificaciones, mañana veré si se puede hacer que sea en automático.
Esta la macro en tiempo real solo pégala en el modulo VBA de la hoja donde tienes los datos como ves el código es muy simple y efectivo, te puedes mover como las teclas arriba, izquierda, derecha o abajo y te ira rellenando la tabla de 1
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
x = Not Intersect(ActiveCell, Range("c:g")) Is Nothing
If x Then
On Error Resume Next
v = Target.Value + 4
vacio = v <> Empty
If vacio Then
r = Target.Row: c = 3
Cells(ActiveCell.Row, c).Offset(0, v) = 1
End If
End If
End Sub
puedes explicar esta parte MATRIZ(I, NUMERO + 5) saludos! - Adriel Ortiz Mangia
Para eficientizar la macro todos los datos se copian a la memoria junto con la estructura en un contenedor llamando matriz, matriz(i, numero+5), i es el numero de la fila, numero más 5 es el numero de la columna+5 lugares que ocupan los números es decir si la casilla n1 esta un 6 el lugar que corresponde al 6 esta en la casilla 11. - James Bond
disculpa pero no logro entender como se realiza la comparación - Adriel Ortiz Mangia
La macro no realiza ninguna comparación si en la columna c2 el valor el 6 lo que hace es añadir un 5 a ese valor y si pones numero arriba de los encabezados partiendo de c1 veras que el 6 esta ubicado en la columna 11, entonces lo que hace la macro es que lo asigna a la casilla (1,11) del contenedor matriz, luego con el 12 hace lo mismo la suma 5 da 17, te vas a la tabla y veras que la columna que corresponde al 12 es la 17 y lo asigna a la casilla (1,17) y así sucesivamente, luego ya que termino vacía el contenedor en la hoja en un solo paso - James Bond
gracias - Adriel Ortiz Mangia