Dante Amor

Ho la y bienvenido a TodoExpertos. Ese error es porque deberías tener una hoja con el nombre "F3". Si el nombre de la hoja se encuentra dentro de la celda "F3", entonces debería ser: Set ws = ThisWorkbook.Sheets(Range("F3").Value) Nota: Procura...

Realiza lo siguiente: 1. Selecciona las celdas que quieras imprimir. 2. En el menú Diseño de página selecciona Área de impresión. 3. Selecciona la opción "Establecer área de impresión. Si quieres cambiar el área, repite los pasos Si quieres borrar el...

Puedes poner el código utilizando el icono para insertar código:

Revisa si lo siguiente es lo que necesitas: Sub CREAR_INFORME() Dim objWord As Word.Application, wdDoc As Word.Document Dim nom As String, nomarch As String, ruta As String Dim nomfic As String, rutainf As String, ts As String Dim x As Long, can As...

Supongo que tienes algo como esto: While ActiveCell.Value <> "" And ActiveCell.Value <> "GASTOS:" ' 'realice los procesos correspondientes ' ActiveCell.Offset(1).Select Wend

Crea una columna Auxiliar en la columna H y pon los lugares ordenados del "PRIMER PREMIO" al "QUINTO PREMIO". Utiliza la función BuscarV para buscar el premio en la columna C y obtener al jugador de la columna D. =BUSCARV(H6,C:D,2,0) Observa la imagen:

Ho la Alberto y bienvenido a TodoExpertos. Podrías poner una imagen de tus imágenes y explicar cómo asignaste un valor numérico a cada una de ellas.

Ya que tienen formato condicional y deseo eliminarlas en todos las hojas de un libro y que queden solo las fila que no cumplen con los formatos condicionales Puedes poner aquí la fórmula o fórmulas o las condiciones del formato condicional, para en...

Podría ser de esta manera para actualizar la columna G. Sub actualiza() Dim Hoja As String Dim i As Long ' Hoja = "Tabla2" Sheets(Hoja).Copy After:=Sheets(2) ActiveSheet.Name = "Copia" For i = 3 To 27 Select Case i Case 14, 15, 16, 17 Case Else...

Ho la Gonzalo y bienvenido a TodoExpertos. Lo que sucede es que el proceso de insertar una celda es lento, porque tiene que desplazar todas las filas hacia abajo, por eso ves ese parpado. Intenta lo siguiente: Sub Macro2() Application.ScreenUpdating...