José Saúl Méndez Alonso

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.

Te dejo este código a ver si te sirve Sub Macro1() Dim ExcelApp As Object Dim nComentario As Integer Dim sComentario As Comment Dim sRutaExcel As String Dim sCelda As String sRutaExcel = "C:\MiExcel.xls" Set ExcelApp =...

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.

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

Necesito más información, ¿quieres usar un FlexGrid o TextBox para mostrar lo que tiene la hoja?

El error se genera porque un Objeto RichTextBox no tiene un método AddItem Cambia tu código para que quede algo así Private Sub Command1_Click() RichTextBox. LoadFile C:\Documents and Settings\EPS\Mis documentos\US042009.txt", rtfTextEnd Sub de esa...

Te puedo sugerir varias opciones para resolverlo 1.-Verifica que la propiedad Wordwrap de la Caja de Texto este en True 2.-Agrega un salto de línea Private Sub Command1_Click() Open "C:\Documents and Settings\EPS\Mis documentos\US042009.txt" For...

Disculpa la demora Porque no me mandas al correo [email protected] las acciones que necesita tu programa y te propongo una solución modularizada

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

A ver que te parece esta opción Sub Informes() If UCase(Range("A1").Value) <> "VERDADERO" Then Exit Sub 'Aquí van las demás acciones End Sub