macros de excel

donde puedo poner dudas con respecto al tema de las macros de excel, las que se programan en visual

sialguien me manda un privado, y luego borra este tema se lo agradeceria

Mientras tanto por que no las pones aqui?? Wink

Cita de: She-Devil en Diciembre 05, 2007, 06:08:29

Mientras tanto por que no las pones aqui?? Wink

OK!!!!

1) tengo una tabla con 5 valores, la que se van llenando segun la persona vaya ingresando datos.

la lleno a traves de un formulario.

entonces lo que quiero es hacer un filtro a traves del form, para imprimir los datos que solo nececito ocupar.

denme alguna idea de como hacer el filtro

2) los mismos datos de la tabla, los nececito llevar al form y que me ingresen a los textbox para hacer cambios en las filas de datos si es necesario.

eso...

Me cuelgas un excel con un ejemplo e intento hacertelo? es que no em hago una idea esacta de lo que necesitas

Y yo asi en frio...no doy pie con bola Tongue

Lo que encecito es hacer un filtro de la tala que se ve, por ejemplo quiero que me aparescan solo los datos del año 2005, y luego imprimir ese rango

si nececitas algo mas me avisas

algo mas a ver si alguien se anima a ayudarme!!

tengo el codigo para hacer el fltro, el que lo tengo guardado en el Boton de esta forma

Private Sub CommandButton2_Click()
Dim a, b
a = TextBox1
b = TextBox2

Range("A12").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=">=16", Operator:=xlAnd, _
Criteria2:="<=25"

End Sub

que hace esto? me filtra los datos que tenga los codigos etre 16 y 25, todo bien hasta ahi, lo que nececito ahora, es que el usuario coloque los rangos en 2 TextBox, ahi tego el problema, ya que la concatenacion que hago para adjuntarle las variables a y b no me resulta.

Ahora me resulta de esta forma, pero solo con numeros, y nececito filtrar fechas

Private Sub CommandButton2_Click()
Dim a, b
a = TextBox1
b = TextBox2

Range("A12").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=">=" & a, Operator:=xlAnd, _
Criteria2:="<=" & b

End Sub

parece que nadie sabia, pero igual encontre la solucion, asi que lo dejo para que le sirva a alguien mas adelante

Private Sub CommandButton2_Click()

Dim fechaini As String, fechafin As String
Dim fecha1 As String, fecha2 As String
Dim mes As Integer, mes2 As Integer
Dim dia As Integer, dia2 As Integer
Dim año As Integer, año2 As Integer
fechaini = TextBox1
fechafin = TextBox2

fecha1 = Format(fechaini, "dd/MM/yyyy")
fecha2 = Format(fechafin, "dd/MM/yyyy")

mes = Mid(fecha1, 4, 2)
dia = Mid(fecha1, 1, 2)
año = Mid(fecha1, 7, 4)
fecha1 = mes & "-" & dia & "-" & año

mes2 = Mid(fecha2, 4, 2)
dia2 = Mid(fecha2, 1, 2)
año2 = Mid(fecha1, 7, 4)
fecha2 = mes2 & "-" & dia2 & "-" & año2

Range("A13").Select

Selection.AutoFilter
Selection.AutoFilter Field:=5, Criteria1:=">=" & fecha1, Operator:=xlAnd, _
Criteria2:="<=" & fecha2

End Sub

el problema de las fechas es que como nosotros colocamos dia/mes/año, los gringos colocan mes/dia/año, por lo que hay que adaptar la fecha que nosotros ocupamos y colocamos en excel para que el filtro no funcione

	Bienvenido(a), Visitante. Favor de ingresar o registrarse. ¿Perdiste tu email de activación? - Octubre 07, 2008, 09:19:55