ingresar y eliminar X en rango vertical

[Miltiño]

Saludos, deseo ayuda para esta macro:
Esta macro funciiona para un arngo horizontal ingresa una X en B2:F2, haviendo doble clik en cualquier celda borra la exitente an el rango e inserta en la...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[pontiquio]

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

  If Not Intersect(Target, Range("B2:F2")) Is Nothing Then Cancel = True: _
   Cells(Target.Row...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Miltiño]

Gracias por esta ayuda buenisima.
Doy por solucionado cerrado el tema o debate