Buenos días y agradecer de antemano la atención Tengo dos pestañas y necesito el código para que cuando no encuentre un dato en la pestaña 1 lo pase directamente a la ultima fila de la pestaña dos. En el fichero adjunto, sería buscar en la pestaña " Original" la columna B (Nº expediente ) y cuando no lo encuentres, pasa los datos a la pestaña "Copia" en la siguiente fila disponible. Gracias de antemano y un saludo PLANTILLA CONTROL CMRS2.rar

Tuve la oportunidad de contar con el apoyo de DiegoPC en el proyecto de mi post anterior, él definió correctamente con el código la aparición de decimales en listbox y textbox de una determinada columna ("E"), sin embargo, y por un error totalmente mío, no considere que serían dos las columnas en que requeria que aparecieran los decimales. He intentado adecuar el codigo que DiegoPC me facilito, pero simplemente no le "atino" al que corresponde. Las columnas deben ser "D" y "E" que en el proyecto le llamo "Inicial" y "CostoI" respectivamente. Adjunto el archivo correspondiente y agradezco de antemano su apoyo. zproblema2.rar

Tengo una duda Quisiera revisar este archivo de un post anterior muy bueno por cierto; Quisiera Revisarlo y mi duda es si puedo modificarlo osea esto me sirve como una muy buena agenda pero lo que quisiera añadirle es si puedo separarlo por mes psea ahi añadi un listobox (MES) para que con seleccionar el mes Me muestre solo el mes en la Hoja del libro Muchas Gracias Anticipada Mente..! Saludos..!

Buenos días, soy nuevo en el manejo de macros. quisiera que me ayudaran identificando donde esta el error en el procedimiento, ya que me saca el siguiente error: Se ha producido error "1004" en tiempo de ejecución. no se puede obtener la propiedad VLookup de la clase Worksheetfunction; sin embargo la macro se ejecuta correctamente. la instrucción es: Private Sub ComboBox4_Change() Dim Horacita As String Dim Rango As Range Set Rango = Sheets(5).Range("A2:B174") Horacita = Application.WorksheetFunction.VLookup(Me.ComboBox4.Value, Rango, 2, 0) HoraProgramada = Horacita End Sub Cuando le pido que depure me señala el texto resaltado en rojo, pero no encuentro el erro…

Hola, He planteado este tema en otro ya cerrado, lo vuelvo a subir. Tengo un listado de 7.000 líneas y necesito eliminar aquellas cuya suma sea 0. He intentado adaptar una macro, y funciona, pero solamente con las columnas que se ponían de ejemplo. En mi caso son 11 columnas y no he sido capaz. Adjunto las cabeceras. El subtotal lo incluyo en el debe y haber para cambios en la columna "proveedor". Saludos Cabeceras.xls

Saludos a Todos, Tengo mi trabajo listo, pero se me presento un problema, le presento el problema: un ejemplo chico,lo programe para me realice cálculos ,cada 2 celda un valor, pero en la Columna A están por grupo y en la columna H me calcula algo así: A ; H ac-1; ac-1; 2 ac-1; ac-3; 3 ac-3; ac-4; 1 ac-4; ac-4; 3 ac-4; lo que necesito que cambie cuando apararesca otro grupo en lista en la columna A ,que realize los cálculos cada 2 celdas en la columna H,algo así me quedaría: A ; H ac-1; ac-1; 2 ac-1; ac-…

Hola, Necesitaria saber como hacer que al clickar la pestaña de una hoja para cambiar de pantalla se me abra un MsgBox preguntando si estoy seguro de querer salir ya que al pasar a la hoja principal se me reinician todos los valores. Como lo puedo hacer? Muchas gracias

Queria saber si me podrian ayudar necesito elaborar una encuesta en macro y con sus estadisticas favor si me podrian ayudar adjunto los resultados AuditoriaFinal.rar

Buenas tardes, no tengo ni idea de como hacerlo, si pudieran hecharme un cable, se lo agradeceria mucho. Factura Prueba.rar

