Ver Mensaje Individual
  #2 (permalink)  
Antiguo 10/04/2006, 09:20
Avatar de niconico
niconico
 
Fecha de Ingreso: enero-2006
Mensajes: 166
Antigüedad: 18 años, 4 meses
Puntos: 0
Con código que tenía por ahí ya solucioné el problema
Código:
Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False

If Not Intersect(Target, Range("C10:F10")) Is Nothing And CheckBox1.Value = True Then
posicion = ActiveCell.Address
Range("C17:F17").Select
Selection.Copy
Range("C10:F10").Select
ActiveSheet.Paste
Range(posicion).Select
Application.CutCopyMode = False
End If

If Not Intersect(Target, Range("C11:F11")) Is Nothing And CheckBox1.Value = True Then
posicion = ActiveCell.Address
Range("C17:F17").Select
Selection.Copy
Range("C11:F11").Select
ActiveSheet.Paste
Range(posicion).Select
Application.CutCopyMode = False
End If



If Not Intersect(Target, Range("C11:F11")) Is Nothing And CheckBox2.Value = True Then
posicion = ActiveCell.Address
Range("C17:F17").Select
Selection.Copy
Range("C11:F11").Select
ActiveSheet.Paste
Range(posicion).Select
Application.CutCopyMode = False
End If

If Not Intersect(Target, Range("C9:F9")) Is Nothing And CheckBox2.Value = True Then
posicion = ActiveCell.Address
Range("C17:F17").Select
Selection.Copy
Range("C9:F9").Select
ActiveSheet.Paste
Range(posicion).Select
Application.CutCopyMode = False
End If



End Sub
Lo que hago es que si el checkbox 1 está activado pues que me copia c17:f17, que son celdas que tengo ocultas y que siempre están en blanco.
El problema que tengo ahora es evitar que active más de un checkbox, hay algún comando para evitar que se activen los dos checkbox a la vez?