Como verificar si existe una hoja de calculo creada en el libro

[Pregunton]

Buenas Tardes a los partiticpantes de esta mesa de Ayuda.

Reciban un cordial saludo, y de antemano muy agradecido por la colaboración
que me puedan brindar.

Quiero que en visual excel se evalue con una macro si ya existe una hoja de
excel, por ejemplo si esta creada la hoja... Listado y sino esta creada que
muestre un mensaje que diga no esta creada la desea crear?.

Espero haberme hecho entender, no soy muy bueno para la redacción.

Nuevamente muchisimas gracias por su colaboración.

Atentamente;

OSWALDO GAITAN

[Héctor Miguel]

hola, Oswaldo !

> Quiero que en visual excel se evalue con una macro si ya existe una hoja

> por ejemplo si esta creada la hoja... Listado y sino esta creada
> que muestre un mensaje que diga no esta creada la desea crear?.

(p.e.)

Dim SeBusca As String, Existe As Boolean
SeBusca = "Listado"
On Error Resume Next
Existe = Worksheets(SeBusca).Type
On Error GoTo 0
If Existe Then Exit Sub
If MsgBox("La hoja " & SeBusca & " No existe" & vbCr & _
"Deseas crearla ?", vbQuestion + vbYesNo, _
"Paso intermedio") = vbNo Then Exit Sub
With ActiveSheet
With Worksheets.Add(After:=Worksheets(Worksheets.Count))
.Name = SeBusca
End With
.Select
End With

saludos,
hector.

[Pregunton]

Buenos Dias Héctor Miguel:

Muchisimas gracias por su colaboración me fue muy util el codigo que
dejaste, era lo que estaba necesitando, de nuevo muchisimas gracias.

Saludos Que Dios Lo Bendiga!

Atentamente;

OSWALDO GAITAN

[Gerardo D.M.]

Saludos H??ctor Miguel, sabes espero me puedas ayudar, hice un archivo con una lista de claves, y debo crear una hoja con el nombre de cada una de las claves, en ocasiones las hojas ya existen y en otras ocasiones las hojas no existen y necesito que la macro sepa cuando debe crear una hoja nueva, espero me puedas ayudar, te paso mi codigo:

Sub AvancedeHojas()
Dim HB As String
HB = Sheets("CAPTURA").Range("G20").Value
Sheets("CAPTURA").Select

Do Until ActiveCell.Text = "@"

Sheets("CAPTURA").Range("G20").Select

ActiveCell.Select
On Error Resume Next
Sheets(HB).Select
If ActiveSheet.Name <> HB Then
Sheets("MACHOTE").Select
Sheets("MACHOTE").Copy After:=Sheets("CAPTURA")
Sheets("CAPTURA").Range("G20:i20").Copy
Sheets("MACHOTE (2)").Range("G2").Select
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("MACHOTE (2)").Name = Range("G2").Value
Range("G2").Select
Application.CutCopyMode = False
ActiveSheet.Previous.Select
Range("G20").Select
Sheets("CAPTURA").Range("G20:N20").Select
Selection.Cut
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
Range("G20").Select
Selection.EntireRow.Delete
Else
End If

Loop

End Sub

* no se si puedas agregarme a tu correo, es mas no se si este permitido, ojala que no me baneen. gdm...@hotmail.com

> On Friday, August 22, 2008 5:56 PM Pregunto wrote:

> Buenas Tardes a los partiticpantes de esta mesa de Ayuda.
>

> Reciban un cordial saludo, y de antemano muy agradecido por la colaboraci??n
> que me puedan brindar.
>
> Quiero que en visual excel se evalue con una macro si ya existe una hoja de
> excel, por ejemplo si esta creada la hoja... Listado y sino esta creada que

> muestre un mensaje que diga no esta creada la desea crear?.
>

> Espero haberme hecho entender, no soy muy bueno para la redacci??n.
>
> Nuevamente muchisimas gracias por su colaboraci??n.
>
> Atentamente;
>
>
> OSWALDO GAITAN

>> On Friday, August 22, 2008 7:01 PM H?ctor Miguel wrote:

>> hola, Oswaldo !

>>
>>
>> (p.e.)
>>
>> Dim SeBusca As String, Existe As Boolean
>> SeBusca = "Listado"
>> On Error Resume Next
>> Existe = Worksheets(SeBusca).Type
>> On Error GoTo 0
>> If Existe Then Exit Sub
>> If MsgBox("La hoja " & SeBusca & " No existe" & vbCr & _
>> "Deseas crearla ?", vbQuestion + vbYesNo, _
>> "Paso intermedio") = vbNo Then Exit Sub
>> With ActiveSheet
>> With Worksheets.Add(After:=Worksheets(Worksheets.Count))
>> .Name = SeBusca
>> End With
>> .Select
>> End With
>>
>> saludos,
>> hector.

>>> On Monday, August 25, 2008 1:06 PM Pregunto wrote:

>>> Buenos Dias H??ctor Miguel:
>>>
>>> Muchisimas gracias por su colaboraci??n me fue muy util el codigo que

>>> dejaste, era lo que estaba necesitando, de nuevo muchisimas gracias.
>>>
>>> Saludos Que Dios Lo Bendiga!
>>>
>>>
>>> Atentamente;
>>>
>>> OSWALDO GAITAN

>>> Submitted via EggHeadCafe
>>> ASP.NET Sum of Numbers Captcha Control with CustomValidator
>>> http://www.eggheadcafe.com/tutorials/aspnet/bde8bf73-c31c-4c73-af05-861769e625e8/aspnet-sum-of-numbers-captcha-control-with-customvalidator.aspx