Dante Amor

Te anexo la macro. Actualiza en la macro los siguientes datos Set h1 = Sheets("Hoja1") 'hoja con los códigos col = "A" 'columna con los códigos cob = "A" 'columna donde buscarSub Buscar_Codigos() 'Por.Dante Amor Set h1 = Sheets("Hoja1") 'hoja con los...

Te anexo el código Tienes que crear una hoja y le pones por nombre "Temp" Lo que hace la macro es filtrar las columnas con los datos que pongas en los text, copia la información filtrada a la hoja "temp" y después carga con rowsource el contenido de...

Revisa las opciones en esta respuesta: Como habilitar campo DE: para enviar excel - outlook a través de VB

Quedaría así Sub stam() ' 'ActiveSheet.Unprotect Application.ScreenUpdating = False Worksheets("stampa").Visible = 1 Worksheets("stampa interna").Visible = 1 ' With Application.FileDialog(msoFileDialogSaveAs) .Title = "salva Come" .AllowMultiSelect =...

Pon la siguiente macro en los eventos de tu hoja Private Sub Worksheet_Change(ByVal Target As Range) 'Por Dante Amor 'Cambia el color de la figura ' If Target.Count > 2 Then Exit Sub If Not Intersect(Target, Range("C2:C3")) Is Nothing Then With...

En tu libro normal, en tu userform1, en tu botón detalle pon lo siguiente: Run "'libro Mayor.xlsm'!abrir", TextBox1.Value Ahora, en tu "libro mayor", en un módulo, crea la macro "abrir" y pones lo siguiente: Sub abrir(dato) 'Por.Dante Amor With...

No explicaste cómo quieres que la macro NO sobreescriba, supongo que quieres que los datos se almacenen en la siguiente fila vacía. Lo que hace tu macro es poner una fórmula en la hoja "historial", pero también supongo que quieres almacenar en la...

Revisa los siguientes enlaces, ahí explico cómo agregar más columnas Codigo VBA para un Listbox con mas de 10 columnas Tengo un Listbox con 20 columnas pero sólo me muestra 10 ['.Recuerda votar las respuestas y regresar a valorar. Avísame si tienes...

Pon la siguiente macro en los eventos de la hoja La macro revisa cuál es la última fila con datos de la columna A, si lo prefieres, puedes cambiar la columna "A" por la columna en donde siempre capturas un dato. Private Sub Worksheet_Change(ByVal...

¿El "otro libro" ya existe o va a ser un libro nuevo?