James Bond

Prueba esta macro, lee el color de la celda b2 y los busca en la tabla, eliminado las filas que contengan dicho color y aqui esta la macro Sub eliminarxcolores() xcolor = Range("b1").Interior.ColorIndex Set datos = Range("a3").CurrentRegion With...

Prueba estas macros Sub formular() cantidad = InputBox("cuantas formulas quieres?") If cantidad = Empty Then End Set datos = Range("a1").Resize(cantidad, 1) With datos For i = 0 To cantidad If i = 0 Then .Cells(1, 1) = "=e12" If i > 0 Then .Cells((2...

Tu programación tiene dos problemas usas un do while y demasiados select eso alentá las macros, para lo que quieres hay formas más eficientes de hacerlo, por ejemplo esta macro hace lo mismo que tu macro solo que se va directo al final de los...

Este es el resultado de la macro parte de b2 para hacer los arreglos solo cambia la primera línea por la celda donde empiecen tus datos y listo, abajo de esta imagen esta la macro Sub concatenar() Set datos = Range("b2").CurrentRegion With datos f =...

Hay varias técnicas para hacer proyecciones o pronósticos de ventas, las más sencillas son promedios móviles ponderados o por suavizado exponencial, estas se usan desde el menu datos, análisis de datos y en las opciones hay dos media móvil y...

Esta macro restringe la entrada de datos en la hoja a una región especifica en este caso A1, el usuario no podrá introducir datos más allá de esa celda e incluso se restingre el movimiento del mouse y las flechas a esa celda, los datos solo pueden...

Ya probé tu macro y a mi no me marca ningún error añadí los elementos en amarillo y no me dio ningún mensaje de error pero como dije la forma en que tienes tabla dentro de tablas puede ne dado momento dar problemas o resultados no deseados.

Prueba esta macro cuenta las filas con datos y va aumentado 1 al total bloqueando el textbox para impedir que pueda ser cambiado Private Sub UserForm_Initialize() filas = Range("a1").CurrentRegion.Rows.Count - 2 If filas > 1 Then filas = filas + 1...

Prueba con esta macro te muestra la fila antes de borrarla, solo cambia el nombre de la hoja2 por el nombre que estés usando. Sub eliminar_fila() Set h2 = Worksheets("hoja2") Set datos = h2.Range("d:d") nombre = ActiveSheet.Name nfactura =...

Prueba con esta macro, ya sea que quites filas columnas la macro se adapta a estos cambios Sub copiar_info() Set h1 = Worksheets("plla601"): Set origen = h1.Range("a1").CurrentRegion With origen: f = .Rows.Count: c = .Columns.Count: End With On Error...