Validación Fija

hola, Oscar !

... necesito las celdas G4 y H4 con validacion y con lista desplegable.
... problema ... siempre estoy insertando filas y ... se baja por causa de cada insercion.
... como la fila 4 es nueva cada vez, cada insercion desaparece la configuracion [...]
... que esas celdas se queden "ahi" a pesar de la insercion
... que los datos se conserven en la fila no importando el numero de inserciones de fila hechas.
... esa hoja tiene ... codigos trabajando [...]
Private Sub Worksheet_SelectionChange(ByVal Target As Range) [...]

1° las 'reglas' de validacion son propiedades [o atributos] =>de la/s celda/s<= [razon por la cual...]
al insertar filas/columnas.. dichas validaciones NO 'desaparecen'... 'se van' [junto] con la/s celda/s ;)
2° si la insercion 'ocurre' [precisamente] EN la/s fila/columna de la/s celda/s 'validada/s'...
[te sugiero...] =>cambia<= las 'validaciones' por 'comboboxes' [de 'cuadro de controles']
3° la 'serie' de macros que te propongo, 'mantienen' los combos =>siempre<= 'sobre' las celdas 'g4' y 'h4'
[y SOLO 'se muestran' cuando el usuario selecciona 'esas' celdas, sin 'importar' si hubo inserciones] ;)
4° inserta los 2 combos [propuestos] y =>en tiempo de diseño<= 'ajusta' sus propiedades...
[alto, ancho, selectionmargin, etc.] para que 'se parezcan' a los combos de validaciones
5° copia los codigos propuestos en el modulo de 'esa' hoja, y haz algunas 'pruebas'
=> estoy usando algunos 'supuestos', que seguramente en la 'realidad' sean otros
[como 'llenar' los combos desde matrices en lugar de usar rangos]
=> quizas prefieras que 'el llenado' se haga en el evento '_open' del libro en lugar del '_actrivate' de la hoja
=> y [probablemente] varias 'cosillas' mas... pero... ¿comenzamos y comentas las 'fallas'? ;)

saludos,
hector.
en el modulo de codigo de 'la hoja' ==Private Sub Worksheet_Activate()
CargarListas
End Sub
Private Sub CargarListas()
Dim Lista1 As Variant, Lista2 As Variant
Lista1 = Array("Ing. Sistemas", "Admón. Empresas", "Derecho", "Fisioterapia", "Enfermería", "etc.")
Lista2 = Array("FUSM", "UNINORTE", "USB", "FUSM-EM")
With Me.ComboBox1
.LinkedCell = "": .Clear
.List = Application.Transpose(Lista1)
.LinkedCell = "g4"
End With
With Me.ComboBox2
.LinkedCell = "": .Clear
.List = Application.Transpose(Lista2)
.LinkedCell = "h4"
End With
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' On Error GoTo Salida
' Application.EnableEvents = False
If Target.Address = "$G$4" Then
Me.ComboBox2.Visible = False
With Me.ComboBox1
.Visible = True: .LinkedCell = "g4"
.Top = Target.Top: .Left = Target.Left
End With
ElseIf Target.Address = "$H$4" Then
Me.ComboBox1.Visible = False
With Me.ComboBox2
.Visible = True: .LinkedCell = "h4"
.Top = Target.Top: .Left = Target.Left
End With
Else: Me.ComboBox1.Visible = False: Me.ComboBox2.Visible = False
End If
'Salida:
' Application.EnableEvents = True
End Sub
Private Sub ComboBox1_Change()
ActiveCell.Select: Worksheet_Change Range("g4")
End Sub
Private Sub ComboBox2_Change()
ActiveCell.Select: Worksheet_Change Range("h4")
End Sub