¿Qué error hay en esta macro?

Preguntas y respuestas relacionadas

Envío de email

Tengo una base de datos access 2003 que entre otras tiene: Una tabla de Contactos conteniendo la misma un campo con el correo electrónico de cada contacto. La BD también contiene un informe que les tengo que enviar a estos contactos. La idea es que...
1 respuesta

Colocación de un MsgBox en una macro excel

A esta macro Sub inserta_Lineas() Application.ScreenUpdating = False On Error GoTo Jota 'LE AGREGUE a = InputBox("Ingrese el Número de Lineas a Insertar", "Número de Lineas") b = ActiveCell.Row For i = 1 To a'seleccionar manualmente la celda en B...
1 respuesta

Macro excel, comparación de columnas

Te cuento, tengo 3 columnas en un libro: ----------A------------ B----------- C 1----- Oscar--------- si----------- si 2---- Gabriel--------- si---------- no 3---- Hector ---------no--------- no 4----- Nancy ---------si----------- si 5 -----Yuriko...
2 respuestas

Funcion Match no funciona

Tengo este codigo, pero cuando lo corro me sale un arror que no se obtener la propiedad match. Sheets("INVENTARIO").Select TALLAINV = Application.WorksheetFunction.Match(REGISTRO.TextBox3.Value, TALLA, 0) MODELOINV =...
1 respuesta

Encontrar primer registro vacío dentro de un rango

El código que muestro a continuación posiciona el cursor una celda debajo de la ultima celda ocupada en una lista de datos que se encuentren en la columna "A". Range("A" & [A:A].Rows.Count).End(xlUp).Offset(1, 0).Select Lo que yo deseo saber es si...
1 respuesta

Ajustar ubicación de imagenes para reconocer un catalogo a una hoja de excel

Tengo este código que me ayudaron a editarlo en el foro, a mis necesidades y funciona perfectamente: Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Mod.Por.DAM On Error Resume Next If Not Intersect(Target, Range("H4:H723")) Is Nothing...
1 respuesta

Incluir firma al enviar correos automáticos desde excel 2003

Tengo esta macro Ub enviar() Sheets("Control de alquiler").Select ufila = Range("A" & Rows.Count).End(xlUp).Row For i = 4 To ufila If Cells(i, 14) <= Cells(i, 15) Then Set parte1 = CreateObject("outlook.application") Set parte2 =...
1 respuesta

Separar por fechas y añadir filas

Agradezco de antemano la ayuda que me puedan brindar... De una base de datos necesito un macro que separe los datos por fecha y que añada dos filas entre cada grupo. Ejemplo.
1 respuesta

Crear hojas y pegar filas

Ante todo decir que, esta es mi primera pregunta en todo expertos, y advertir que no se nada de programación, esta es mi primera incursión en el mundo de las macros. Bueno, el caso es el siguiente, a diario recibo archivos de exel parecidos a este,...
1 respuesta

Aparición de aviso si se cumple una condición en excel

Como automatizar algo así como: si se cumple una condición, ¿Entonces qué aparezca objeto o aviso?
1 respuesta
¿No es la pregunta que estabas buscando?
Puedes explorar otras preguntas del tema