Ayuda con Macro
Buenas noches experto tengo la siguiente macro:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, CANCEL As Boolean)
senscelda = "c13:e173" If Not Intersect(Target, Range(senscelda)) Is Nothing Then
If Target.Value <> "" Then Target.Interior.ColorIndex = xlColorIndexNone
Target.ClearContents Application.SendKeys "{ESC}"
Else
Target.Value = "þ" With Target.Font .Name = "Wingdings" .Size = 18 End With Application.SendKeys "{ESC}"
End If End If
End Sub
La misma me crea el símbolo de verificación en la celda que de doble click en el rango de "C13 a E174", el problema es que quiero modificarla para que al hacer doble click en alguna de las tres columnas C, D o E, me deje en blanco las dos columnas en la cuales no hago doble click o sea: Si hago doble click en la celda C3 me debe dejar en blanco o vacío la celdas D3 y E3 y debe colocar el valor 1 en la celda K3, o si hago doble click en la celda D3 me debe dejar en blanco o vacío la celdas C3 y E3 y coloque el valor 0,5 en la celda K3 y por ultimo si hago double click en la celda E3, debe dejar en blanco o vacío la celdas C3 y D3 y colocar el texto "N/A" en la celda K3.
Todo esto lo debería aplicar para cada fila entre los rangos "C13:E173", agradeciendo de antemano la ayuda que me puedas dar al respecto.
Buenas, no entendí... No veo ninguna macro...¿?
No se por qué no se pegó, pero te la pongo otra vez
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, CANCEL As Boolean)
'por.dam
senscelda = "c13:e173"
If Not Intersect(Target, Range(senscelda)) Is Nothing Then
Application.EnableEvents = False
Select Case Target.Column
Case 3
Cells(Target.Row, 4).ClearContents
Cells(Target.Row, 5).ClearContents
Cells(Target.Row, "K") = 1
Case 4
Cells(Target.Row, 3).ClearContents
Cells(Target.Row, 5).ClearContents
Cells(Target.Row, "K") = 0.5
Case 5
Cells(Target.Row, 3).ClearContents
Cells(Target.Row, 4).ClearContents
Cells(Target.Row, "K") = "N/A"
End Select
Application.EnableEvents = True
End If
End Sub Saludos.Dam
Si es lo que necesitas.
