Andy Machin

Andy Machin

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

Respuestas en Programación

Respuesta en y en 3 temas más a

Excel se bloquea al ejecutar este simple programa

A parte de que has elegido mal el tipo de Bucle, el problema esta en lo siguiente: Para que tu bucle avance, debes aumentar el valor de fila, ¿correcto? Pero, hay un detalle, el valor de fila solo aumenta si la condición del IF es verdadera, si en tu...
Respuesta en y en 2 temas más a

Obtener datos de una base de datos a otro archivo de excel

¿Podrías decirme que debería suceder cuando las tarjetitas estén todas llenas? Solo hay 6 tarjetas de vendedor en el libro Formato_Vendedor, sin embargo en la base hay más de 6 registros. ¿Cuál es tu plan para manejar eso?
Respuesta en y en 1 temas más a

¿Como llenar automáticamente una celda de Excel con una sola letra?

En el modulo de la hoja usa el siguiente código: Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Range("B2:B10"), Range(Target.Address)) Is Nothing Then Application.EnableAutoComplete = False If StrComp(Target.Value, "m", 1) = 0...
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

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,...