Andy Machin

Andy Machin

Carpe Diem
 79,6K puntos  Estados Unidos @andymachin desde - visto

Respuestas en Visual Basic

Respuesta en y en 3 temas más a

Ejecutar macro en un formulario al salir de otro formulario - VBA Excel

¿Ya probaste en el evento QueryClose del UserForm2? Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Call ParesUnicos End Sub El evento Activate no funciona de la manera que lo has intentado. Te daré una explicación breve de...
Respuesta en y en 3 temas más a

Ejecutar macro con atajos, estando con un formulario ya abierto - VBA Excel

En el evento KeyDown del UserForm debe haber una instrucción que ejecute la otra otra macro. Ejemplo: Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = vbKeyK Then If Shift = 2 Then Call...
Respuesta en y en 2 temas más a

Ejecutar Macro al pasar el puntero del mouse por un shape o dando click en el.

Ejecutar una macro al dar click no tiene tanta complicación ya que puedes crear la macro y luego dar click derecho al Shape y seleccionar la opción "Asignar Macro" y asignarle la macro que has creado de forma que esta se ejecutará al dar click al...
Respuesta en y en 2 temas más a

Macro para ver los últimos registros

No se si lo quieres estrictamente con esas variables que mencionas, pero te hice una Función de Array. (estas formulas se entran con CTR + SHIFT + ENTER) Solo tienes que copiar el siguiente código en un modulo: Public Function UltimosCinco(Col As...
Respuesta en y en 2 temas más a

Cuando se debe usar = Nothing en Excel

Algunos aficionados te dirán que se usa para limpiar objetos de la memoria y liberar espacio, si estas de suerte te darán un ejemplo en donde ponen Objeto = Nothing justo antes del End Sub. Esto es una novatada, y solo se me ocurren dos razones de...
Respuesta en y en 2 temas más a

Macro para Copiar de un libro a otro

Basado en el ejemplo de las imágenes, este podría ser un código funcional: Nota: Debes tener ambos libros abiertos al mismo tiempo. Sub passClaves() Dim libro1 As Workbook: Set libro1 = Workbooks("Libro1.xls") Dim libro2 As Workbook: Set libro2 =...
Respuesta en y en 2 temas más a

Error en una línea de código con la función FIND

El método .Find devuelve un objeto Range que no has definido. Te respondo de memoria desde el celular, pero estoy casi seguro que estas usando el método Find mal. Un ejemplo de como debería ser: With RangoDatos Set otroRange = .Find(bla bla) If Not...
Respuesta en y en 2 temas más a

¿Cómo hacer una referencia de todas o algunas de las hojas de mi libro?

Chris, no veo el problema en el link que te envía Ignacio. Lo único malo de ese post es que los nombres de las hojas tienes que escribirlos manualmente. Si lo que quieres es obtener los nombres de TODAS las hojas automáticamente, sean cual sean sus...
Respuesta en y en 2 temas más a

Macro para copiar información de una hoja a otra hoja en las celdas que le corresponda

Este seria el código del botón: Private Sub CommandButton1_Click() Dim CAPTURA As Worksheet: Set CAPTURA = Sheets("CAPTURA") Dim INFORMACION As Worksheet: Set INFORMACION = Sheets("INFORMACION") Dim Folio As String: Folio = CAPTURA.Cells(1, 2).Text...
Respuesta en y en 2 temas más a

Macro para evaluar y encontrar un valor de una celda de una columna para copiar otras celdas de la fila.

Olé usted si que programa a la vieja escuela ja! Como dato extra: yo no recomiendo la declaración integer con Dim var% es programación obsoleta y creo que solo sigue existiendo en VB.NET y estoy seguro que algún día lo descontinuarán por completo,...