Foro Excel

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

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

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

gracias

espero apoyo adrian
saludos

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

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