Hola, tengo un problema con un userform de 6 button_clicks. Dependiendo del button click seleccionado, la variable X cogerá un valor entero del 1 al 6. Esta variable X, està declarada en el programa principal como public X, ya que se va a utilizar en varias ocasiones. El userform se ejecuta perfectamente y coge el valor correspondiente, pero en el programa principal, el valor de la variable no es el correcto, ya que el valor de X pasa a ser 0. Resumen codigo: Public X As Integer Sub A () . . . UserForm1.Show . . . End Sub Y así es el codigo de un buttonclick Private Sub OptionButton1_Click() If OptionButton1 = True Then X = 1 End If End Sub …

Hola, estoy intentando hacer una macro en la que he de ocultar unos parámetros de una tabla dinámica. La cuestión es que he de ocultar un campo y guardar con un determinado nombre el archivo completo. Después, con ese mismo excel mostrar lo que había ocultado antes y ocultar otro campo y guardar con otro nombre. Al final debería tener 9 archivos cada uno con un campo ocultado. He probado grabando con guardar cómo (Workbook.SaveAs Method ) pero sólo guarda el primero. Cómo podría hacerlo para ejecutar el código VBA de golpe? Saludos.

Tengo un archivo quisiera generar una macro que me extraiga la información de las transacciones ordenadas en una hoja de excel y no encuentro la manera de solucionar ya que tiene varios emcabezados, Gracias por su ayuda adjunto archivo de ejemplo. 20131009_20131009.txt

Buenas.... necesito que me ayuden con este codigo o si hay otra mejor todavia, este es el codigo: For X = 2 To Range("F" & Rows.Count).End(xlUp).Row + 1 Range("H" & X) = "" Range("I" & X) = "" Do Until Not sumaa < 5 Or Range("F" & X) = "" sumaa = sumaa + Range("F" & X) sumab = sumab + Range("G" & X) X = X + 1 Loop If Not sumaa = 5 Then Range("I" & X - 1) = "*" Range("H" & X - 1) = sumab sumaa = 0 sumab = 0 If Not Range("F" & X) = "" Then X = X - 1 Next En VBA quiero que me realize lo siguiente: en la columna F me sume hasta 5 , y que vuelva a sumar 5 hasta el final y paralelamente en la columna G me obtenga el prom…

Buenos Dias Quisiera ver si me pueden ayudar a solucionar un problema que tengo, tengo un archivo que estoy haciendo para ingresar Clientes en Excel desde un UserForm y que se Guarden los datos en la pestaña Clientes... El problema es que necesito que antes de ingresar los datos con el UserForm(Clientes) revise si no esta ya dado de alta el Cliente verificando su Clave, de ser asi que no me permita registrarlo lanzando un MsgBox, pero si no esta registrado, que ingrese el cliente, en la siguiente fila que corresponda En el apartado Domicilio(Celda "M") de la Hoja Clientes, debe de Concatenar los datos del UserForm(Domiclio), Calle,No.Exterior,No. Interior y Colonia par…

Buenas noches, estoy usando una copia del libro de facturacion, para usarlo independiente, y me encuentro, que lo que esta en rojo se ejecute y por mas que le doy vueltas no encuentro el porque, no me da error ni nada y no se ejecutan. Gracias. Sub FCliente1() Call Cliente1 Call CONTROLSALDO Call ImprimirFRA Call GRABARBORRARFACTURA Call NUMEROFACTURA Call Grabar End Sub Miguel.rar

He insertado un Datapicker en un formulario en excel 2010, el archivo lo he guardado en dropbox para que otras personas lo puedan utilizar, pero si el ordenador desde el que se descarga tiene una versión anterior el datapicker desaparece y no funciona la aplicación, ¿cuál sería la solución? ¿Sería recomendable liarse con visualbasic y hacer una aplicación exe? El archivo es este por si alguien se anima a echarle un vistazo y darme sus recomendaciones https://dl.dropboxusercontent.com/u/49061866/Public/Muertas.rar, la ultima versión (la tres) es la que más se aproxima a lo que quiero hacer.

