Victor Rodriguez

Con esta macro los archivos que no existan se pondrán en negrita Sub File_Exist() Dim FilePath As String Dim TestStr As String col = Range("H1").Column For i = 1 To Range("B" & Rows.Count).End(xlUp).Row FilePath = Cells(i, col).Value TestStr = "" On...

¿Sabes qué existe una función de excel que se llama copiado inteligente? http://lareboticadeexcel.blogspot.be/2009/05/copiado-inteligente.html

¿Has tenido en cuenta los separadores que utilizas? Punto y coma o solo coma

Suponiendo que tienes en A2,B2.... y C2...... fecha, fecha admisión y fecha de salida respectivamente, no te valdria poner una fórmula en D... y E.... como =SI(B2<$A$2;B2;"") =SI(C2<$A$2;C2;"") y arrastrar la fórmula.

Prueba esta macro: Sub Macro() Range("U1").Select Do If ActiveCell.Offset(0, 5).Value <> "" Then ActiveCell.Offset(1, 0).EntireRow.Insert Shift:=xlDown Range(ActiveCell, ActiveCell.Offset(0, 4)).Copy ActiveCell.Offset(1, 0) End If...

Puedes poner las propiedades de scrollarea con un evento workbook. Open, así cada vez que se abra el archivo se definirá el scroll área Sub auto_open() . . . Application.ActiveSheet.ScrollArea = "$a$1:$l$50" End Sub

Puedes hacer una macro simple de copiar-pegar el valor que quieras comparar con un beforeClose. Si por ejemplo el dato está en Hoja1 A1 y lo puedes pegar en Hoja1 B1 para comparar al día seguiente, quedaría así: Private Sub...

Debes modificar un poco la macro, quedaría así: Private Sub OptionButton1_Click() Sub Insertar() On Error Resume Next Dim Nuevo_Nombre As String ActiveSheet.Range("J7").Value = ActiveSheet.Range("J7").Value +1 Nuevo_Nombre =...

Nunca me ha salido este error, pero las continuaciones de líneas _ sirven para no tener una línea tan larga que sea más larga que la pantalla y así facilitar la lectura del código. ¿Has probado hacer la línea más larga? Pon 2 o 3 Thisworkbook. Path...

Cambia esta línea Sheets("Hoja2").Range("F2").Value = Spromedio Por esta otra Sheets("Hoja2").Range("F2").FormulaLocal = "=PROMEDIO(9;F5:F1000)" Ten en cuenta que en la fórmula que he puesto, el separador es ; Si utilizas, como separador deberás cambiarlo