Luis Mondelo

Te mando la solución. Ejecuta esta macro y todo listo! Sub creahoja() 'Por Luismondelo Sheets.Add after:=Sheets(Sheets.Count) ActiveSheet.Name = Sheets("nombres").Range("a1").Value End Sub recuerda finalizar la consulta

Te mando la solución y sigue mi ejemplo: En A1 escribimos: "la cesta de peras verdes" En B1 escribe esta fórmula: =SI(ESERROR(HALLAR("peras";A1));"no contiene peras";"contiene peras") recuerda finalizar la consulta

Te mando la solución. Ejecuta esta macro y todo listo! Sub sumar() 'por Luismondelo Range("g65000").End(xlUp).Offset(1, 0).Select Selection.Value = Application.WorksheetFunction.Sum(Range("g2:g" & ActiveCell.Offset(-1, 0).Row)) End Sub recuerda...

Utiliza esta sentencia Total = Application.WorksheetFunction.CountA(Sheets("hoja1").Range("a:a")) MsgBox Total Esta sentencia guarda en la variable total las celdas rellenas de la columna A de la hoja1 Recuerda finalizar la consulta

Marca esa columna y dale formato General a todas la celdas, creo que con esto verás algunos números alineados a la izquierda y son esos los causantes del problema. Hazlo y me cuentas.

Entonces cuando buscamos la intensidad primero decidimos en que columna lo haremos (2, ¿3 4 ó 5)?

Utiliza la función CONTAR en lugar de CONTARA y todo arreglado.

Te mando la solución a tu ejemplo: Sub prueba1() 'por Luismondelo Range("a1:d1").Copy Destination:=ActiveCell End Sub recuerda finalizar y puntuar la consulta

Te mando mi solución, sigue mis instrucciones: Posiciónate en la celda que tu quieras de la columna A y ejecuta esta macro que podrás tener vinculada a un botón: Esta macro te copiará las celdas que solicitas a la hoja2 en la primera fila libre que...

Esta es la solución: If ActiveCell.Value = 1 And activecell.offset(0,1).value = 2 Then Recuerda finalizar la consulta