Leaderboard

hola CarlosKurt Tengo entendido que Indice con Coincidir es mas económico.. =INDICE($B$3:$D$7,COINCIDIR(H11,$A$3:$A$7,),COINCIDIR($I$9,$B$2:$D$2,)) Revisa el adjunto saludos, Silvia PRUEBA sq.xlsx

ahí esta el archivo CarlosKurt PRUEBAmacros.xlsm

con macros reduce el tiempo, tu formula en macros With Range("I11:I" & Range("H65536").End(xlUp).Row) .FormulaR1C1 = "=VLOOKUP(RC[-1],R3C1:R7C4,MATCH(R9C9,R2C1:R2C4,0),0)" .Value = .Value End With esto es lo que me enseñaron aquí en este foro pero silvia es experta en formulas

En Brasil o Perú....?

Hola! Entiendo tu consulta, pero tu archivo difiere de lo que muestras arriba, sube un archivo con las columnas que necesitas mostrar una vez escribas la fecha, pero basado a este archivo "prueba.xlsx" Saludos

Cuando veo esto me da ganas de empezar a estudiar formulas... Saludos.

¡Eso buscaba! Ya he estudiado las macros de @Leopoldo Blancas y he conseguido que me funcionen en una tabla enorme. Ahora voy a estudiar tus fórmulas. Mil gracias por tu tiempo Silvia. Un placer haber podido contar con vuestra ayuda.

hola a todos.. a ver revisa Intersección Fila Columna.xlsx

Hice esto... No lo pude hacer en una sola MACRO, no se por que no responde... solo responde por separado... Pulsa las flechas y te pone los resultados en las celdas AMARILLAS. Saludos. Incluir Fila en formula_LBV.xlsm

Ok, gracias por todo, SOLUCIONADO.

Antoni sos un genio, ya funciono, gracias. Tema solucionado. Haplox gracias por tu aporte.

Sí, lo primero es lo que nos falta a todos, lo segundo se consigue con un poco de voluntad. No es tan difícil usar estos complementos de Excel tan potentes "so powerful" ya que el lenguaje M de Power Query genera pasos semiautomáticos (parecido a la grabadora de macros) y el lenguaje DAX de Power Pivot se parece a las fórmulas de Excel, eso sí, en inglés. Power Query y el Lenguaje M Tutorial rápido: aprenda los fundamentos de DAX en 30 minutos Todo lo demás es intuitivo e interactivo y fácil de aprender. Lo malo es que, si se acaba usando, no se quiere volver a las macros.

Inténtalo así:

@Haplox, VBA perdurará mientras haya un Excel que lo contenga. Otra cosa es que VBA se está quedando obsoleto, pues no se actualiza desde el 11 de octubre de 2012, en que se terminó de desarrollar la versión 7.1, incluida a partir de Excel 2013. Ver este enlace: Historia de VBA Si tienes instalado Excel 2013, o versiones posteriores, una alternativa es usar Power Query (pestaña Datos --> Obtener y transformar datos) y activar los complementos: Power Pivot, Power Map y Power View. Con estas herramientas de Inteligencia de Negocio (Business Intelligence) o con Power BI se pueden transformar y visualizar datos sin necesidad de VBA. ¿Te atreves a iniciarte en ellas?

@Xanito Dim filah As Long ______________ Private Sub CommandButton11_Click() Application.ScreenUpdating = False Cuando @Antoni te dijo lo de crear la variable a nivel de userform, se referia a que la deginieses al principio DE TODO EL CODIGO QUE TIENES. Asi tu codigo deberia quedar como arriba. Busca por declaracion de variables, versd los distintos tipos que hay

Hola Cuando se trata de la Propiedad "Picture", al agregar un objeto la forma cambia: Set .Properties("Picture").Object = _ LoadPicture(ThisWorkbook.Path & "\Imagen1.jpg") Saludos Abraham Valencia

A ver si lo consigues tu solo: Sigue estos pasos y te debería funcionar 1) Define una variable a nivel userform, por ejemplo: Dim Filah As Long 2) Guarda la fila después de buscar la operación, así: FilaH = Activecell.Row 3) En el momento de aplicar la anulación: Sheets("HISTÓRICO").Rows(FilaH).Delete

