MACRO SELECT CASE , AYUDENME A QUE CORREGIRLA

Solo consultas sobre macros y código VBA Excel.

Reglas del Foro
1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!
Compartir en:
     

MACRO SELECT CASE , AYUDENME A QUE CORREGIRLA

Notapor mas_astuto » 19 Nov 2010 13:07

ALGUIEN ME PODRIA AYUDAR A QUE CORRA ESTA MACRO
ESPERO QUE SI , MUCHAS GRACIAS.
-----------------------------------------------------------------------

Sub macro1()

Select Case Cells(4, 1).Value

Case Is = Cells(4, 1).Value = "MELATE":

Cells(4, 2).Copy Sheets("MELATE").Cells(2395, 1)
Range("a7:g7").Copy Sheets("MELATE").Cells(2395, 2)
Cells(4, 3).Copy Sheets("MELATE").Cells(2395, 9)
Range("A4:c4").ClearContents
Range("A7:g7").ClearContents

Case Is = Cells(4, 1).Value = "REVANCHA":

Cells(4, 2).Copy Sheets("REVANCHA").Cells(2395, 1)
Range("a7:g7").Copy Sheets("REVANCHA").Cells(2395, 2)
Cells(4, 3).Copy Sheets("REVANCHA").Cells(2395, 9)
Range("A4:c4").ClearContents
Range("A7:g7").ClearContents

Case Is = Cells(4, 1).Value = "REVANCHITA":

Cells(4, 2).Copy Sheets("REVANCHITA").Cells(2395, 1)
Range("a7:g7").Copy Sheets("REVANCHITA").Cells(2395, 2)
Cells(4, 3).Copy Sheets("REVANCHITA").Cells(2395, 9)
Range("A4:c4").ClearContents
Range("A7:g7").ClearContents

End Select

End Sub
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
mas_astuto
Miembro Frecuente
Miembro Frecuente
 
Registrado: 11 Oct 2010 17:51

Re: MACRO SELECT CASE , AYUDENME A QUE CORREGIRLA

Notapor Adrian » 19 Nov 2010 13:58

hola, no probé lo que expongo pero creo va a funcinar:

Sub macro1()

Select Case Cells(4, 1).Value

Case "MELATE"

Cells(4, 2).Copy Sheets("MELATE").Cells(2395, 1)
Range("a7:g7").Copy Sheets("MELATE").Cells(2395, 2)
Cells(4, 3).Copy Sheets("MELATE").Cells(2395, 9)
Range("A4:c4").ClearContents
Range("A7:g7").ClearContents

Case "REVANCHA"

Cells(4, 2).Copy Sheets("REVANCHA").Cells(2395, 1)
Range("a7:g7").Copy Sheets("REVANCHA").Cells(2395, 2)
Cells(4, 3).Copy Sheets("REVANCHA").Cells(2395, 9)
Range("A4:c4").ClearContents
Range("A7:g7").ClearContents

Case "REVANCHITA"

Cells(4, 2).Copy Sheets("REVANCHITA").Cells(2395, 1)
Range("a7:g7").Copy Sheets("REVANCHITA").Cells(2395, 2)
Cells(4, 3).Copy Sheets("REVANCHITA").Cells(2395, 9)
Range("A4:c4").ClearContents
Range("A7:g7").ClearContents

End Select

End Sub
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
Adrian
Moderator
Moderator
 
Registrado: 13 Jun 2004 17:24
Ubicación: Chamical La Rioja ARG

Re: MACRO SELECT CASE , AYUDENME A QUE CORREGIRLA

Notapor mas_astuto » 19 Nov 2010 15:29

No funciona adrian, no corre la macro
ojala puedas revisarla mas a fondo

gracias

espero apoyo adrian
saludos
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
mas_astuto
Miembro Frecuente
Miembro Frecuente
 
Registrado: 11 Oct 2010 17:51

Re: MACRO SELECT CASE , AYUDENME A QUE CORREGIRLA

Notapor Adrian » 19 Nov 2010 16:35

Mira, la cro que te pongo acá la probé y corre perfecto, obvio anule código no necesario para mi pero no tendrías que tener problema, lo que puede pasar es en A4 donde ingresas el texto no lo pongas con mayúsculs y el módulo donde esta la macro distinga en tre mayús y minús.
Otra que pongs en A4 me late y vos verificás melate, todo junto.

Sub macro1()

Select Case UCase(Cells(4, 1).Value) ' es la celda A4
Case "MELATE"
MsgBox "me late", 64, ""
Case "REVANCHA"
MsgBox "revancha", 64, ""
Case "REVANCHITA"
MsgBox "revanchita", 64, ""
End Select

End Sub
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
Adrian
Moderator
Moderator
 
Registrado: 13 Jun 2004 17:24
Ubicación: Chamical La Rioja ARG

Re: MACRO SELECT CASE , AYUDENME A QUE CORREGIRLA

Notapor mas_astuto » 19 Nov 2010 20:05

adrian :

muchas gracias
ya logre correr la macro
modificarla para mi uso en especifico
y quedo padre corre como auto de formula 1
manejado por nikki lauda en su epoca de gloria
te estoy agradecido
un saludo desde xalapa veracruz mexico

por cierto
subi la macro como un aporte por si gustas echarle un vistazo
saludos nuevamente
bye
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
mas_astuto
Miembro Frecuente
Miembro Frecuente
 
Registrado: 11 Oct 2010 17:51


Compartir en:
     

  • Anuncio
Manual Excel avanzado

Volver a Macros

¿Quién está conectado?

Usuarios navegando por este Foro: jorge leon y 7 invitados