He insertado un Datapicker en un formulario en excel 2010, el archivo lo he guardado en dropbox para que otras personas lo puedan utilizar, pero si el ordenador desde el que se descarga tiene una versión anterior el datapicker desaparece y no funciona la aplicación, ¿cuál sería la solución? ¿Sería recomendable liarse con visualbasic y hacer una aplicación exe? El archivo es este por si alguien se anima a echarle un vistazo y darme sus recomendaciones https://dl.dropboxusercontent.com/u/49061866/Public/Muertas.rar, la ultima versión (la tres) es la que más se aproxima a lo que quiero hacer.

Hola Compañeros Tengo un problema Tengo el Siguiente Codigo Private Sub Workbook_Deactivate() Application.Calculation = xlCalculationAutomatic End Sub Private Sub Workbook_Activate() If Application.Calculation = xlCalculationAutomatic Then Application.Calculation = xlCalculationManual End If [/CODE] Funciona Bien pero Cuando selecciono algo de otro excel para Copiar -al abrir el Excel dek codigo ya no me deja pegar Como si se seleccionara.. eliminé el código de arriba y si deja Gracias

Hola Compañeros por favor Me ayudan con este error Lo que pasa es cree una plantilla que esta protegida y todo lo que pego de un excel de una antigua version queda protegido ayuda que propria hacer una macro para que siempre pege en valores no se Gracias Pegado.rar

Hola, apenas inicio a entender lo de las macros y esto. pero en este momento en el trabajo necesito una macro que me extraiga con un botón desde un archivo de texto externo a Excel, los datos de algunas lineas en columnas, el archivo de texto es un reporte de pocas lineas, iniciando cuando encuentre un entero entre 0 y 20000 e ir reportando en las columnas los valores siguientes que encuentre. agradezco inmenso su ayuda. adjunto archivo del reporte negativo..txt

buenas alquien que me pueda ayudar , necesito bloquear un rango de celdas con una casilla de verificacion o al cerrar excel gracias

Hola a Todos, Como varan tengo en siguiente adjunto (1er useform), en el cual ingreso todos los datos conforme, sin embargo me falta que al ingresar la fecha se detecte como tal debido a que luego debo hacer calculo entre fechas. De igual modo, en el 2do userform este debe ser para modificar estos datos incluyendo la fecha y los valores en numero. Muchas Gracias, Quedo a la espera de su pronta respuesta, Saludos, Introducir datos utilizando un formulario 2.xls

Hola ! bueno acabo de entrar a hacer mi practica y necesito juntar en un excel determinada informacion proveniente de dos libros Libro NEH1 , pestaña OP1, CELDA H1-H3 Libro NEH2 , Pestaña OP2, CELDA D1 Y Juntar la informacion de ciertas celdas en un libro determinado GLOBAL_NEH ... todo esto sin necesidad de abrir los libros NEH1 Y NEH2 , pero que cierta informacion de estos como las celdas mencionadas se refleje en GLOBAL_NEH Ojalá me puedan ayudar ya que es la base para todo mi trabajo por mis 2 meses de practica

un compañero que ya no trabaja con nosotros realizo unos libros en excel 2003 y usaba en asistente de msoffice, ahora la empresa ya instalo la version de excel 2010 y esta version ya no usa el asistente alguien me podria ayudar... Waldo

Buenas tardes, acudo a ustedes los expertos por que tengo este problema y espero me puedan apoyar. Estoy usando este código: Sub SumaBilletes() Me.TextBox16 = Str(Val(Me.TextBox23.Text) + Val(Me.TextBox22.Text) + Val(Me.TextBox21.Text) + Val(Me.TextBox20.Text) + Val(Me.TextBox19.Text) + Val(Me.TextBox18.Text)) End Sub[/PHP] Pero no me suma los separadores de miles, solo me suma los valores de los textbox 23 al textbox 18 si tienes un valor de 999.99, en este si me suma los decimales y todo bien, pero si tiene un valor de 1,129.00 no me suma ese valor solo me lo suma como numero 1 o si es 2,000.00 me lo suma como numero 2. El formato que estoy usando en los textbox …