UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

Masterhol


Hola estimados, mi problema es el siguiente:
Tengo una macro, un calendario que genera duplicados de la primera hoja llamada "Fecha" con el nombre de la fecha elegida por el calendario, pero si ingreso una fecha repetida quiero que me salga un mensaje de que esa hoja ya existe "Error". Ahí es cuando me sale el error.

El código que tengo es el siguiente:

Private Sub CommandButton1_Click()
k = 1
j = ActiveWorkbook.Worksheets.Count
For i = 1 To j
If CCalendario.Value = Sheets(i).Name Then
    MsgBox "Esta semana ya existe", , "Error", vbOKOnly
    Exit For
Else
k = k + 1
End If
Next i
If CCalendario.Value <> Sheets(k).Name Then
Sheets("Fecha").Copy After:=Sheets(j)
Sheets(j + 1).Name = CCalendario.Value
End If

If CCalendario.Value = Sheets(k).Name Then
MsgBox "Esta semana ya existe", , "Error", vbOKOnly
End If


De antemano muchas gracias,
Saludos,

Marcelo

Igtelo


Hola Masterhol.

Ve que dice la norma 3 y de paso lee recomendaciones para hacer preguntas.

Ignacio Téllez

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.