Jump to content

Seleccion de Celdas para edicion manual


Recommended Posts

Hola a todos,

Tengo un problema… Estoy usando una macro directamente sobre un libro, hago debleclick (dc) sobre la hoja en determinadas celdas y dispara un modulo. El problema, es que ahora hago dc sobro las celdas y no las edita de manera normal, a que llamo normal, a que cuando haces dc aparece el cursor sobre la formula o texto de la celda. Que es lo que hace, me deja seleccionar y si escribo escribe, pero no me deja entrar en la celda, soy claro??

Les paso el código (sin el modulo), como para que vean a que me refiero…


[INDENT]Option Explicit

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

Cancel = True

If ActiveCell.Column = 1 Then

ActiveCell = Date 'aca es donde va el modulo, puse esto para que sea mas sencillo

Else

'aca intente de poner activecell.select pero no soluciona el problema

End If

End Sub[/INDENT]


[/CODE]

Que es lo que necesito, cualquiera de estas dos opciones me vienen bien.

  1. alguna forma de seleccionar celdas para editar, que no sea ni Cells(x,x).Select, ni Cells(x,x).Activate, no me sirvio ninguna
  2. alguna forma de activar la macro haciendo dc sin que se de ese fenomeno

Se me ocurrio que tal vez podia usar algo tipo el “rango” _BeforeDoubleClick en el que tengo que hacer dc en lugar de Worksheet_BeforeDoubleClick, pero no se como nombrarlo…

Gracias de antemano…

Tomás

Link to comment
Share on other sites

Hola:

No es exactamente lo que pides, pero se parece bastante.

Yo no conozco la manera de entrar "dentro" de una celda, pero podemos hacer un apaño.

He añadido un TextBox que se adapta automáticamente al tamaño y posicionamiento de la celda activa y se carga con su valor.

Con doble click sobre él, ejecutamos la macro, el cursor se quedará dentro del TextBox, y al modificarlo se actualizará la celda activa.

Espero que te sirva para algo, y si no, puede que te de alguna idea de como solucionar el tema.

Saludos.

AlgoParecido.xls

Link to comment
Share on other sites

  • 2 weeks later...

Jajaja, muy bueno el nombre del archivo… Bueno gracias, la verdad es que la macro esta interesante, lamentablemente para lo que la queria no me termina de servir, pero bueno se tendran que conformar con lo que arme, y si no les gusta, que aprendan ellos a hacer macros, jajaja.. Gracias por la respuesta y disculpa mi tardanza.

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

  • 72 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR
  • Files

  • Download Statistics

    • Files
      170
    • Comments
      89
    • Reviews
      26

  • Crear macros Excel

  • Posts

    • Buenas noches profesor Antoni y demás miembros del foro. Tanto con la solución suya como la del profesor HDD resuelvo el problema y está es una tercera variante que nunca viene mal, porque todo lo que se aprende no pesa ni estorba Gracias por el enlace, en cuanto tenga el chance lo reviso. Necesito una última petición a ustedes. He tratado de convertir los números en texto a números y no he podido lograrlo. Lo hice con la función Sustituir por si hubiera algunos espacios de más, con el Texto en columna, lo multiplique x 1, le sumé +0, lo trate con un ciclo For Each, creando una variable Celda de tipo Range y un condicional If/End if y nada. Por favor, si fuera tan amables de sugerirme algo que no haya probado. Agradecido como siempre y mis respetos a ustedes. Pino
    • Utilizando la función  WorksheetFunction.Clean se eliminan la mayoría de caracteres no imprimibles.   Eliminar caracteres no imprimibles
    • Buenas tardes reiteradas. Que bien que se sumó el profesor Antoni a la solución. Qué provilegio, JSD y Antoni, no podría estar en mejores manos. Gracias a ambos por su respuestas, pero tengo una duda más. En el caso de Antoni manifiesta que el caracter es el 001 del ASCII, pero pregunto, si fuera otro caracter este códiogo me serviría también o hay que modificarle algo? Mis respetos a todos los miembros del Foro y en especial a Antoni y JSD. Agradecido. Pino
    • Hola Antoni, te adelantaste, bueno dejo lo mismo de otra manera Sub EliminarCaracteres(): Application.ScreenUpdating = False Dim rango As Range Dim datos As Variant Dim i As Long, j As Long With Hoja2 '>>>>> pon la hoja donde quieras trabajar Set rango = .Range("A4:M" & .Cells(.Rows.Count, "A").End(xlUp).Row) datos = rango.Value For i = 1 To UBound(datos, 1) For j = 1 To UBound(datos, 2) datos(i, j) = Application.WorksheetFunction.Clean _ (datos(i, j)) Next j Next i rango.Value = datos End With End Sub  
  • Recently Browsing

    • No registered users viewing this page.
×
×
  • Create New...

Important Information

Privacy Policy