Macro para guardar registros

Preguntas y respuestas relacionadas

Macro para copiar filas de un libro a otro con condición

Tengo dos libros, libro1 y libro2, necesito extraer los ingresos del día laborable anterior que se encuentran en el libro2 copiar toda la fila y ponerlos en el libro1.
1 respuesta

Activar la Celda AX que contien el Dato buscado en un TextBox llamado TxtPlaca y que encuentra guardado en NX

Tengo un formulario con un textbox y un botón con el que ejecuto una búsqueda, lo que necesito, es que una vez, los datos que corresponden a la búsqueda hayan sido llamados y colocados en los textbox, se active la celda AX que los contiene, para...
1 respuesta

Guardar varias hojas de Excel en un mismo PDF con cada nombre de cliente

Tengo hecha una macro que me convierte el excel en PDF (solo de una hoja) y me exporta cada PDF de cada cliente a la ruta que le tengo asignado. Necesito que me convierta la primera y segunda hoja del excel a PDF (el mismo PDF) y que se guarde cada...
1 respuesta

Sumar bloques

Tengo hecha una macro que no consigo terminar, el motivo es que necesito, que sume en vertical las cantidades por bloques de las columnas B y C colocando el resultado en las celdas vacías. Si siempre fueran el mismo número de filas no tendría...
1 respuesta

Encontrar ultimo registro en una tabla de excel.

Necesito crear una macro que busque el ultimo dato de la columna "M" (Supungamos la celda M1000) y en la siguiente celda (M1001) coloque la palabra END y lo colore de verde y haga lo mismo para toda la fila desde la A hasta la Z. Obviamente si se...
2 respuestas

Abreviar con macro el código de cada hoja

Me podrían decir si este código que tiene cada página: Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A12:D41, H12:H46")) Is Nothing Then Application.EnableEvents = False Target.Value = VBA.UCase(Target.Text)...
1 respuesta

Celda que identifique un texto en especifico y salga un imputbox

Tengo este código: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(False, False) = "B2" Then Application.EnableEvents = False Range("B2").Select Target.Value = "*" & Target.Value & "*" Range("B2").Select Application.EnableEvents...
1 respuesta

Que le falta a este código para que funcione, el objeto es oculta las fillas en blanco de una plantilla de cotizaciones y es:

Sub OcultarFilasEnBlanco() Range("B8:K37").Select Do While ActiveCell.Value <> "" If ActiveCell.Value = " " Then ActiveCell.EntireRow.Hidden = True End If ActiveCell.Offset(1, 0).Select Loop End Sub
1 respuesta

Registrar la fecha de modificación de una celda - excel

Utilizo una macro publicada por ustedes para registrar la fecha y hora de modificación de una celda: Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [A1:A500]) Is Nothing Then Target.Offset(0, 1) = Now Target.Offset(0,...
1 respuesta

Fórmula para copiar datos de una hoja a otra según el valor de una celda

En la hoja Pedidos tengo registrados todos los pedidos de los clientes. Cada Nº de pedido puede incluir hasta 4 productos diferentes. En otra hoja deseo tener la ficha de los clientes. Para ello mediante una lista (con validación de datos) selecciono...
1 respuesta
¿No es la pregunta que estabas buscando?
Puedes explorar otras preguntas del tema