Aprender Macros para Excel
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,...
Regístrate para leer el documento completo.