James Bond

Este es el resultado que buscas modifique un poco tu macro y esta es la macro modificada Private Sub UserForm_Initialize() Worksheets("CLAVE").Range("AC2:AC" & Rows.Count).ClearContents Dim valdga As String Set inidga = Worksheets("BD").Cells(7, 6)...

El resultado de la macro lo ves en la imagen, esta busca ventas y efectivo sumando solo las filas que cumplan esas condiciones y esta es la macro Sub SUMAR_SI_2_CONDICIONES() Dim FUNCION As WorksheetFunction Set DATOS = Range("A2").CurrentRegion Set...

Tablas dinámicas, ¿tablas insertadas o tablas normales?, cada una lleva diferente código VBA y es más eficiente en estos casos en vez de vlookup o buscarv la instrucción match combinada con indice esta te permite consultar datos en las 4 direcciones...

Si tienes una gran cantidad de hojas haciéndolo por fórmula te vas a tardar y más si agregas o quitas hojas, esta macro te coloca en la ultima hoja el total de los productos de que se encuentren en cada hoja validando primero que existan en la misma...

No queda clara tu pregunta ¿quieres algo así? y esta es la macro que hace eso en esta pantalla se hizo sobre 100,000 filas y 5 columnas solo tomo unos segundos obtener el resultado de la columna G Sub concatenar() Set datos =...

Trata esta macro con un solo botón selecciona las preguntas de ambas hojas sin repetirlas y esta es la macro, solo cambia la referencia de los range por los que tu manejes Sub aleatorios() Dim unicos As New Collection Dim unicos2 As New Collection...

Prueba esta macro Sub copiar() Set h1 = Worksheets("hoja1") Set h2 = Worksheets("hoja2") Set origen = h1.range("d1").CurrentRegion Set datos = h2.range("a1").CurrentRegion With origen r = .Rows.Count For i = 1 To r valida = .Cells(i, 1) = 1 If valida...

Si no quieres usar VBA entonces cuando quieras convertir minúsculas en mayúsculas usa esta fórmula

Solo aplica las fórmulas que ves en la imagen y listo

Cuando pones "5" estas diciéndole al Excel que considere el valor como texto y no como numero, prueba poniéndolo sin comillas