Macro en Excel

Cerrado
ramonvar
Message postés
1
Date d'inscription
lunes, 24 de noviembre de 2014
Estatus
Miembro
Última intervención
lunes, 24 de noviembre de 2014
- 24 nov 2014 a las 17:34
Hola a Todos los del Foro..
Tengo esta macro pero aún no puedo hacerle funcionar para lo que yo necesito..
Quisiera poner Filtro de búsquedas rápidas alfanuméricas..de las columnas "3" y "9".y suma total de una columna en este caso es la columna "9". (donde dice "importe"
Quisiera mostrar nada mas que las columnas "2", "3", "4", "8" y "9" nada mas que esas
En primer lugar ahí en el Combobox necesito que me aparezca la opción de elegir una de las categorías en este caso tiene que ser "ruc empresa y codigos form. 104".

Y por último que me realice la suma del "importe" (columna importe "8") total de la categoría seleccionada de ese mes..la idea es tener un control de gastos mensuales por categorías..espero haberme explicado..

Esta macro muestra las columnas "5" y "7", en lugar de estas me gustaría mostrar las columnas "8" (columna importe) y "9"..

y que posibilidad hay de que las columnas se ajusten de acuerdo al contenido?

Esta es la macro..les comento que soy super novato en esto, desde ya las disculpas del caso.

Esto está en un Modulo

Option Explicit
--------------------------------------
Sub MostrarUserForm()
'El UserForm se muestra sin modo lo que permite seleccionar
'celdas mientras el userform se encuentra activo.
UserForm8.Show False
End Sub

Esto está en un UserFomr

Private Sub C_Click()
Texto_Change
End Sub
-----------------------------------------------------
Private Sub K_Change()

End Sub
------------------------------------------------------------
Private Sub CommandButton1_Click()
Dim i As Byte, tot As Integer
For i = 0 To ListBox1.ListCount - 1 'ajustar nbre del control ListBox
tot = tot + Val(ListBox1.List(i, 3)) 'ajustar nbre y nro de col, aquí el 2 representa la 3er col
Next i
TextBox1 = tot
End Sub
-----------------------------------------------
Private Sub L_Click()

End Sub
---------------------------------------------------
Private Sub Label1_Click()

End Sub
----------------------------------------------------
Private Sub TextBox1_Change()

End Sub
---------------------------------------------------------
Private Sub Texto_Change()
L.Clear
For x = 0 To K.ListCount - 1
If UCase(K.List(x, C.ListIndex)) Like "*" & UCase(Texto) & "*" Then
L.AddItem
For y = 0 To K.ColumnCount - 1: L.List(L.ListCount - 1, y) = K.List(x, y): Next
End If
Next
End Sub
------------------------------------------------------------------------
Private Sub UserForm_Initialize()
For x = 1 To L.ColumnCount: C.AddItem Cells(1, x): Next
C.ListIndex = 0: Texto_Change
End Sub