Todas Las Categorias

21/04/2009Usuario | Estimado Experto, a continuacion mi codigo: 
Sub Mayusculas () 
For Each Cell in Selection 
If Left (Cell.Formula, 1) <> "=" Then 
Cell.Value = Ucase(Cell.Value) 
End If 
Next 
End Sub 
Como usted ya se abra percatado estas pequeñas lineas de codigo lo que hacen es convertir el texto a Mayusculas respetando las celdas que contienen formula en un rango activo,todo va bien hasta que, si en el rango en el que aplico el macros me encuentro con una fecha por ejemplo "01/02/2009" la macros automaticamente la cambia y la vuelve a escribir asi "02/01/2009", lo pone en formato de fecha anglo, que modificacion considera usted necesaria que agregue a mi codigo para que las fechas no sufran cambios cuando ejecute nuevamente la aplicacion?? 
Le agradezco 
  |21/04/2009Usuario | Estimado Experto, de antemano le pido una disculpa por las molestias ocasionadas, tambien debe saber que anque ya tengo muchos años trabajando con Excel hasta apenas hace unos dias me he estado metiendo con los Macros por lo que soy un principiante aunque me he dado cuenta que saber usar las formulas me ha ayudado mucho a enteder como trabaja VBA en excel, a continuacion un nuevocodigo que he escrito 
  
Sub Mayusuculas () 
Dim Dia As String 
Dim Mes As String 
Dim Año As String 
  
For Each Cell in Selection 
   If IsDate(Cell.Value) Then 
      Dia = Day (Cell) 
      Mes = Month (Cell) 
      Año = Year (Cell) 
   Cell.Value = Dia & "/" & Mes & "/" & Año 
   End If 
Next 
For Each Cell in Selection 
   If Left (Cell.Formula, 1 ) <>"=" Then 
   Cell.Value = UCase (Cell.Value) 
   End If 
Next 
End Sub 
  
Pues a resuelto mi problema inicial, las fechas no sufren cambios en la forma en que presentan el dia y el mes, ahora lo que sucede es que al terminar la operacion el resultado de separar la fecha por dia, mes y año la macros la reconoce como Texto. 
Supongo que ya estare mas cerca de la solucion. |21/04/2009Usuario | Perdon, *he resuelto mi problema inicial... ahora como logro que la fecha la escriba como fecha y no como texto? 
Gracias!!! |
22/04/2009Experto | donde armas la fecha probá con 
Cell.Value = CDate(Dia & "/" & Mes & "/" & año) 
Saludos 
gfellay 
  |

22/04/2009Experto | Igual creo que si te funciona la siguiente modificación que hice a tu macro inicial será massencilla 
Sub Mayusculas () 
For Each Cell in Selection 
If (Left (Cell.Formula, 1) <> "=" and Not IsDate(Cell.Value) Then 
Cell.Value = Ucase(Cell.Value) 
End If 
Next 
End Sub |
22/04/2009Usuario | Mejor no podria quedar!!!, le agradezco mucho!!! |
Facebook
Twitter
Compártelo
* Volver a preguntar
* Herramientas
* Volver
Más opciones
* Preguntar en Microsoft ExcelEnlaces patrocinados
Respuestas relacionadas
* Afectacion de fechas en Macros
* Comando IF / END IF
* macro funciona, pero al llamarla con codigo no
* For each
* Trabajar en VBA con "Select Case" o "If Then...End if"
Inicio | Publicidad | Condiciones de uso | Declaración de privacidad | Blog

29/03/2009Usuario | Te consulto nuevamente sobre la macro que me pasaste paraabrir archivos. 
Me gustaria que lo pruebes, ya que cuando el archivo  si existe, abre ese archivo y aparece el cuadro de texto que dice "No existe". 
Me parece que hay un error. 
En realidad no tiene que abrir el archivo que yo busco, sino que tiene que decir si existe o no existe, nada mas,  sin necesidad de abrirlo. 
Gracias de nuevo |
29/03/2009Experto | Te cambio la macro ligeramente,probala y cualquier cosa avisame 
  
sub Existe() 
On Error Goto NoExiste 
Workbooks.Open(Range("A1").Value & ".xls") 
MsgBox "Existe" 
ActiveWorkbook.Close False 
Exit Sub 
NoExiste: 
MsgBox "No Existe" 
End Sub 
Saludos 
gfellay |

30/03/2009Usuario | Ahora si funciona 10 
Gracias Sos un capo |
Facebook
Twitter
Compártelo
* Volver a preguntar
* Herramientas
*...