Borrar Fila

Hola Jonathan,

Prueba poner el siguiente codigo en el modulo de la hoja:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
Cancel As Boolean)
Target.EntireRow.Delete
Cancel = True
End Sub

Nota: para editar las formulas en celdas tendras que renunciar el clic doble y usar la barra de formulas o la tecla BACKSPACE.

Saludos,
KL

"Splinter" wrote in message news:

Hola buen dia a todos, quisiera ver como puedo borrar una fila con
doble click en cualquier parte esta, un saludo y gracias de antemano.
Jonathan Milla.

Previendo tu valiosa respuesta, como podriamos condicionar que solo las
filas a partir de la 21 y solo la columna B, hagan este tipo de
condicion, y si es posible que haga otras macros con doble click en la
misma hoja.
Ejemplo:
Filas a partir de 21 puedan hacer el doble click, pero solo la columna
B, borre toda la fila.
Y las celdas, C, D, E, F, G, H agreguen datos que tienen en ellas a
otras celdas, por ejemplo
C21, D21, E21 tienen datos que quiero copiar con doble click arriba de
la hoja, tal vez en A1, C1, E1, no me afecta el otro doble click????



KL wrote:

Hola Jonathan,

Prueba poner el siguiente codigo en el modulo de la hoja:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
Cancel As Boolean)
Target.EntireRow.Delete
Cancel = True
End Sub

Nota: para editar las formulas en celdas tendras que renunciar el clic doble y usar la barra de formulas o la tecla BACKSPACE.

Saludos,
KL

"Splinter" wrote in message news:
> Hola buen dia a todos, quisiera ver como puedo borrar una fila con
> doble click en cualquier parte esta, un saludo y gracias de antemano.
> Jonathan Milla.
>

Hola Splinter,

Filas a partir de 21 puedan hacer el doble click, pero solo la columna
B, borre toda la fila.
Y las celdas, C, D, E, F, G, H agreguen datos que tienen en ellas a
otras celdas, por ejemplo
C21, D21, E21 tienen datos que quiero copiar con doble click arriba de
la hoja, tal vez en A1, C1, E1, no me afecta el otro doble click????

A ver esto:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
Cancel As Boolean)
If Not Intersect(Target, Range("B21:B65536")) Is Nothing Then
Target.EntireRow.Delete: Cancel = True
ElseIf Not Intersect(Target, Range("C:C,D:D,E:E,F:F,G:G,H:H"), _
Range("21:65536")) Is Nothing Then
Cells(1, Target.Column) = Target: Cancel = True
End If
End Sub

Saludos,
KL

Muchas Gracias, si funciono, saludos desde Merida...Yucatan