vorkosigan

Pega este código en la hoja donde quieras que se hagan los cambios de formatos. Funciona para cambios en la celda B4 (fila 4, columna 2) por lo que tendrás que adaptar el códifo a tus necesidades. Private Sub Worksheet_Change(ByVal Target As Range)...

Puedes probar algo como esto: 1. En el userform, crea un textbox y un button (commandbutton1) 2. Asocia este código al button: Private Sub CommandButton1_Click() Rows("13:13").Select Selection.Insert Shift:=xlDown Cells(13, 1).Value = TextBox1.Value...

Creo que el problema es que siempre usas el mismo nombre para crear las hojas. Debes usar una variable que se vaya incrementando para cada cliente. Sugiero que le pongas un numero correlativo a cada hoja, por ejemplo: Sub NuevaPagina() Dim...

Usa la función DIASEM(núm_de_serie;tipo) con tipo=1 y num_de_serie= valor de la celda que contiene la fecha Te devolverá un integer entre 1 y 7. El 5 corresponde al viernes.