José Saúl Méndez Alonso

José Saúl Méndez Alonso

Programación Avanzada en Visual Basic, VBA, Modelo de Objetos de Office, Manejo de Bases de datos MS SQL Server, MS Access Master Instructor MOS, Master Instructor MCAS
 51,4K puntos  San Luis Potosí, México @josaul75 desde - visto

Respuestas en Microsoft Excel

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 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 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 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 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 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...

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 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 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 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