Cuando estas "conectado" a una PC puedes hacer casi de todo retocar una fotografia, escribir choremas, escribir un programa, calcular, opinar, etc., etc.
miércoles, mayo 19, 2010
martes, abril 06, 2010
Quitar duplicados en Excel
Si bien se puede realizar dicha tarea de diferentes formas, como utilizar una consulta SQL desde el DATA Query, podría suceder que no lo tengamos instalado o mucho peor que ni siquiera tengamos acceso a instalarlo, también existen soluciones comerciales que pueden realizar dicha tarea (de manera mas efectiva), el siguiente macro agiliza un poco esta faena solo tienes que tener tus datos ordenados alfabéticamente posicionar el cursor en la primera celda de los datos y correr dicho el macro.
Sub duplicados()
Dim i As Integer
i = 0
ActiveCell.Activate
Do While ActiveCell.Offset(i, 0) <> ""
' si el dato actual es diferente al siguiente entonces
' escribelo en la celda de la derecha
If (ActiveCell.Offset(i, 0) <> ActiveCell.Offset(i + 1, 0)) Then
ActiveCell.Offset(i, 1) = ActiveCell.Offset(i, 0).Value
End If
i = i + 1
'Para librar el error donde un entero solo
'puede contener un numero entre -32767 y 32767
'y la cantidad de datos es mucho mayor a esa cifra
If i = 32000 Then i = 0
activecell.offset(i,0).activate
Loop
End Sub
Sub duplicados()
Dim i As Integer
i = 0
ActiveCell.Activate
Do While ActiveCell.Offset(i, 0) <> ""
' si el dato actual es diferente al siguiente entonces
' escribelo en la celda de la derecha
If (ActiveCell.Offset(i, 0) <> ActiveCell.Offset(i + 1, 0)) Then
ActiveCell.Offset(i, 1) = ActiveCell.Offset(i, 0).Value
End If
i = i + 1
'Para librar el error donde un entero solo
'puede contener un numero entre -32767 y 32767
'y la cantidad de datos es mucho mayor a esa cifra
If i = 32000 Then i = 0
activecell.offset(i,0).activate
Loop
End Sub
martes, marzo 30, 2010
sábado, marzo 13, 2010
Nuevas Actualizaciones de Wave
jueves, enero 21, 2010
fotos areas de Google Maps actualizadas
Esta fotografía muestra los campamentos de las misiones internacionales dentro del aeropuerto de puerto príncipe en Haití.
Ver mapa más grande
Gran trabajo el que esta realizando Google para ayudar a las misiones de rescate.
Ver mapa más grande
Gran trabajo el que esta realizando Google para ayudar a las misiones de rescate.
viernes, enero 08, 2010
Escudo de Presión Balanceada
Así trabaja la tuneladora (La Rielera) de marcar Robbins que construirá los 9 Km de túneles de la Linea 12 del metro de la Ciudad de México.
lunes, enero 04, 2010
Poll: Pelicula de la decada
Los chicos de chilango Publicaron esta encuesta para determinar cual es (segun ellos) la mejor Pelicula de la decada, abajo el link para que voten.
Poll: Pelicula de la decada
Poll: Pelicula de la decada
Suscribirse a:
Entradas (Atom)