Alberto Jimenez Cabrera

ThisWorkbook hace referencia al libro donde esta la macro, no al libro activo, el libro activo es con ActiveWorkbook. Name, supongo que el libro donde tienes la macro es la base por eso te guarda siempre ese libro. ThisWorkbook. SaveCopyAs (FilePath)

El método AutoFill no copia datos si no que auto rellena celdas, es como cuando arrastras una celda para repetir una fórmula o valores en otras celdas consecutivas, el error que te marca es porque los rangos A2:E2 y K2:O2 no son consecutivos. Te dejo...

Es para hacer una búsqueda en una columna de un rango de celdas. El primer parámetro (combo_descripcion.Value) es el valor a buscar El segundo parámetro (INVENTARIO. Range("B2:R10000")) es el rango de celdas que va a utilizar la función pero solo...

Si hay una forma de hacerlo pero hay una restricción y es que los dos libros deben estar abiertos en la misma instancia de Excel. Si eso se cumple entonces deshabilitas el botón con la siguiente instrucción Workbooks("Libro2"). WorkSheets("Hoja1")....

Solo tienes que hacer una resta y una suma para obtener la letra "inversa" Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Dim MayusculasInicio As Integer Dim MayusculasFin As Integer Dim MinusculasInicio As Integer Dim...

Debes tener el id de la fila en el recordset para hacer el update, por ejemplo Rs. Open "SELECT id, titulo FROM nombre_tabla",... Si tienes solo la columna titulo Rs. Open "SELECT titulo FROM nombre_tabla",... te arrojara un error cuando el recordset...

Solo tienes que agregar la columna al listbox2 de la misma forma que lo haces con el listbox1 Private Sub ComboBox1_Click() ListBox1. Clear ListBox2. Clear valor = ComboBox1.Value Set busca = Sheets("BD").Range("D2:D100").Find(valor,...

Lo que quieres hacer no se puede solo con macros, necesitas usar APIs de windows, este es un ejemplo de código muy sencillo que hace lo que quieres, debes ponerlo en un modulo. Public Declare Function TerminateProcess Lib "kernel32" ( _ ByVal...

Debes comprobar si existe el archivo para elegir que acción realizar, si se va a crear un nuevo archivo de Excel o se va a abrir uno existente. Para abrir un archivo existente es con el siguiente código set...

No veo el código del botón, pero bueno seria algo como Private Sub CommandButton1_Click() Dim valores As Variant Dim celdaInicial As String celdaInicial = "A1" valores = ListBox1.List If UBound(valores) >= 0 Then...