calvuch

Aporta más datos... Donde están los datos ( referencias A1... B44... etc) ¿Cómo tomaras los criterios (Fecha, cuenta contable?) ( ¿Referencias?... ¿Inputbox?... ¿Formulario?. ¿El reporte se genera mediante que evento?... ( botón... ¿llamada macro?)...

Mmm, veamos, he utilizado otro filtro Sheets("BASE DE DATOS").Range("A1:C10000").AutoFilter Field:=1, Criteria1:= _ ">=" & Trim(FechaIni), Operator:=xlAnd, Criteria2:="<=" & Trim((Mid(FechaFin, 4, 2) & "-" & Mid(FechaFin, 1, 2) & "-" & Mid(FechaFin,...

Ja, no vi este dato. Si es así entonces prueba esto: Sub ultimo_dato() ' muestra en B1 el último dato registrado en columna A Dim i As Integer i = Application.WorksheetFunction.CountA(Range("A:A")) [b1] = Range("A" & i) End Sub Lo que hace es contar...

El siguiente macro esta realizado en los sgtes supuestos. 1 tienes Excel 2007 2 la fila 1 es para rótulos 3 los datos parten desde fila 2 y no existen filas vacías entre el primer dato y el ultimo. 4 se respeto la estructura indicada por ti Es decir...

Bueno si tienes un macro que "agrega Datos", pues el último que agregaste en A es en realidad la última pasada del macro... podrioas modificar tu macro para rescatar ese valor, si no Corre esto Sub ultimo_dato() Application.ScreenUpdating = False...

Si son solo los datos de arboles los variables, por que no sencillamente una vez terminado el ingreso de arboles, no vas directo y copias el rango a2:¿N2 hacia abajo tantas filas como arboles ingresaste y ya?

¿Dónde deseas que te muestre la información, mediante un mensaje en pantalla?, ¿En alguna celda? ( ¿Cuál? ). Indica ademas la columna que contiene los datos numéricos y la columna que contiene la info que deseas mostrar

Indicame el nombre la hoja y la columna en que están los números de contrato, para realizar el sub que realizara la búsqueda.

¿Qué evento activara la captura del text5 form2 para text1 form1?. En lo segundo, por que cuando pegas a2:n2 no pegas de inmediato a3:¿N3?. Si son los mismos datos.

Si lo que pasa es que la cadena : "jose martinez " y "Jose Martinez" son "cosas " distintas. Cambia esta linea Set R = [a:a].Find(What:=Usuario_repetido) por esto: Set r = [a:a].Find(What:=Usuario_repetido, After:=ActiveCell, LookIn:=xlFormulas, _...