En un alarde de imaginación he supuesto que lo que realmente quieres es esto. Scroll horizontal con Multipage.xlsm

Abre el adjunto y pulsa sobre la flecha azul. Ejemplo (3).xlsm

como que ni idea...... Cuando yo pueda tener la versión de la que hablan, me tocará la jubilación.. eso no es para reírse¿?

Muchas gracias. Moisés.

Va seleccionar celdas con texto/numeros Saludos

@digitalboy, entonces no es difícil, es acostumbrarse a usarlo. Muchas gracias. Moisés.

Hola @Pirtrafilla, De echo creo que no es tan rápida como la de Gerson, pero eso es por que siempre sera mas rápido trabajar con Arrays... Pero para este caso encaja a la perfección! La notación RC realmente no es difícil de entender... R para las filas (Rows) y C para las columnas (Columns) dentro de los corchetes defines los desplazamientos ya sean positivos o negativos como el offset, si quieres rangos fijos utilizas algo como R1C5 (en este caos para referirte a la celda E1). Pero hay mucha información en Internet al respecto. Saludos!

Otra opción pero con formula R1C1. Con este tipo de fórmulas no estoy acostumbrado y me cuesta entenderla..., pero es un opción más y rápida. Gracias, @digitalboy

Hola @Gerson Pineda, ahora lo he entendido casi todo. He añadido una linea para que termine de poner datos en cuanto la variable fil alcance el objetivo en [x1] For f = 1 To vlf vf = vlf * (t - 1): fil = fil + 1 Cells(f + 1 + vf, c).Offset(t - 1, 2 * (c - 1)) = fil If fil = [x1] Then Exit Sub 'he añadido esta línea Nex Lo que no entiendo es esto: SpecialCells(2) He leído que se refiere a esto, xlCellTypeConstants 2 Celdas que contienen constantes. Pero no se que quiere decir que contienen constantes. ¿es posible aclarármelo? Gracias de antemano. Moisés.

Hola @Gerson Pineda, si que estoy interesado. Ojalá aprenda más y pueda colaborar. Gracias por tus comentarios y por contestarme! Voy a probar el ejemplo que envías. Moisés.

Hola a todos... Partiendo del supuesto que tenemos una hoja planilla y en esta tenemos los datos de inicio, este es mi código sin utilizar ciclos, solo métodos de selección de celdas especiales Option Explicit Sub test() Dim Plantilla As Worksheet Dim rango As Range Dim conta As Integer Dim y As Long Dim max As Long Set Plantilla = ThisWorkbook.Sheets("Plantilla") conta = Application.InputBox("Numero de conjuntos", "", 10) If conta < 1 Then Exit Sub With Plantilla.Range("A1").CurrentRegion max = WorksheetFunction.max(.Value) y = .Rows.Count Set rango = .Offset(.Rows.Count).Resize(y * conta) rango.FormulaR1C1 = "=IF(R[-" & y & "]C <> """",R[-" & y & "]C,"""")" rango.SpecialCells(xlCellTypeFormulas, xlNumbers).FormulaR1C1 = "=R[-" & y & "]C+" & max & "" rango.Value = rango.Value End With End Sub Saludos! EJEMPLO.xlsx

Hola! Parece que si estas interesado, eso nos gusta, pues quien sabe y te conviertes en colaborador referente para este foro Lo entendiste bien, con respecto a "cel", recuerda que este va adquiriendo la "fila" en el recorrido, es decir la fila en blanco, por lo que con cel.Resize(, 21), extiendo el rango desde A hasta la columna N Generalmente trabajo con los valores de los objetos, para no extender mucho los códigos [hacia la derecha], esos valores los podrás encontrar en la ayuda de cada objeto Ahora adjunto otra forma, usando nada mas el mismo ciclo para poner los títulos, sin usar Specialcells Saludos Generar correlativos por n columnas_GP.rar

ahora si esta bien el archivo que queria adjuntar! saludos! TEST CF PRUEBA2.xlsx

... y una de las novedades, que mas me ha llamado la atención, respecto a la formulación, que le diremos adiós a las "matriciales", Excel lo hará de forma automática, esta herramienta, cada día, es mas practica y fácil de aprender Saludos