Macro para agregar filas en Excel

Preguntas y respuestas relacionadas

Macro Listbox multiselect con filtro

Quisiera ver quien me apoya a solucionar algunos detalles del siguiente adjunto: Cuando inicia el userforn, el listbox se carga bien pero con algunas filas seleccionadas, esto no debe serSin filtrar solo puedo eliminar una fila a pesar de haber...
2 respuestas

Macro para rellenar automáticamente celdas adyacentes al seleccionar valor en lista desplegable

Llevo varios días tratando de modificar una macro para adaptarla a mi hoja de cálculo sin éxito alguno. La macro la tomé de está pregunta: Con un macro.. ¿Cómo rellenar automáticamente una celda según el valor de lo que se escribe en otra?. Mi...
2 respuestas

Te dejo el código de Eliminar fila sin tomar en cuenta la fila 1 y 2

Sub BorrarFilas() Dim i As Integer, nfilas As Integer, qCrit As String Sheets("FACT").Select nfilas = ActiveSheet.Cells(1, 1).CurrentRegion.Rows.Count qCol = InputBox("Columna del criterio") qCrit = Application.InputBox(prompt:="Criterio" & CDbl(0))...
1 respuesta

Contar celdas utilizando la función contar.si

Estoy contando celdas con la función contar. Si. Cuento las celdas que tienen un valor mayor que cero. En este cuadro, cada celda equivale a una fecha, por lo que ese contar lo utilizo para ver los días en que hay datos. Lo utilizo para saber de...
2 respuestas

Macro para comprarar datos con operador = y copiar si no existe en una hoja diferente

Necesito un macro que haga lo siguiente: Tengo una hoja de trabajo llamada "Inventario" a esa hoja copeo los datos de la Hoja_1 y en la fila 5 marco con 1 los datos que tengo Con este código: Sub copia_Hoja_1() r = 2 Do While...
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

Error al compilar: next sin for

Tengo este código Private Sub validar() Dim h, i Set h = Sheets("Programación") For i = 2 To h.Range("A" & Rows.Count).End(xlUp).Row Do While Cells(i, "C") <> Cmbxnombre.Text And Cells(i, "I") <> CDate(Txbxfecini) i = i + 1 'MsgBox "1" Loop If...
2 respuestas

Como calcular días hábiles a partir de una fecha

En una consulta necesito calcular 3 días hábiles (de lunes a viernes) a partir de hoy 5/12 Mañana viernes día 6 es festivo, o sea tendría que calcular el día 12/12
2 respuestas

Saldos en inventarios

Estoy en la construcción de una herramienta que permita el manejo de los inventarios disponibles, pero me he encontrado con el siguiente problema, existe un formulario en el cual se ingresan las prioridades de insumos requeridos por cada pedido, un...
1 respuesta

Función para cambiar de color una celda bajo criterios definidos

Ojala me puedan ayudar: He hecho una función llamada colorear Lo que hace es colorea la celda evaluada si se encuentra dentro del rango definido por cantidad, que esta en la columna B. Osea que si la cantidad para valor1 es 8, al aplicar la funcion...
2 respuestas
¿No es la pregunta que estabas buscando?
Puedes explorar otras preguntas del tema