Al rellenar una celda, que se abra una nueva hoja ...

[Beladorr]

Hola a todos. Tengo una tabla de excel con varias hojas, y necesito lo siguiente:
 
Cuando rellene (con cualquier valor) la celda B2, debe abrirse automáticamente una nueva hoja, cuyo nombre sea...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Cacho R]

Hola! Beladorr.
De ningún modo voy a afirmar que te has explicado muy mal: ¡Para nada!... Lo que ocurre es que no te has explicado del todo bien. Analicemos juntos un par de cuestiones...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Beladorr]

Buenos días, Cacho R.

Ante todo, muchas gracias por tu pronta respuesta.

Hola! Beladorr.
De ningún modo voy a afirmar que te has explicado muy mal: ¡Para nada!... Lo que...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Cacho R]

Haz lo siguiente:

a) Click derecho en la solapa de la hoja (abajo a la izquierda de tu pantalla) en la que deseas el efecto y selecciona: Ver código

b) En la ventana que se te abrirá, copia y...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Beladorr]

Muchas gracias Cacho R. Va perfecto!!!!

Sölo nos queda una cosa que conseguir (quizás no lo comenté antes): la hoja se crea pero aparece en blanco, necesito que sea copia de la hoja cuoy nombre...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Cacho R]

En ese caso reemplaza:
If Err.Number > 0 Then Sheets.Add(After:=Sheets(Sheets.Count)).Name = shName

por:
If Err.Number > 0 Then
Sheets("Valores").Copy After:=Sheets(Sheets.Count)...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Beladorr]

Perfecto!!
AHora va perfecto!!

Muchas gracias por todo Cacho R!!!

 

[Cacho R]

¡Qué bueno!... Hasta la próxima.
Cacho R