hugolaza

Celda A1 : Cuanto es dos mas dos? => Celda A2 : Cual es la capital del Perú ? => Celda A3 : Como apellida el presidente de los EE.UU. ? => Celda C1 : =SI(B1=4,"Correcto!","") Celda C2 : =SI(MAYUSC(B2)="LIMA","Correcto!","") Celda C3 :...

Consulta ya atendida. Si es conforme.

Da click derecho en la pestaña de cualquiera de las Hojas. En el menú contextual que aparece selecciona la opción "Seleccionar todas las hojas". Ahora aplica el encabezado y el pie de página. Este se repetirá en cada una de tus 11 hojas.

Utiliza esta rutina Option Explicit Sub Interactivo() Dim Libro As Workbook, LibroActual As String LibroActual = ActiveWorkbook.Name For Each Libro In Workbooks Libro.Activate MsgBox "Ejecuta Marco en el " & Libro.Name Next Libro...

Cuando tienes una imagen en el Portapapeles y la quieres pegar en una hoja de excel usando Pegado Especial, tienes 3 opciones : 1. Objeto Imagen de Mapa de bits 2. Imagen (Metarchivo mejorado) 3. Mapa de bits Si seleccionas la opción 1 te pega la...

Coloca este ejemplo en un módulo, ejecútalo y observa el resultado: Option Explicit Dim miHoja1, miHoja2 Sub Hoja() miHoja1 = "Hoja1" miHoja2 = "Hoja2" Sheets(miHoja2).Select MsgBox "Estoy en la " & miHoja2 & ". Observa la pestaña de Hojas"...

Para la imagen, prueba este código : Option Explicit Dim miImagen As Control Private Sub CommandButton1_Click() Set miImagen = Controls.Add("Forms.Image.1") miImagen.Picture = LoadPicture("C:\Imagen.jpg") miImagen.PictureSizeMode =...

Este código VB puede servirte : Sub PantallaCompleta() If Application.DisplayFullScreen = False Then Application.DisplayFullScreen = True ActiveWorkbook.Protect Structure:=True, Windows:=True Application.CommandBars("Worksheet Menu Bar").Enabled =...

Prueba éste código : TextBox1 = Format(Range("celda"), "dd mmm yy") Donde "celda" es la celda donde esta la fecha.

Este pequeño código puede ayudarte: Sub ImprimirOrdenProduccion() Dim Hoja As Worksheet, Celda ActiveWindow.SelectedSheets.PrintOut Celda = "A1" Range(Celda) = Range(Celda) + 1 For Each Hoja In ActiveWorkbook.Sheets Hoja.Range(Celda) = Range(Celda)...