Luis Mondelo

Te paso la macro para conseguirlo: Sub auto_open() 'por luismondelo c = 1 Do While c = 1 fecha = InputBox("introduzca fecha por favor") ubica1 = Mid(fecha, 3, 1) ubica2 = Mid(fecha, 6, 1) If ubica1 <> "/" Or ubica2 <> "/" Then MsgBox "La fecha...

Mándame el excel con los datos y un ejemplo de lo que necesitas, para poder ayudarte mejor [email protected]

Creo que ya te he respondido en la otra pregunta. ¿Lo tienes todo claro?

Tu solución pasa por una simple tabla dinámica. Para ese caso es la mejor opción y te permite un control absoluto de esos datos

Te paso mi solución con esta macro. Estoy suponiendo que las filas de la hoja1 tienen datos desde la columna A Sub proceso() 'por luismondelo Sheets("hoja1").Select Range("c65000").End(xlUp).Offset(1, 0).Value = "end" Range("c1").Select Do While...

Te mando mi solución. Posiciónate en la primera celda de esa columna y después ejecuta esta macro: Sub proceso() 'por luismondelo Cells(65000, ActiveCell.Column).End(xlUp).Offset(1, 0).Value = "end" Do While ActiveCell.Value <> "end" If...

Para poder ayudarte mejor necesito aclaraciones: ¿Desde qué fila empiezan tus datos? ¿Cuál es la primera columna de tus datos? la A....

Prueba esta macro: IMPORTANTE: En la fila que empieza: ruta = ....... Tienes que pegar el path del primer nivel de tus carpetas, es decir, la primera carpeta de todas. Sub proceso() 'por luismondelo Application.DisplayAlerts = False mio =...

Te mando mi solución, supongo que los datos están desde E1 hacia abajo. Esta es la macro: Sub proceso() 'por luismondelo Range("e1").Select Do While ActiveCell.Value <> "" valor = ActiveCell.Value For x = 1 To Len(valor) + 1 extrae = Mid(valor, x, 1)...

Te adjunto la macro para conseguirlo: sub proceso() 'por luismondelo for each hoja in sheets if ucase(hoja.name) <>"HOJA1" then hoja.select range("g5:r5").copy sheets("hoja1").range("a65000").end(xlup).offset(1,0).pastespecial paste:=xlvalues end if...

Si ya tenemos ese código que es parte del nombre del fichero...¿cuál es la otra parte? ¿Cómo la conseguimos?

Inténtalo con la macro así: Sub proceso() 'por luismondelo fecha = Sheets("hoja2").Range("b1").Value Sheets("hoja1").Select Range("c2").Select Do While ActiveCell.Value <> "" If UCase(ActiveCell.Value) = "CARTERA" And ActiveCell.Offset(0, 3) <= fecha...