Grabar opciones seleccionadas en columnas de Microsoft Excel
Hola como esta, necesito su ayuda no se si se puede esto en excel, tengo una base de datos de empleadores en la cual hay una lista de validación y que al abrirla aparecen varias opciones para seleccionar, lo que quiero si es posible es que cuando seleccione una opción esta se grabe en otra columna y si a ese empleador también hay que agregarle otra causal se pueda seleccionar y se grave en la siguiente columna es decir que me deje un histórico de las descripciones que yo seleccione por empleador y no que tenga que que hacer varias columnas colocando cada una de ellas. Gracias
1 respuesta
Respuesta de Elsa Matilde
1
Para grabar todas las selecciones que se realicen en cierta lista validada necesitas una rutina que controle el contenido de esa celda.
En el Editor de macros, seleccioná el objeto 'Hoja' donde tendrás tus datos y allí copiá esta rutina. La idea es que controle lo que seleccionás en la col C desde la fila 2 y copia a partir de la col G (ajustá esto a tus datos)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim col As Integer
'la primer col de opciones será la G (3+4)
col = 4
'se controla lo que se selecciona en col C
If Target.Column = 3 And Target.Row > 1 Then
'busca la primer col de opciones vacía
If Target.Offset(0, col).Value = "" Then
Target.Offset(0, col) = Target.Value
Else
While Target.Offset(0, col).Value <> ""
col = col + 1
Wend
Target.Offset(0, col) = Target.Value
End If
End If
End Sub
Saludos y cuando finalices esta continuaré con la siguiente que acabo de ver en mi bandeja.
En el Editor de macros, seleccioná el objeto 'Hoja' donde tendrás tus datos y allí copiá esta rutina. La idea es que controle lo que seleccionás en la col C desde la fila 2 y copia a partir de la col G (ajustá esto a tus datos)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim col As Integer
'la primer col de opciones será la G (3+4)
col = 4
'se controla lo que se selecciona en col C
If Target.Column = 3 And Target.Row > 1 Then
'busca la primer col de opciones vacía
If Target.Offset(0, col).Value = "" Then
Target.Offset(0, col) = Target.Value
Else
While Target.Offset(0, col).Value <> ""
col = col + 1
Wend
Target.Offset(0, col) = Target.Value
End If
End If
End Sub
Saludos y cuando finalices esta continuaré con la siguiente que acabo de ver en mi bandeja.
