calvuch

Cero que tu enfoque esta mal orientado, pues utilzias la función buscar y no en forma exacta, pues de esa manera el find te devuelve la coincidencia más próxima y no exacta. Prueba de esta manera: Dim user As String Dim pass As String Dim R As Range...

Ahora si: Sub NuevaHoja() Cells.Select Selection.Copy Dim nombreHoja As String nombreHoja = InputBox("Escriba un nombre para la nueva hoja:") If nombreHoja = "" Then Exit Sub Dim hoja As Worksheet Set hoja = ActiveWorkbook.Sheets.Add(,...

Para sumar solo negativos de un rango, utiliza esta forma: =sumar.si(a1:z1;"<" &0;a1:z1)

Te equivocaste en la sintaxis : Private Sub Txt_01_KeyPress(KeyAscii As Interger) If Not IsNumeric(Chr(KeyAscii)) And KeyAscii <> 8 Then KeyAscii = 0 End If End Sub Private Sub Txt_02_KeyPress(KeyAscii As Interger) Declaraste como "Interger" pero es...

Ya... y donde quieres que te avise sobre la misma celda en la de al lado... da un ejemplo.

Osea que en esta linea Selection.AutoFill Destination:=Range("C3:C2269") , debe ser variable C2269 utiliza el modo concatenado asi: Selection.AutoFill Destination:=Range("C3" & ":" & "C" & fila) En donde fila es una variable numérica que contiene el...

En A1 de la hoja 3 pon esto: =+Hoja1!A1+Hoja2!A1 Si te sirve CIERRA la pregunta, si tienes otras preguntas habré "otra pregunta"

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...