pitcher_

He generado para ti dos códigos, los cuales uno es para grabar la lista de nombres y te crea un archivo txt en C:\. Y otro código para cargar los datos guardados en el archivo de texto. Mira copia estos códigos en la planilla donde están los Nombres...

Deshabilita la seguridad de macro en el 2003 es : - Herramientas - Macro - Seguridad - Pon la opción bajo y listo. En 2007 es : - Boton de office (el boton de la esquina superior izquierda) - Opciones de Excel (esta al lado del boton Salir de excel)...

Te da error por que en VBA no esta establecido el App. Path y este comando es reemplazado por ActiveWorkbook. Path, desarrolle un código para lo que necesitabas: Sub abrir() StrCarpeta =ActiveWorkbook.Path + "\" ChDir StrCarpeta StrArchivos =...

Se produce el error por que con este comando Range("a15:a38"). Value, tratas de ver el valor de un rango. Te recomiendo que lo hagas por separado y no en rango. Si necesitas borrar todos los registros #N/A. Te recomiendo hacer esto : Cells.Select...

Esto te funcionara. Private Sub CommandButton1_Click() Sheets("Hoja2").Select Sheets("Hoja2").Range("B8").Select End Sub Se produce este error por que el commandbutton1, esta como objeto en la hoja1. Es por este motivo que se debe dejar de esta manera.

Agrege a tu codigo el procedimiento de busqueda de datos xls. Revisalo. Dim StrArchivos As String Dim StrCarpeta As String StrCarpeta = "C:\Users\jlleon\Desktop\PEDIDOS MAPFRE\" ChDir StrCarpeta StrArchivos = Dir("*.xls") Do While StrArchivos <> ""...

Cambia el modo de la selección por esto : Sub Botóndeopción2_Haga_clic_en() Range("A1", Range("A2000").End(xlUp)).Select Selection.Copy End Sub

Disculpa mi demora en contestar, pero el trabajo me tiene sin tiempo. Mira que te parece si me envías el archivo a victorpalmacastro@hotmail y me agregas al msn. Así podre trabajar directamente en lo que necesitas y vemos que se puede hacer.

Enviame el código a [email protected] (Agrégame a msn y te puedo explicar el código como hacerlo).

Para manipular una función toma el siguiente ejemplo. Agrega este código en tu planilla en el modulo : Function Consonantes(Text As String) As String Text = UCase(Text) For X = 1 To Len(Text) If Mid(Text, X, 1) <> "A" And Mid(Text, X, 1) <> "E" And...