Principal

Seleccion Multiple en Excel – Ejemplo

Requiere un Formulario y dentro un listbox y boton

Private Sub cmdSalir_Click()
fila = 2
For i = 0 To listmeses.ListCount – 1
If listmeses.Selected(i) Then
Cells(fila, “A”) = listmeses.List(i)
fila = fila + 1
End If
Next i
Unload Me
End Sub

Private Sub UserForm_Initialize()
listmeses.RowSource = “tblmeses”
End Sub

Patrocinado por:

Libertad Financiera en 90 dias!

Controle el acceso a sus proyectos de Excel

Esta plantilla ayuda a proteger sus archivos de personas no autorizado para verlo o modificarlo.

basado en los usuarios de Windows y el evento Username

Copie el siguiente codigo en: ThisWorkbook

Private Sub Workbook_Open()
If Application.UserName = “Usuario PC1” Then
MsgBox “BIENVENIDO…!”, vbInformation, “Aviso!”
Sheets(“principal”).Select
Else
MsgBox “No Autorizado”, vbCritical, “Aviso!”
Application.DisplayAlerts = False
Application.Workbooks.Close
End If
End Sub

Plantilla de Control de Acceso

Esta plantilla esta pensada para controlar el acceso de personas a un recinto o establecimeinto, tales como oficinas, conjuntos cerrados, parqueaderos, bloques de apartamentos y demas sitios que requieren un control de visitantes o propietarios.

Muy sencilla y practica de implementar, en solo dos pasos se logra crear un sistema de control.

Tiene muchas posibilidades de personalización, debido a que se entrega con el codigo de acceso a VBA.

Puede adquirir en nuestra nueva tienda http://www.jfksoft.net

 

Trae dolar de Internet a una celda de Excel

Esta es una practica plantilla que permite colocar el valor del dolar hoy en una celda de Excel siempre actualizado.   Su funcionamiento es muy sencillo se abre la plantilla y el ejecuta una macro que va a Internet a una pagina donde se actualiza el dolar de forma diaria.  Esta tarea es transparente al Usuario.   Mira cómo funciona:

Descargas JFKSOFT

Autoreproducir audio al abrir archivo de excel

Esta plantilla muestra como se puede reproducir aun audio en Excel al abrir un archivo.   Esto sucede de forma automatica.

Haga clic en insertar objeto + Archivo de Sonido aparece la grabadora y haz la grabación y aceptar.

Este es el codigo VBA:
Private Sub Workbook_Open()
Sheets(“inicio”).Shapes(“audiojfksoft”).Select
Selection.Verb Verb:=xlPrimary
End Sub

audiojfksoft es el nombre que le dimos al objeto

DEJA UN COMENTARIO: Sobre el uso que le darías
y te enviamos la plantilla a tu correo.

Control de Inventarios en dos pasos

Con esta poderosa plantilla se puede controlar la perdida de mercancías y su vez en todo momento tener el inventario de ellas.

Puedo ademas generar informes de inventarios, listado de existencias, hoja de kardex digital por producto, productos agotados o de bajo stock.

Comprar ahora la Plantilla

Tiene muchas posibilidades de complementación para su negocio.   Más información….

VENTAJAS ADICIONALES

  • Es compacto y Portable
  • Se puede trabajar en Red Local ilimitadamente
  • Se puede usar con DropBox, GDRIVE, ONEDRIVE para compartir remotamente.
  • Con los informes se generan subinformes
  • Se puede personalizar en imagenes, colores y lineas
  • Se puede proteger su acceso a solo usuarios autorizados. (Le decimos como)
  • Se pueden proteger hojas de forma individual

INFORMES GENERADOS

  • Listado General de Existencias: Genera en un nuevo libro un listado de todas las existencias de cada uno de los productos..  Se pueden filtrar una vez generado, categorizar, y hacer un sin numero de subinformes.
  • Productos Agotados: Muestra en un libro nuevo todos los productos Agotados.  Se pueden filtrar
  • En cualquier momento se puede tener un kardex digital de un producto, esto permite encontrar rápidamente inconsistencias o perdidas.

 

Array y tablas un duo muy potente en Excel

Usar Arrays y Table con Excel, usando VBA es realmente muy potente.  Aqui presentamos un ejemplo muy interesante.

CODIGO GENERICO

Sub btnCargar_Haga_clic_en()
Dim aMeses() As Variant
Dim tbl As Range
Set tbl = Sheets(“datos”).Range(“tblmeses”)
aMeses = tbl
Sheets(“datos2”).Range(“A1”).Value = “Meses”
Sheets(“datos2”).Range(“A2:A13”) = aMeses
Sheets(“datos3”).Range(“A1”).Value = “Meses”
Sheets(“datos3”).Range(“A2:A13”) = aMeses
Range(“A2”).Select
End Sub