Respuesta
en
Microsoft Excel
a
No actualizar vínculos al abrir
Te dejo este código a ver si te sirve ActiveWorkbook.BreakLink Name:= "Nombre del Archivo Vinculado", Type:=xlExcelLinks
Respuesta
en
Microsoft Excel
a
Numerar automáticamente e imprimir
Te dejo este código espero te sea de utilidad Sub ImprimeCopias() Dim nBultos As Integer If Not IsNumeric(Range("C2").Value) Then MsgBox "El contenido de la celda C2 debe ser un Número" Else If Range("C2").Value = 0 Then Exit Sub For nBultos = 1 To...
Respuesta
en
Microsoft Excel
a
¿Cómo se empieza a hacer un formulario en excel?
Te dejo esta liga te puede servir http://www.programatium.com/manuales/excel/3.htm
Respuesta
en
Microsoft Excel
a
Macro que imprima determinadas celdas en una sola hoja
Si entiendo tu pregunta te refieres a que tu hoja de cálculo sólo tiene los datos NO el formato para la impresión, ¿es correcto? Si es así entonces te convendría pasar los datos a imprimir a otra hoja que si tenga el formato de tu factura y puedes...
Respuesta
en
Microsoft Excel
a
Salir de un While
Mejor utiliza un ciclo Do WHile Loop Ejemplo Do While Range("A1").Value <> 0 Range("A1").Value = Range("A1").Value + 0.1 If Range("A1").Value >= 50 Then Exit Do End If Loop
Respuesta
en
Microsoft Excel
a
Búsqueda de hojas
Aquí va el código Sub BuscarHoja() On Error GoTo Err_BuscarHoja Dim sHoja As Worksheet Dim sNombre As String Dim SeEncontro As Boolean OtraBusqueda: SeEncontro = False sNombre = InputBox("Escribe el nombre de la Hoja a buscar", "Búsqueda") If...
Respuesta
en
Microsoft Excel
a
Buscar y traer valores
Si es posible de hecho si usa nombres de rangos puedes resolver tu problema porque ya no importaría que los usuarios agreguen columnas en automático los nombres de rangos se actualizarían. Enviame un archivo de ejemplo y te ayudo a resolverlo.
Respuesta
en
Microsoft Excel
a
Para qué sirve la instrucción Nothing en una variable
La instrucción Nothing se usa para liberar la instancia que estas usando y que cuando la vuelvas a necesitar ésta no contenga datos Basura, también la memoria y los recursos del sistema asociados con ella quedarán liberados.
Respuesta
en
Microsoft Excel
a
Parámetros por referencia
Te sobran los paréntesis Sub AddNew(ByRef WkBookName As String) WkBookName = "" End Sub Sub principal() Dim NomArchivo As String NomArchivo = "algo.xls" AddNew NomArchivo End Sub Los paréntesis se usan al llamar una función que normalmente te...
Respuesta
en
Microsoft Excel
a
Ejecutar al cambiar valor de celda
Te dejo este código de ejemplo Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) MsgBox Sh.Name & "!" & Target.AddressLocal End Sub Sh es la Hoja Target es la celda