Excel - Modificar Marcro

 
Vista:

Modificar Marcro

Publicado por Marcelo (2 intervenciones) el 18/07/2009 23:46:27
Necesitaría si me pueden dar una mano con esta Macro, quisiera agregar una condición a la misma:
Que si la hoja “Enero” posee datos, que no pegue la información que trae de la hoja “Datos” y coloque un cartel que diga “YA LOS DATOS FUERON ACTUALIZADOS”.

Muchas Gracias

Sub Macro1()
"
" Macro1 Macro
" Macro grabada el 21/06/2009 por Ris WXP
"
" Acceso directo: CTRL+a
"
Sheets("Datos").Select
Cells.Select
Selection.Copy
Sheets("Enero").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Resumen").Select
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Modificar Marcro

Publicado por Mark (273 intervenciones) el 19/07/2009 05:18:45
Como no dices desde que celda colocaras esos datos, ni siquiera lo veo en la grabacion que muestras, a menos quieras copiarla toda.

Te propongo evaluar la primera celda del rango destino en la hoja Enero (estoy suponiendo que es A2), es decir,

Sub Macro1()

Sheets("Datos").Select
Cells.Select
Selection.Copy
Sheets("Enero").Select
If Range("A2").Value <> "" Then
MsgBox "YA LOS DATOS FUERON ACTUALIZADOS", vbCritical, "Advertencia..."
Exit Sub
End If
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Sheets("Resumen").Select
End Sub

Sin embargo esto lo veo la evaluacion muy ligera, pero total es lo que pediste
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Modificar Marcro

Publicado por Marcelo (2 intervenciones) el 20/07/2009 15:35:00
Muchas Gracias esto era lo que estaba necesitando
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar