Isaac, necesito que esta macro se aplique solamente en las columnas E y F, y que salte hacia abajo una vez que se marque la X.

Isaac, ayer respondiste mi siguiente pregunta:

Una vez aplicado el macro para que se marque una X con solo dar doble click, ¿Cómo hago que solo se pueda marcar una X por fila?

Ya apliqué el macro para que se marque una X con solo dar doble click:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Target.Value = "X"

End Sub

¿Ahora cómo hago que solo se pueda marcar una X por fila? Quiero que en caso se marque una X en la misma fila, prevalezca la última X y se borre la primera.

Me respondiste lo siguiente:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

   subBuscaEnFila ActiveSheet, Target.row, "X"

   Target.Value = "X"

End Sub

'BUSCAR EN UNA FILA'

'Por GP'

Sub subBuscaEnFila(hojaBusq As Worksheet, _

                    dblFila As Double, _

                    strValor As String)

    Dim resulta As Range

    If Trim(strValor) = "" Then Exit Sub

    Set resulta = hojaBusq.Range(dblFila & ":" & dblFila).Find(strValor, _

                                hojaBusq.Range("A" & dblFila).End(xlToLeft), _

                                LookIn:=xlValues, LookAt:=xlWhole)

    If (Not resulta Is Nothing) Then

        resulta.ClearContents

    End If

End Sub

Sin embargo, necesito que esto solo se aplique en las columnas E y F, y no en toda la hoja.

Añade tu respuesta

Haz clic para o