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

Buenas, Hice una macro para encontrar la fecha más cercana a un listado de fechas que tengo en la columna A de hoja Inicio buscando en hoja BBDD o en hoja BBDD_2, y me ponga en columna B de hoja Inicio la fecha más cercana. El caso es que si solo pongo fechas del mismo año lo hace correctamente, pero en el momento que trabajo con fechas del año anterior o el siguiente no. He probado de dos formas: Con datos de hoja BBDD y hoja BBDD_2. En ambas el resultado no es correcto y no consigo solucionarlo. ¿Alguna idea de cómo hacer esto? Os adjunto ejemplo. Gracias! Ejemplofechas.zip

Sub importarEnDesarrollo() Dim wb As Workbook Set wb = ThisWorkbook Dim ws_main As Worksheet Set ws_main = wb.Worksheets("Main") Dim directorio As String 'directorio = ws_main.range("path").Value directorio = "C:\Users" Dim sCadena As Variant Dim nFichero As String Dim i As Integer i = 0 Open directorio For Input As nFichero Do While Not EOF(nFichero) Line Input #nFichero, datos i = i + 1 sCadena = datos With Sheets(1) .Cells(i, 1) = Trim(Mid(sCadena, 1, 10)) .Cells(i, 1) = Trim(Mid(sCadena, 12, 4)) .Cells(i, 1) = …

Buena Tardes les escribo por la siguiente duda. Estoy construyendo una macros, para enviar datos de UserForm en excel a word, todo funciona perfectamente. excepto la validación de un texbox en el formulario, los cuales estan agrupado en unos frame. al precionar la tecla enter, en un texto en blanco lanza un mensaje de error, pero al ir al ultimo texbox de cada frame, no realiza la validación y simplemente pasa al otro texbox les adjunto mi archivo para dejarlo todo mas claro prototipo_luminaria.rar

Saludos, haber me explico cuando en la hoja 2 en la celda a1 pongo la formula ="hoja2"!a1 ( la idea es que cuando en la hoja 1 en la celda a1 ponga un dato en la hoja 2 me salga automáticamente la misma) os dejo un ejemplo muchas gracias ejemplo del =.rar

hola, amigos de excel Gracias macro antonino he podido solucionar dos de mis tres actividades de la universidad, espero me puedan ayudar con la ultima que pues para mi es la mas dificil, tengo que generar un reporte de ventas por productos vendidos de la siguiente manera: tengo un formulario de reporte que me botara el consolidado de todos los productos vendidos, y tengo una serie de condiciones que me filtraran ese reporte de la siguiente manera: 1- tengo algunos criterios para filtrar, como son fechas, vendedor, productos, linea o centro de operaciones, cada ves que el usuario escoga cualquier opción deberá filtrar, y me mostrara en el listbox el consolidado s…

Estimados, como están, traigo una nueva interrogativa: Tengo un Listbox1 configurado con doble columna, donde jalo datos de la hoja1 tiene dos campos "frutas" y "precio", necesito que al presionar un boton llamado "resumir" me muestre el acumulado por fruta, igualmente me gustaria exportar este resumen en un nuevo libro, Nota: necesito que la exportación sea jalada directamente del listbox donde se almacena mi "resumen" no de la hoja donde jale la información adjunto el archivo para que me entiendan mejor... Macro - Sumar valores de un listbox de 2 columnas 2.zip

Hola en este Archivo se Requiere que al estar en la Celda Activa de la Hoja "Resumen", se vea en un Comentario Detalle de la Hoja "Trabajo", con Campo Común entre Ambas. EquipoZ.rar

Buenas tardes comunidad, acudo a Uds. porque deseo armar una fórmula que en su estructura contenga variables y datos con fórmula a la vez, ello con la finalidad de obtener como resultado una cadena de datos. Paso a dar ejemplos:'Variables:Dim Variable1, Dim Variable2, Dim Variable3Variable1 = TxtIndicador1.Value 'Valor contenido en un textbox dentro de un FormularioVariable2 = TxtIndicador2.Value 'Valor contenido en un textbox dentro de un FormularioActiveCell.Offset(0, 1).SelectActiveCell.Value = Variable1 & "-" & Cells(0,-10) & "-" & Variable2 'Cells(0,-10) es una valor que se encuentra 10 columnas a la izquierda y que puede cambiarEl objetivo es obtener…

