03 agosto, 2015

Excel insertar imagenes en columna

Me toca hacer un catalogo y este macro me ahorra tiempo para meter varias imágenes en una columna

Sub InsertPictures()
'Update 20140513
Dim PicList() As Variant
Dim PicFormat As String
Dim Rng As Range
Dim sShape As Shape
On Error Resume Next
PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True)
xColIndex = Application.ActiveCell.Column
If IsArray(PicList) Then
    xRowIndex = Application.ActiveCell.Row
    For lLoop = LBound(PicList) To UBound(PicList)
        Set Rng = Cells(xRowIndex, xColIndex)
        Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height)
        xRowIndex = xRowIndex + 1
    Next
End If
End Sub

29 junio, 2015

Quitar la Clave a una Hoja de Excel

Hoy me toco usar una hoja protegida en excel. y por algo tenia que desprotegerla. lo hice con este codigo que me encontre en la web

Sub jd()
Dim a As Integer, b As Integer, c As Integer
Dim d As Integer, e As Integer, f As Integer
Dim a1 As Integer, a2 As Integer, a3 As Integer
Dim a4 As Integer, a5 As Integer, a6 As Integer
On Error Resume Next
For a = 65 To 66: For b = 65 To 66: For c = 65 To 66
For d = 65 To 66: For e = 65 To 66: For a1 = 65 To 66
For a2 = 65 To 66: For a3 = 65 To 66: For a4 = 65 To 66
For a5 = 65 To 66: For a6 = 65 To 66: For f = 32 To 126
Contraseña = Chr(a) & Chr(b) & Chr(c) & Chr(d) & Chr(e) & Chr(a1) _
& Chr(a2) & Chr(a3) & Chr(a4) & Chr(a5) & Chr(a6) & Chr(f)
ActiveSheet.Unprotect Contraseña
If ActiveSheet.ProtectContents = False Then
MsgBox "¡JD TE DA TU CONTRASEÑA!" & vbCr & "La contraseña es:" & vbCr & Contraseña
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub



esta en VB

aprieta en tu hoja de excel ALT+F11

de ahi dale doble click a donde dice "ThisWorkBook" pega el codigo, luego dale ejecutar. (F5)

y dirá la contraseña. 


Gracias a JD, que no se quien es el xD pero el lo creo 

lo use en Office 365

04 mayo, 2015

Lista de Repetidores y Estaciones de la Zona de Guadalajara y zona metropolitana para radioaficionado

escuchaba la banda de 2 metros y recopile una pequeña lista de repetidores y estaciones en Guadalajara (Mexico)  con sus indicativos , recordar que por debajo de 147 MHz, de 600 kHz en menos, y por encima de 147 MHz, de 600 kHz en más

XE1GQP Ricardo
438.200 SUBTONO  1 NEGATIVO NEGATIVO OFFSET -5000

XE1HAX Miguel
147.390 SUBTONO 88.5 OFFSET +600

XE1FAP Jesus
433.275 SUBTONO 88.5 OFFSET +1000

XE1GYZ Jorgue
146.470 SUBTONO 88.5 , SIMPLEX

XE1GYH Luis
147.420 SUBTONO 88.5 , OFFSET SIMPLEX

XE1GNZ Jorgue
147.090 SUBTONO 123 OFFSET +600

04 febrero, 2015

Actualizacion 7.7 contpaq i contabilidad

La actualización 7.7 de contpaq esta causando muchos problemas por alguna incompatibilidad entre las versiones pasadas y esta, lo que ocasiona que el servidor de aplicaciones no inicie y por lo tanto no puedas acceder al sistema,

en mi caso se quedaba el log en
Actualizando la tabla de permisos por usuario



y de ahí no pasaba


para solucionarlo la gente de contpaq hizo un script que resuelve el problema aqui lo dejo
para ejecutar el script deben tener instalado el Microsoft SQL Server Management Studio Express (busquen en google como ponerlo),
solo pulsan en ejecutar y ya.




Bajar Script Mega.co.nz