parmijo

Por que no pruebas con la opción delimitar Datos: Datos/texto en columnas y los delimitas de acuerdo al espacio!

No se que tanto pueda mejorar la velocidad de tu macro pero acá te doy una manera de poder hacerlo: ULT = Sheets("Nombre de la Hoja"). Range("f65536").End(xlUp). Row 'con esto obtienes el ultimo valor despues puedes realizar un ciclo: Sub ciclo() ULT...

Vamos a ver si te Funciona con este par de macros Sub Listar() ' Con esta macro obtienes la lista de direcctorios de una carpeta Sheets("Hoja2").Select Dim i As Long Dim MiRuta As String Dim MiNombre As String i = 1 MiRuta = "C:\nueva carpeta\*.xls"...

Supongo que esto te servirá: IF(ISERROR(VLOOKUP(A6&G$4;Jan!$H$2:$I$210;2;0));""; VLOOKUP(A6&G$4;Jan!$H$2:$I$210;2;0)) Creo que así es ingles

Prueba con =SI(A1="X";B2;0)

Prueba con la siguiente evaluando el rango d2 =si(d2<=30;"pesimo";si(y(d2<=50;d2>30);"malo"; si(y(d2<=60;d2>50);"regular";si(y(d2<=90;d2>60);"bueno";""))))

Sub verificar_datos() Range("a1").Select Dim nombre As String, valor1 As Long, valor2 As Long, valorA As Long, valorb As Long Hola prueba con esta macro saludos: Dim rango As String For x = 1 To 4 rango = ActiveCell.Row + 1 nombre = ActiveCell.Value...

Tal vez lo que necesitas es hacer una evaluación con un: IF "el rango" = empty Or " " then 'evaluas un rango o una celda exit sub ' Sales de la macro end if

que tal si realizas un for For i=1 to 10 ' cuantas veces quieras que se repita Textbox1 = cell(0,i) next i

Puede servir el Pegado especia- valores! Seleccionas la Columna, en tu caso donde tienes las fórmulas, copias y luego le das al botón izquierdo del mouse y elijes la opción pegado especial seleccionas los valores. Lo otro es realizar una macro de...