Convertir Minusculas a Mayusculas Excel

 

 

 

 

 

 

Esta semana tenia un inventario de servidores donde  algunos datos estaban en mayusculas y otros en minusculas y ocupabamos ponertodo en mayusculas, hacerlo de manera manual me iva a tomar mucho tiempo asi que encontre esto que les puede ayudar

Primero encontre la funcion

=upper

con la syntaxis

=upper(A1)

pero esto me creaba otra celda con el texto en mayusculas , no era lo que yo buscaba

 

Se resolvio utilizando este esta pequeño codigo de Visual Basic

---

Public Sub mayuscula2()
Set rgColA = Range("aO2:AO5000")
Dim rg As Range
For Each rg In rgColA. Cells
rg. Value = UCase(rg. Text)
Next
End Sub

---

Listar Impresoras Instaladas

Hoy me inscribieron a andres.arredondo@hotmail.com pidiendome un script que les ayudara a sacar un reporte de las impresoras que tiene instalado un servidor de impresion. El problema era que el servidor tiene mas de 200 impresoras instaladas y el reporte ocupaba tener Nombre de la impresora, modelo, direccion IP.
Bueno aqui les paso el script que nos dio el reporte que necesitaban.
Este codigo solo lo copian a un archivo TXT, luego cambian la extencion a VBS. en mi caso mi archivo se llamo printer.vbs
Por default al momento de ejecutarlo nos creea un archivo htm en C raiz. Ustedes puedes cambiar la ubicacion o el nombre de dicho archivo, esto lo encuentras en la linea 25 del codigo
Espero les sea de utilidad

MEJOR QUE LO HAGAN ELLOS

Hoy tuve la necesidad de pasar un reporte de los parches que recientemente se instalaron en mis servidores windows , alrededor de 40 parches de instalaron este mes , para no estar escribiendo cada uno de los parches me encontre con un Script en VBs que nos genera un archivo TXT que contiene algo asi por cada parche instalado: