víctor ibarz

Quedaría así: Sub ejemplo() 'Por Luis Mondelo Application.DisplayAlerts = False Do While ActiveCell.Value <> "" valor = ActiveCell contarsi = Application.WorksheetFunction.CountIf(Columns(6), valor) If contarsi > 1 Then Range(Cells(ActiveCell.Row,...

Lo puedes resolver así: Tienes que adaptar los rangos a tu caso particular. Es posible que debas utilizar "coma" en lugar de "punto y coma" que utilizo yo. Se trata de una fórmula de matriz, para hacer que funcione correctamente, la introduces...

=NUM.DE.SEMANA(B2;2)-NUM.DE.SEMANA(FIN.MES(B2;-1)+1;2)+1 Esto debería funcionar correctamente

Si puedes mostrar cómo tienes organizados los datos y dónde quieres los resultados será más fácil que alguien pueda responder.

Adriel, como fan declarado de las fórmulas de matriz, me permito realizar un aporte a esta pregunta, a la espera de que Dante nos ilustre al respecto. De entrada te dejo el enlace que seguro que has leído del soporte de microsoft:...

Esto te puede servir: Public ultima As Integer Sub separarl() Dim hresumen As Worksheet Dim hmagna As Worksheet Dim hpremium As Worksheet Dim hdiesel As Worksheet Dim cass As Worksheet Set hresumen = Sheets("Resumen") Set hmagna = Sheets("Magna") Set...

Utiliza la función SUMAR. SI Copia la columna "Personal" y pégala en otra hoja. COn la columna que acabas de pegar seleccionada, clic en "Datos\Quitar Duplicados\Aceptar" (obtendrás el listado de personal, sin duplicados. Sitúate en la celda de la...

Con fórmula matricial puede ser así: =MAX(SI(D4:D9=C12;SI(C4:C9=C11;G4:G9;"");"")) De este modo te busca el máximo que cumpla las dos condiciones, incluso si tienes varias combinaciones de jose/squat, el buscarv te devuelve la primera coincidencia...

Jaime, el problema se puede resolver de forma parecida, en este caso sería así: Para contar las columnas de cantidad con datos: =CONTAR(SI(D4:O4="cantidad";D5:O5;"")) Adapta los rangos a tu caso particular. Recuerda que para que funcione debe ser...

Sería algo así: Sub CrearCarpeta() ruta = "C:\OUT\" NumOut = Range("A2") DescripcionOut = Range("A3") Carpeta = "OUT_" & NumOut & "-" & Format(Date, "yyyy_mm_dd") & "-" & DescripcionOut If Len(Dir(ruta & Carpeta, vbDirectory)) = 0 Then ruta = ruta &...