Hector Pacheco

OJO esta pregunta ya fue respondida, sin embargo la volveré a responder. Buenas noches amigo Para que la tabla se cree en la misma pagina debería bastar con indicar la hoja y la celda de destino, quedaría algo como esto:...

Pruebe con la siguiente formula:...

Si es posible hacer lo que pide pero con la limitante de que los dos libros deben estar abiertos. Puede hacerse con el siguiente código: Range("B3:E10").Select 'Selección del rango a copiar Selection. Copy 'Copiar Windows("Libro...

La manera más fácil de hacer esto es untilizando On Error, te quedaría algo como esto: Sub cmbCopiar() Dim a As String Dim d As String a = InputBox("Nombre del Archivo: ", "MiArchivo") d = a If d = "" Then Else On Error GoTo ControlError ' Activa la...

Disculpe la tardanza en responder. Imagino que usa Excel 2007 o superior. Esta es una posible solución a lo que desea hacer: Sheets("formulario").Select Range("D1733:Q1787").Select Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=...

Existe una posible solución aplicando Worksheets("Hoja1"). ProtectContents . Esto le devolvera True si la hoja esta protegida y False si la hoja esta desprotegida. Con el siguiente ejemplo básico podrá ver como funciona el comando. Private Sub...

Si se refiere a las listas desplegables, que son propias de una celda, entonces podrá encontrar el formato de la lista en el menu Datos -> Validación. Se abrirá un formulario que le permite configurar una celda para múltiples propocitos siendo uno de...

Lamento no poder ayudarle porque yo hago estos trabajos por ayudar. Ademas, los precios varían dependiendo del país. Yo le recomiendo que contacte a algún especialista, de su país, para que le haga un presupuesto de una tarea X. Eso le dará una idea...

Disculpa la tardanza en responder. ¿Cuántas hojas estas tratando de crear? Puedes probar intentando asignar un numero máximo de hojas que se puedan crear.

Disculpe la tardanza en responder Para esto puede utilizar la función SI en conjunto con la función ESERROR de la siguiente forma: =SI(ESERROR(A1/B1);"";A1/B1)