calvuch

Este macro hace lo que quieres Sub Hoja_automatica() Dim f As String f = Date On Error Resume Next Worksheets(f).Select Select Case err.Number Case Is = 9 Sheets.Add after:=Worksheets(Worksheets.Count) Worksheets.Item(Worksheets.Count).Name = Date...

En un modulo pega esto: Sub crea_hoja() Dim i As Integer Dim n As Integer Dim hoja As String Application.ScreenUpdating = False Worksheets.Item(1).Select Columns("B:B").Select Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove...

¿A qué te refieres con que se cancelen?

http://www.recursosvisualbasic.com.ar/htm/menu-principal/buscar.htm?cx=006154211409403389812%3Arsvroqctr3c&cof=FORID%3A11&q=comprimir+archivo&sa=Buscar#1086

Acá tienes : Inserta esto en un modulo Option Explicit Dim h As Variant Dim c As Boolean Private Sub Workbook_BeforeClose(Cancel As Boolean) If c = True Then Exit Sub Hoja1.Range("iv65535") = Time Hoja1.Range("iu65536") = Hoja1.Range("iu65536") +...

Lo primero es contar las faltas, puedes utilizar una columna para totalizar, luego en función de ese total, aplicas formato condicional a la celda o rango sobre el cual deseas aplicar el color rojo, ya sea fondo o texto.

No quedo muy elegante, pero se cumple el objetivo: Sub elim_texto_inicio() Dim col As Range Dim S As String Dim E As Integer Dim c As Integer On Error Resume Next Set col = Application.InputBox("Elija columna para eliminar texto WBS y SDI", "Eliminar...

Esto te presenta en pantalla el ancho y alto de una celda Sub tamaño_celda() MsgBox Selection.ColumnWidth MsgBox Selection.RowHeight End Sub Puedes adaptarlo a tu proyecto

Mmm. Bueno así como lo planteas de forma muy general, seria necesario utilizar el evento Change del text1 Private Sub TextBox1_Change() If Me.TextBox1 = Empty Then Exit Sub TextBox2 = TextBox1.Value + 1 End Sub En el ejemplo cada vez que cambias el...

Eso se puede hacer directo con el mouse... Pero si te gustan las macros, esta te puede servir Sub seriar() Range("a1").Select Selection.AutoFill Destination:=Range("a1:a30"), Type:=xlFillSeries Range("a1").Select End Sub Llena el rango a1:a30...