Hola!! A ver si alguien me puede ayudar con una macro, necesito transponer los registros que están contenido en una celda que tienen un separador "|". Pongo un ejemplo: Inicialmente tengo esto 2 columnas: refe productos A 1|2|3|4|5 B 6|7 Y quiero que la macro en cuestión me lo haga así: refe productos A 1 A 2 A 3 A 4 A 5 B 6TRANSPONER CADENA TANTAS VECES SE REPITA.xlsx B 7 Muchas gracias de antemano. Un saludo.

AMIG@S, Agradeceré sus apoyos para solucionar con problemita en excel vba, les comento: Estoy tratando de automatizar una tarea, se trata registro de evaluaciones de check list de calidad en atención. He adjunto una replica del trabajo con los datos minimos por tema de capacidad. El formulario tiene un frame donde se ingresaran los datos del empleado mediante cajas de texto, tambien un multipages con 2 paginas (1 atributo por pagina), dentro de estas paginas existen 3 criterios de evaluación (label) y cada uno con 3 resultados (SI - NO - N.A.) estos últimos son optionbutton. En el archivo original tiene 4 multipage c/u con 4 a 5 paginas he avanzado gran parte del mini…

Buenas amigos genios del excel!, me podrían ayudar con este problema que se genera cuando: 1.- tengo una hoja llamada Generar CI = Código Interno 2.- Hoja de Propuestas donde se almacenan los CI De todas maneras adjunto el archivo para q me ayuden! Gracias de antemano! >_< Lo siguiente es que debo proteger la Hoja Propuestas y de la hoja de CI podré modificar sólo el nombre que ingresare el requerimiento. Al proteger me sale error!, la macro que utilizé para generar el CI y es donde me marca en amarillo es el siguiente: Sub btn_procesar() Dim rbase, cbase As Integer Dim cant As Integer Dim desc, cod, cli, jp As String Dim msg As Variant…

SOLICITO AYUDA, NECESITO IMPRIMIR Y GUARDAR LA INFORMACION EN UNA NUEVA HOJA. TENGO ESTE CODIGO: Sub ImprimirReporte() Sheet63.PrintOut 1, 2 End Sub QUE MAS DEBO AGREGAR. ADICIONALMENTE DEBO INSERTAR UNA HOJA QUE ME DE POR MEDIO DE UNA CONTRASEÑA LA ENTRADA A LAS OTRAS HOJAS, COMO LO HAGO????????. GRACIAS.

Muy buenas tardes tengan, queria preguntar si sería posible seleccionar un archivo excel desde otro archivo excel y copiar totalmente su contenido, algo así como cuando le das a abrir en las opciones y abrir. No sabría que dejar de ejemplo, así que os dejo esto mil gracias Copiar.zip

Buenas noches: En mi celda I1 tengo la siguente función =SI.ERROR(('[Cuentas por Cobrar.xlsm]TKT'!$S$2)|"NEGATIVO") Por favor como seria que antes de ejecutar mi macro1 desde mi boton, el cual lo tengo en la misma hoja, revise si la celda mencionada tiene el texto NEGATIVO no ejecute mi macro? Gracias y saludos cordiales Jesús

Hola a todos, me gustaría saber si es posible mediante VBA , rellenar una campo imagen editable de un archivo PDF. Consigo rellenar los de tipo texto y los desplegables sin problemas, pero no puedo rellenar las imágenes desde una ruta o desde un Control Image, las rutas de las imágenes están en las celdas, C53 y B75. Sub ImprimirPDFeditable() Dim celdas() As Variant Dim i As Integer Dim nombrePDF As String, rutaPDF As String Dim HojaDatos As Worksheet, ParteTrabajo As Worksheet Dim Tabla As ListObject Application.ScreenUpdating = False Set HojaDatos = ThisWorkbook.Sheets("Registro") Set ParteTrabajo…

Hola a todos, tengo una macro que saque de otro foro y cuyo autor es Logroastur@2012, yo modifique mi archivo para que funcione, pero necesito cambiar la macro para adaptarla a mis necesidades, basicamente es un buscador que contiene 3 optionbutton que son los que deseo modificar para que al seleccionar el tipo de busqueda lo haga de acuerdo a la opcion elegida, claro esta que por la falta de conocimiento no puedo hacerla, asi es que recurro a ustedes para ver que solucion me pueden brindar, gracias. se podra poner un boton de borrar en lugar de elegir del desplegable para que lo haga? Buscar - copia.rar

Hola a todos como podria hacer que este codigo busque tambien el nombre la celda en las subcarpetas despues de la carpeta "lista" Sub copiar_jpg() Dim Celda As Excel.Range With CreateObject("Scripting.FileSystemObject") For Each Celda In Range("b4:b13") .CopyFile ThisWorkbook.Path & "\lista\" & Celda, ThisWorkbook.Path & "\proyeccion\" & Celda End With End Sub[/CODE] gracias

1. Tengo un archivo de excel con macros y estos macros despliegan un menú pero tengo un problema al hacer una busqueda en el boton de consulta de datos y anulacion de contratos, al momento que se hace la busqueda despliega un formulario que solcita el numero de contrato y luego presionamos el boton buscar; si empezamos del contrato 1 en adelante no hay problema pero si le coloco en la celda A2 un numero diferente por ejemplo que empiece del 171, (como veran en el archivo que les envío), al hacer la busqueda del contrato 172 no lo encuentra. que puedeo hacer para que haga la busqueda no importantdo el numero de inicio. 2. al momento de crear el formulario de ingreso…

buenas tardes, tengo una macro que trabaja con datos, que los extrae de otras planillas y tablas web, cuando hago correr la macro, esta se demora aprox 2 horas en completar su proceso, lo que me imposibilita de trabajar en otras planillas existe alguna manera de abrir otro excel y poder utilizarlo a la par? tal vez con una maquina virtual o algo asi? muchas gracias por su ayuda

Hola amig@s: Como puedo copiar datos de una hoja que lo filtro por cliente a otra hoja de otro libro que esta preparado para recibir lo copiado, o sea de mi hoja 1 filtro por fecha y después por cliente, y solo quiero que copie lo visualizado, por ejemplo he filtrado las ventas del 03/01/2015 y elegi al cliente Dana tours , y visualiza desde la celda a25 hasta Q45 y solo quiero que de ese rango copie desde la celda d25 hasta la q45 a mi otro libro en la hoja que es fija como una factura y lo copie esos datos a partir de la celda B9. Gracias Saludos Jesús Hojas.rar

Hola amigos, necesito una macro que cree carpetas con nombre de fechas por mes. Yo quiero que cree carpertas con los nombres de los dias que caen martes y jueves por cada mes. Es decir en una celda (A1) yo introduzco el mes. Ejemplo Diciembre En otra celda (B1) introduzco el año. Ejemplo 2013 Entonces quiero que por medio de una macro me cree una carpeta que se llame Diciembre 2013 (Hasta ahora facil). Pero que contenga adentro subcarpetas con los dias Martes y Jueves de la siguiente manera: 03-12-13 (Martes) 05-12-13 (Jueves) 10-12-13 (Martes) 12-12-13 (Jueves) 17-12-13 (Martes) 19-12-13 (Jueves) 24-12-13 (Martes) 26-12-13 (Jueves) (Quiero que las carpteas s…

hola expertos como puedo resaltar las celdas que van de "ah: by" tomando el código instalado en el libro gracias AnalisisCifras.xlsm

Buen día a Todos la presente es para ver si alguien me puede ayudar con un error que me sale en este programita que no recuerdo quien lo subió al foro y el cual estoy anexando ... explico el error : por ejemplo al intentar darle salida a este producto "RAZOR9" me dice que no tengo stok suficiente para hacer esta transacción pero la realidad es que tengo 230 que si las reconoce el programa pero no hace la salida le dejo el ejemplo para que lo miren personalmente y ver si alguien encuentra cual es el error . Google Drive

Buenos dias expertos, tengo un formulario que funcion bien la busqueda, la unica dificultad es que cuando ingreso un numero que no es el correlivo lo filtra todas las concidencia y no quiero que suceda eso que haga la busqueda de facturas exactos si el correlativo no corresponde simplemente que no muestre nada. Adjunto el link del archivo: https://drive.google.com/file/d/1lms6MCWIPLoRTb1ySTw_pss9q6fKDUhd/view?usp=sharing