James Bond

Pon este código tal cual en tu modulo, si tienes encabezados en la fila A1, entonces esta línea set datos=range("a2").resize(r,1), cambiala por esta set datos=range("a2").resize(r-1,1) Private Sub UserForm_Initialize() r =...

Este ejemplo, este es el antes (no me quedo claro si es uno o varios centros de costos, así que la macro la hice para el segundo caso) este es el despues y esta es la macro Sub AGREGAR_COLUMNA() CUENTA = WorksheetFunction.CountIf(Cells, "CENTRO")...

Eso me pasa cuando tengo mal escrita una línea de código no por la sintaxis sino por lógica de la instrucción habría que ver tu código y probarlo para encontrar el error

¿Al decir sacar quieres decir eliminar las filas?, ¿Copiarlas a otra página? ¿O en la misma página?, esta macro elimina las filas que contengan cualquiera de los criterios de una lista. Sub quitar() Dim funcion As WorksheetFunction Set funcion =...

Prueba con esta fórmula Concatenar(izquierda(a2, 2), b2, derecha(a2, largo(a2)-2))

Esta es la fórmula que ocupas. Como puedes ver las 3 condiciones se cumplen, esta es la fórmula...

Primero crea un formulario así, la macro para ocultar los combox y textbox se carga en automático y para ir haciendo visible el combo y el textbox, es a través del botón, se ira en orden y en cuanto llenes el textbox y des enter lo visible se hará...

Quieres eliminar las filas donde la celda tenga el valor 0 o aquellas en las que el 0 sea parte del numero que esta en la celda por ejemplo, ¿10,20,30? Para el primer caso te paso esta macro. Sub borrar_0() Set datos = Range("c2").CurrentRegion With...

Prueba con esta macro Sub mostrar() Set h1 = Worksheets("nuestro pedido").Range("k3") Set H2 = Worksheets("lunes") VALIDAR = UCase(h1.Value) = "GLOBALFARM" Or UCase(h1.Value) = "METAGAL" If VALIDAR Then H2.Range("G:G").Columns.Hidden = False Else...

Usa esta macro Sub intercalar() Set datos = Range("a1").CurrentRegion With datos r = .Rows.Count: c = .Columns.Count Set tabla = .Columns(c + 1).Resize(r * 2, 1) For i = 1 To r * 2 With tabla .Cells(2 * i - 1, 1) = datos.Cells(i, 1) .Cells(2 * i, 1)...