jferg

'En el editor de codigo del objeto WorkBook Private Sub Workbook_BeforeClose(Cancel As Boolean) 'Libera la tecla ESC Application.OnKey "{ESC}", "" End Sub Private Sub Workbook_Open() 'Programa la tecla ESC para que ejecute tu macro Application.OnKey...

Usa una suma condicional. Te lo explicare usando tus datos: Por ejemplo si el item cuenta esta en la columna C y los Items Debe y Haber están en DE y E respectivamente y que por ejemplo tienes registros desde la Fila 1 hasta la 100 (no importa que se...

Algo así: For Fila=Inicio to Fin Concatendo=worksheets("Entrada").cells(Fila,"A") & "," & worksheets("Entrada").cells(Fila,"C") worksheets("Salida").cells(Fila,"A")=Concatenado Next Fila

Te recomiendo que mejor uses un bucle. Por ejemplo si quieres buscar las celdas que tienen el formato que quieres en el rango A1:B100 entonces worksheets("Nombre"). Unprotect "contraseña" For Columna= 1 to 2 For Fila= 1 to 100 if...

Haz lo siguiente: Desprotege manualmente la hoja que usas como patrón o plantilla para crear el resto de hojas. Selecciona el rango de celdas que el usuario puede modificar. Si el rango no es continuo tendrás que hacerlo una a una. Cuando selecciones...

Worksheets("Nombre"). Unprotect "contraseña" Worksheets("Nombre").Range ("A1:A10").Locked=False Worksheets("Nombre").Range ("A1")=MiValor1'... '... Worksheets("Nombre").Range ("A10")=MiValor10 Worksheets("Nombre"). Protect "Contraseña"

Sub Ultima Columna Columna=1 'Puede empezar en cualquiera Do while not isempty(Cells(Fila,Columna)) 'Fila es cualquier valor Columna=Columna+1 Loop msgbox "Ultima columna = " & Columna End Sub

Lo siento pero tu pregunta es muy general. Lo que necesitas es un conjunto de rutinas para manejar las planillas de Excel. En primer lugar no entiendo muy bien cual es la estructura de las planillas, ademas no esta muy claro cuales son las salida que...

Reemplaza en tu código "C:\[Captura de Gastos_2008.xls]BaseD'!R2C1:R4000C9" por : ThisWorkbook.Path & "\[" & ThisWorkbook.Name & "]BaseD'!R2C1:R4000C9"