Carlos Arrocha

Si en un par de meses has crecido un par de centímetros, todo hace suponer que podrás superar 1,73, incluso yo apostaría por 1,75 o algo más. Aliméntate bien, practica deporte, descansa lo suficiente (8/10 horas diarias) y del resto ya se encarga tu...

El agua es necesaria y deberías tomar como mínimo, un litro al día repartida en varias tomas, y por supuesto, depende del lugar (Zonas muy calurosas), actividad, edad etc., pero desde luego no te sirve para subir de peso. Salu2 Carlos Arrocha

[Hola Luna. No das detalles sobre tu peso, estatura, actividad física, alimentación etc. Solo dices que te gustaría subir de peso, pero para ayudarte necesitamos algo más de información. Salu2 Carlos Arrocha

Prueba cambiando esta línea If copia = vbCancel Then Exit Sub Por esta If copia = Empty Then Exit Sub

[Hola Daniel. De momento lo estás haciendo bien, te alimentas bien, practicas deporte y descansas lo suficiente, el resto es una lotería que ni tu ni nadie puede saber, pero si no llegas a la altura deseada, yo creo que 1,85 si alcances, que tampoco...

[Hola Oscar. Yo apostaría a que puedes crecer un poco más, pero para que aproveches bien los 3/4 años que te quedan de crecimiento, debes aportar a tu cuerpo todas las herramientas necesarias para que pueda hacer su trabajo sin carencias, y para esto...

[Hola Sebastián. Lo correcto para Maestro de Taekwondo es de 7º Dan en adelante, por detrás de este, Profesor (Sabonim). Salu2 Carlos Arrocha

[Hola Ivan. Si, desde luego te sobran muchos kilos que deberías bajar cuanto antes, primero por salud y después por estética, pero hazlo de forma natural, quiero decir, sin medicamentos ni productos milagrosos que te prometen una reducción rápida y...

Lo normal es que si eliminas la hoja del libro se elimine también de vba y no aparezca, pero si en tu caso no es así, prueba cerrando el libro y lo vuelves a abrir.

Si solo quieres que te sitúe en la última celda te podría servir algo así. Private Sub CommandButton1_Click() Set h1 = Sheets("Hoja1") h1.Range("A" & Rows.Count).End(3).Select End Sub