calvuch

Ok prueba esta macro Option Explicit Sub consolidar() Dim i As Integer Dim f As Integer Dim tf As Long Application.ScreenUpdating = False For i = 1 To (ThisWorkbook.Sheets.Count - 1) f = Application.WorksheetFunction.CountA(Sheets(i).Range("A:A")) If...

Esa función devuelve el valor que se encuentre a la derecha del valor buscado, tantas columnas como indiques en su argumento... en tu formula veo que como rango de búsqueda pones solo una columna C6:C8 por lo cual falla... la tabla de búsqueda debe...

Public Sub export_txt() ' exporta rango seleccionado a archivo txt Dim obj_FSO As Object Dim archivo As Object Dim rango As Range Dim r As Range Dim Nombre As String Dim filas As Long '4c7569735f50 Nombre = InputBox("indica nombre de archivo",...

al pasar por el select case categ1 = categ1 + List12.List(I) ¿Qué valor toma la variable categ1?... Puesto que al pasarlo al textfor6 lo pasas como string.

Habría que crear una función para tal efecto, pero los datos deben tener las mismas características y ubicación en todas las hojas...

El script que indicas hace referencia a un campo de texto (me.txtUsuario) de un formulario... supongo que existe ese formulario en tu proyecto verdad?

El problema es la concatenación de las cadenas ... MsgBox "El valor mas alto es: " & NumberFormat = "_ ""Bs"" * #,##0.00_ ;_ ""Bs"" * -#,##0.00_ ; ;_ Si te fijas luego del & estas concatenando una función Te sugiero aislar el tema Crea una variable...

Creo que existe un problema con el planteamiento... indicas 4 tramos pero si te fijas para el tramos 2 el mayor valor es 2 y a la vez es el mínimo valor del tercer tramo... ¿entonces cuándo el valor a evaluar es 2 que valor asignaras? 9,90 0 14,90!

Reemplaza ActiveSheet por Sheets("TABLA DE DATOS")

crea un sub de paso y ponle un bucle for i=0 to 1000 v=v next Luego desde tu macro llamas al bucle y listo... por cada llamada al bucle contaras de 0 a 1000, si aun es rapido elevas el for desde 0 a 20000 etc