Respuesta
en
Microsoft Excel
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
Microsoft Excel
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
Microsoft Excel
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
Microsoft Excel
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
Microsoft Excel
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
Microsoft Excel
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
Microsoft Excel
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
Microsoft Excel
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
Microsoft Excel
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
Microsoft Excel
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,...