Victor Rodriguez

¿Has pensado en utilizar el calendario del outlook? Es una herramienta pensada precisamente para esto

Lo primero que debes hacer es grabar una macro con la cual abras un txt y cuando lo abras utilices la opción "Delimitados" o "De ancho fijo" de la manera mas correcta posible para que siempre los diferentes datos al abrirlos queden bien posicionados...

Pon esta macro en Thisworkbook asociado al evento Open Sub esconde() Dim ws As Worksheet i = 1 For Each ws In Worksheets Sheets(i).Select Columns("A:C").EntireColumn.Hidden = True Rows("1:3").EntireRow.Hidden = True i = i + 1 Next End Sub Cada vez...

Das pocos datos para poder ayudarte, pero este código lo podrás adaptar a tus necesidades: Sub Macro2() Range("C5:C9").Select Selection.Copy Range("C14").Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False,...

Prueba este código: Sub Macro1() Dim wks As Worksheet Dim nombre As String i = 1 For Each wks In ActiveWorkbook.Worksheets Sheets(i).Select nombre = ActiveSheet.Name ActiveWorkbook.SaveAs Filename:="C:\RUTA\" & nombre & ".csv", _...

Prueba este código: Sub Mostrar_todo() Dim huser As Worksheet Dim Ufila As Integer Dim switch As Boolean CLAVE_Concentrado = InputBox("ESCRIBA SU CLAVE DE ACCESO") If CLAVE_Concentrado = "5f-be3r18" Then MsgBox "Datos correctos, bienvenido a la...

Esto te servirá: Sub OCULTA() Range("C12").Select For i = 1 To 426 If ActiveCell.Value = "" Then Selection.EntireRow.Hidden = True ActiveCell.Offset(1, 0).Select Else ActiveCell.Offset(1, 0).Select End If Next i End Sub

Después de que haya copiado los datos Añade esta línea: ActiveWorkbook.Close SaveChanges:=True

¿Las columnas de las hojas que tienes que borrar son siempre las mismas?

Si he entendido bien, esta macro debería hacer lo que pides Sub copia() Range("C5").Select Do Celda = ActiveCell.Address If Range(Celda).Offset(0, 1).Value = "" Then GoTo siguiente ActiveCell.End(xlToRight).Select Selection.Copy Range(Celda)...