Aprender Macros para Excel

Una Plantilla Excel programada en Visual Basic puede muchas labores de control administrativo y/o contable.

Tengo varios trabajos en Excel para controlar acciones de la industria y el comercio,los cuales ademas de ser totalmente funcionales se utilizan como ejemplo para aquellos que estan estudiando contabilidad y necesitan generar un control automatico en Excel o estan estudiando VisualBasic y necesitan un trabajo.

Pueden consultar en apolopelao @hotmail com por programas unicos en el mercado y/o en la red y totalmente sin costo, libres de compromisos posteriores que ademas notienen vencimientos y no son demos.

Les adjunto una serie de macros muy simples para solucionar algunos problemas complejos en cada una sus Plantillas de Excel. Son validas para las versiones 2007adelante. Solo deben pegarlas en un modulo, boton, etc. Mirar bien lo que la macro hace o para que sirve

Rellenar un ComboBox con los meses del año
Private Sub UserForm_Initialize()
  Dim i  Dim TMP
  ComboBox1.Clear
  For i = 1 To 12
    TMP = Format(DateSerial(2008, i, 1), "mmmm")
    ComboBox1.AddItem TMP
  Next i
  ComboBox1.ListIndex = 0
End Sub


Rellenar un ListBox conelementos únicos
Option Explicit
Sub BorrarDuplicados()
Dim AllCells As Range, Cell As Range
Dim NoDupes As New Collection
Dim i As Integer, j As Integer
Dim Swap1, Swap2, Item
   Loselementos se encuentran en el rango A1:A105
Set AllCells = Range("A1:A105")
   Las siguientes líneas ignoran los errares causados
   cuando se intenta añadir una entrada duplicada a la colección.   El elemento duplicado no se añade
On Error Resume Next
For Each Cell In AllCells
NoDupes.Add Cell.Value, CStr(Cell.Value)
Next Cell
    On Error GoTo 0
   Ordena la colección (opcional)For i = 1 To NoDupes.Count - 1
For j = i + 1 To NoDupes.Count
If NoDupes(i) > NoDupes(j) Then
Swap1 = NoDupes(i)
Swap2 = NoDupes(j)
NoDupes.Add Swap1, before:=j
NoDupes.Add Swap2,...