tavopz

Creo que puedes agregar en una fila donde indiques cuáles son las celdas que se deben tener en cuenta. No entendí muy bien la lógica que me explicaste, entiendo que la idea es que si el dato abajo del mes en mayúscula es diferente de cero, entonces...

No estoy seguro de entender tu pregunta. Si la idea es copiar la hoja, creo que es sólo agregar una línea dentro del ciclo For, una vez se pasa por el If: Ws. Copy Déjame saber si no resolví tu duda.

Mi consejo sería que identifiques las celdas a sumar en una nueva columna y hagas el CONTAR. SI sobre la nueva columna. Sería algo así: En la columna M: =SI(Y(L14>0; M14=1);"X"; "Y") La fórmula del CONTAR.SI sería: =CONTAR.SI(M14:M78;"=X")

Puede hacerse de varias formas mediante código, ¿pero has pensado en llevar esto a un autofiltro con ambas condiciones? De esa forma te quedaría el reporte listo de una vez. Sino, puedes hacerlo mediante un ciclo for, que primero evalúe todos los...

La manera más sencilla de hacer esto es mediante autofiltros. Pero me imagino que eso ya lo probaste. Revisa este ejemplo de mi página, es una forma un poco compleja de hacerlo pero es la que se me ocurre para lo que me comentas....

Si entendí bien, lo que quieres es copiar de una hoja a otra un grupo de rangos, cada uno de los rangos tiene un nombre y tienes un listado de los nombres en otra hoja. Pues bien, por medio de macros puedes hacer esto, lo importante allí sería saber...

En cuanto a la primera parte, puedes utilizar la función SI anidada para varias opciones, algo así: =SI(A1<0.5; "Garras"; SI(A1<3; "Plato-Punto"; "Punto-Punto")) Con estos estarías cumpliendo las tres condiciones. Con respecto a la segunda pregunta,...

Por lo que pude entender sería algo así: Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1:A10, C1:D10")) Is Nothing Then If IsError(Target) Then 'corre la macro End If End If End Sub Ten en cuenta que debes...

Claro, siempre que los datos se encuentren de la manera adecuada. Ingresa por el menú Datos / Ordenar. Seleccionas la columna por la cual deseas ordenarlos e indica si lo deseas en orden ascendente o descendente y listo.

Prueba con una macro como esta: Sub Hojas() Dim c As Range Dim s As Worksheet Dim i, j As Integer i = 1 For Each c In Selection Sheets(i).Name = c i = i + 1 Next c For j = 1 To Sheets.Count Sheets(j).Move ChDir "C:\Temp" ActiveWorkbook.SaveAs...