toldeman

Prueba así: Sub hh() ActiveCell.End(xlToRight).Select End Sub

Prueba este código, copia hasta la fila 500, pero puedes modifícalo en el código: Sub buscar_fila() Dim c As variant Dim columnaultima As Long columnaultima = Cells(4, Columns.Count).End(xlToLeft).Column c = InputBox(valor) For i = 1 To columnaultima...

Mandame un pequeño ejemplo anotando de forma manual los resultados esperados e intentare ayudarte.

Prueba así: =si(y(b1="si";c1="si");a1;"")

Mandame un pequeño ejemplo e indica de forma manual los resultados esperados.

Para lo que requieres no te hace falta una macro, prueba esta fórmula y arrastrala hacia abajo tantas casillas necesites. =SUMAPRODUCTO(--(A$1:A1&B$1:B1&C$1:C1=A1&B1&C1))

Prueba así: K.ESIMO.MENOR(C$4:C$80;contar.si(c$4:c4;c4))

Mándame un pequeño ejemplo de lo que necesitas, poniendo de forma manual el resultado esperado. Un saludo. [email protected]

Utiliza la función val: Sheets("hoja1").Range("A1") = Val(TextBox1)

En C1 pon fecha de nacimiento y en otra celda pones esta fórmula: =VALOR(TEXTO(1+HOY()-C1;"aa"))