Hola. Estoy creando una hoja de cálculo bastante extensa y la cual tiene que trabajar en casi todos sus módulos con un valor (fecha) que se introduce en un TextBox al iniciar el documento. ¿Cómo podría dejar asignado ese valor desde el principio y que todos los procedimientos y módulos lo reconozcan ? Os dejo un ejemplo sencillo de lo que me interesa hacer. El archivo te pide una fecha y luego debería trabajar con ella en diferentes módulos para devolver diferentes valores. Pero claro, al pasar del formulario a los módulos se me inicia en cero. Un saludo a tod@s ! fecha_publica.rar

Hola, espero estén bien. Me surge el siguiente inconveniente en mi trabajo. Tengo una base de datos de artículos (unos 500.000) el cual necesito "depurar" ya que el sistema de gestión tiene varias condiciones que hay que cumplir para su importación desde un libro de excel. La primer columna (Código) tiene las siguientes condiciones: Máximo de caracteres (16) Acepta letras mayúsculas y minúsculas de A - Z y números de 0 - 9 Acepta SOLAMENTE el carácter especial / NO admite espacios La segunda columna (Descripción) tiene las siguientes condiciones: Máximo de caracteres (255) Acepta letras mayúsculas y minúsculas d…

Buen dia. Tengo un problema que no he podido solucionar se trata de lo siguiente. No se nada en lo absoluto de el uso de las macros y me han puesto un proyecto donde tengo que usar dos por lo menos todo estaba bien hasta que me tope con este problema: Veran mi proyecto trata de lo siguiente es de un restaurante que tenemos que automatizar con ayuda de excel, las ordenes, llevar inventario, etc. En una hoja tengo el menu y ahi coloque varias formas que sirve como botones, lo que tengo que hacer es que cada vez que presione el usario un boton automaticamente se le reste la cantidad que lleva de ingredientes el platillo al inventario Por ejemplo: Una persona ordena una…

Hola! amigos del foro quisiera solicitarles el apoyo con lo siguiente: me encuentro tratando de encontrar la forma que pueda exportar datos de excel a access, estoy intentándolo con la siguiente macro: Sub CopiaDatos() Dim fila As Long, uf As Long, conta As Long Dim cn As ADODB.Connection, rs As ADODB.Recordset On Error Resume Next Application.ScreenUpdating = False Application.DisplayAlerts = False Set a = ActiveSheet Set cn = New ADODB.Connection Set rs = New ADODB.Recordset cn.Open "Provider=Microsoft.ACE.OLEDB.12.0; " & "data source=" & ThisWorkbook.Path & "\171 ProgramarExcel.accdb;" rs.Open "Clientes", cn, adOpenKeyset, adLockOptimistic, adCmdTable f…

Hola a todos, Necesito ayuda con el siguiente gráfico de burbujas, pues necesito que en la etiqueta de cada burbuja me aparezca el dato que tengo en la columna A, y no las coordenadas x,y,z con la que fue creada cada burbuja. Se que se puede hacer manualmente, pero me han dicho que mediante una macro es posible hacer esto sin necesidad de hacerlo manual una y otra vez. Ejm: la ultima burbuja que se observa tiene el rotulo 44, 7.7, 3 y quisiera que me apareciera una etiqueta con el dato de la columna A que (a14) que dice "D30" Muchas gracias, adjunto el archivo Gráfico Burbújas.rar

Buen dia. Me gustaria que me ayudaran a como graficar unos reportes. El problema es este. Cada semana me dan un reporte de tiempo extra por empleado con su respectivo departamento el reporte contiene No. Empleado, Nombre, turno, no depto nombre depto, supervisor, sueldo, Horas extras,hora extra2, horaextra3, costo x hora, costo por hora 2, costo x hora 3 y total. Lo que quiero es que en un solo archivo me grafique esto, ya que los reportes que dan siempre se llaman diferentes por ejemplo, semana 04-10 Febrero 2013 .xlsx, 11- 17 Febrero 2013.xlsx, etc.. Como le hago para extraer los datos?? Tambien quiero que me haga un historial de las horas extras, el costo de ca…

Hola buen día! Mi problema es el siguiente: Tengo un userform que contiene un textbox y un combobox cuya finalidad es mostrar varios items y cuando el usuario elige uno, automaticamente se pasa la información al textbox. La lista que despliegua este Combobox es extensa y para faciliar la cosas al usuario, coloque un botón de búsqueda el cual al ser accionado se carga un userform nuevo que muestra un textbox y tres botones de comando (busqueda, siguiente y aceptar) el textbox esta para que el usuario accesa la palabra a buscar y cuando se elija aceptar, deseo que esa información se cargue al combobox contenido en el userform inicial. ¿Como puedo hacer eso?. Les agrade…

Estoy intentando crear una macro para modificar los filtros de una tabla dinámica con Excel 2007. Con el siguiente código: Worksheets("TV").PivotTables("Tabla dinámica1") _ .PivotFields("Regulation Start Day").PivotItems("02/01/2013").Visible = False me da el siguiente error. ¿Alguna idea?????

Hola, vengo con un nuevo tema, esperando nuevamente me puedan ayudar... Adjunto un archivo con pocos registros que sirva como ejemplo, pero acoto que trabajo con datas más grandes. La idea es sustituir a través de macro "caracteres especiales" por sus respectivos equivalentes u otra solución que me puedan aconsejar hacer en esos casos. Cabe destacar que me estoy refiriendo especificamente a los caracteres reseñados en el archivo anexo, pero también debe abarcar solución a muchos otros caracteres especiales existentes. Dichas datas son importadas posteriormente a manejadores de bd que complican el tratamiento de errores respecto a los mencionados caracteres. Libro1.r…

Buenas Tardes Grupo, necesito la ayuda para organizar un archivo txt, tengo una macro la cual en idas pasados me ayudaron a realizarla y pues funciona, pero si la ejecuto para otro archivo lo separa pero no como lo necesito y pues no se si alguien me pueda ayudar poniendo comentarios a la macro que ya tengo para entender el código o si tienen otra opción se los agradezco, para que me logren entender esta macro separa inventarios, pero si la utilizo para separar ventas no me sirve por que me corta la información. Gracias. MAcro Extraer.rar

Hola a todos/as que tal, Necesitaría un poco de ayuda para empezar esta macro ando un poco perdido, el tema no es muy complicado seguro que ya esta contestado pero no hago la pregunta correcta. El tema es una macro para copiar pegar que te pregunte donde y desde donde, esto no se si con imputbox o algo así seria mas fácil, o directamente seleccionando celdas. Que te de la opción de nº filas o todas para copiar y que copie / pegue. Adjunto archivo que se entiende mejor. Gracias. ejemplo copiar.xls ejemplo copiar.xls

Buenas tardes a todo el mundo. He estado investigando y se que se pueden copiar/pegar archivos de una ruta a otra mediante macro. No he conseguido encontrar solución para mi problema. En una carpeta llamada Registros, se me generan una o varias carpetas. El nombre de estas carpetas siempre varían y dentro de estas subcarpetas hay archivos con 2 extensiones, .doc y .xls. con nombres que también varían. Como podría coger todos los archivos con extensión .doc y pasarlos a una nueva ruta? O sea, que todos los archivos dentro de las carpetas que hay en la carpeta registros, me los copiase a otra.También me serviría que me copiase los dos tipos de archivos. Gracias por vuestro …

Agradeciando de antemano la ayuda que me puedan dar a lo siguiente: tengo un archivo con una macro elaborado por gerson , el cual copia de la hoja1 a la hoja2 las filas que cumplan una codicion. Quisiera ver si me audan a modificar ese macro para que se copiara la hoja1 en otro archivo llamado "concentrado". adjunto archivo venta . gracias por su ayuda jesus gomez v ventas.xls

Buena tarde, amigos del Foro .. alguien que me pueda asesorar sobre un código a traves de una macro que me permita concatenar los varias celdas con caracteres siempre y cuando se cumpla una condición con otras celdas con números. es decir si el las celdas de G51:G54, tienen valor numérico concatene la cadena de caracteres que tenga H1:H54, del archivo RO_SECHU a CONTROLROSECHU, Sub CopiarCeldas() Dim Orig, Dest, i&, uf& Dim wbDest As Workbook Dim wsOrigen As Worksheet, wsDest As Worksheet Application.ScreenUpdating = False Orig = Array("A37", "D5", "D7", "D17", "A23", "I13", "I15") Dest =…

Hola alguien me podria ayudar a crear una userform para este archivo de antemano GRACIAS por su ayuda Tesss2013 - Copy.xls

Buen día amigos.. EL día de hoy les presento el siguiente reto y a la vez una necesidad que tengo... Les cuento: En mi trabajo todos las noches se hace un cierre y corte de ventas con lo producido en el día. Este cierre se compone de tablas de varias horas de un libro Excel. Lo que se hace es copiar y pegar las tablas en el cuerpo del mensaje para que pueda seer visto fácilmente por los destinatarios. Se envía por medio del correo corporativo (desde Outlook Web Access...., no está habilitado Outlook de Office). Quiero hacer lo siguiente: - Crear un macro para que se pueda enviar un mensaje de correo de esta cuenta corporativa, adjuntando (copiando y pegando) el conteni…

Estimados masters de masters: Queria preguntarles sobre una duda existencial que tengo con respecto a conexiones ADO: ¿Es posible conectar excel atravez de conexiones ADO a una base de datos que está en dropbox y que es pública? Por ejemplo cuando conecto una bd que esta en mi computador la conexión seria asi : With cnn .Provider = "microsoft.jet.oledb.4.0" .ConnectionString = "data source=" & ThisWorkbook.Path & "\base1.mdb" .Open End With he intentado cambiar el data source introduciendo un link de dropbox que es público pero no me conecta: With cnn .Provider = "microsoft.jet.oledb.4.0" .ConnectionString = "data source=https://dl.dropboxusercontent.c…

Estimados buenos dias Agradezco su apoyo en la siguiente línea que no me funciona, deseo cerrar un archivo excel tener presente que nombre archivo lo tengo celda B10 . Dim nombre As String nombre= Range("B10").Value Workbooks("nombre").Close SaveChanges:=False

Tengo un botón BUSCAR que me llena los datos de mi formulario, los 3 primeros datos van en textbox y los otros 3 en combobox dependientes. Me llena bien los datos pero cuando quiero modificar los datos de los combobox no me trae del combobox3…<br>Solo cuando hago llenar los datos con el botón BUSCAR y quiero modificar dichos datos lo que no me trae el tercer combobox, sin buscar ningún dato funciona todo bien, como puedo hacer para que me funcione mi combobox dependiente en su totalidad aun cargando los datos con el botón BUSCAR..?<br> adjunto mi archivo. Excel.zip

Señores del Foro disculpen la molestia, pero tengo la siguiente situacion y requiero de Uds para solucionarla: Necesito una formula en excel o una macro que cuando yo digite en un cuadro de control de fomulario, el codigo del cliente, el codigo de la mercancias vendidas y la cantidad, me vaya acumulando las cantida por cliente, al frente del mismos y en la respectiva columna del articulo vendido. Adjunto Archivo de mjuestra. Cordial Saludo ARCHIVO PARA ENVIAR.xls

Hola que tal seguidores de vba , tengo un problemilla que no se como resolverlo espero me puedan ayudar y es como el mismo titulo lo dice, quiero hacer que cuando se se escriba algo dentro del textbox todo el texto contenido lo ponga entre comillas, solo se me ocurre algo como esto :nightmare:: Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) Selection.HomeKey Unit:=wdLine Selection.TypeText Text:="""" Selection.EndKey Unit:=wdLine Selection.TypeText Text:="""" End Sub espero se me pueda ayudar de antemano gracias

Buenas Tardes, tengo una macro que filtra de una columna un dato concreto, en el ejemplo la macro saca todos los datos "Barcelona", los copia en la Hoja2 y los borra del origen. Lo que no consigo es que me seleccione mas de un dato, por ejemplo Barcelona y Valencia, que los copie en la Hoja2 y los borre de la Hoja1 Gracias por la ayuda Sub Filtrar_Datos_Columna() Dim wbLibroActual As Workbook Dim wsHojaActual As Worksheet Dim RangoDatos As Range Dim uFila As Long Set wbLibroActual = Workbooks(ThisWorkbook.Name) Set wsHojaActual = wbLibroActual.ActiveSheet Set RangoDatos = wsHojaActual.UsedRange RangoDatos.AutoFilter Field:=5…

Buenas tardes; Se puede crear una consulta por SQL desde un Excel a un Excel teniendo el encabezado en la fila 2??. un saludo, Libro1.xlsx

Hola de nuevo. Tengo un Excel que accede a una Access a través de macros conectando con "CreateObjet ("adodb.Connection") Hasta aquí perfecto, ahora la empresa está cambiando los Office en local por el Office365 (Online). He probado en un ordenador que tiene el 365 con Access y cuando abro un formulario me salta el primer error, "Dispositivo no disponible". El depurador de Visual Basic me da este error que creo que es un problema del drive ya que se para en la instrucción ChDrive ThisWoorkbook.Path. ¿Sabéis si esto tiene solución? Supongo que el problema viene de que el Path del libro es una url, al ser online, y no se si es posible salvar el error y que fu…

Hola tengo un pequeño problema, estoy trabajando un libro y preciso poder insertar filas y que vengan con el formato y formula de la fila anterior. ahora bien tengo este macro Sub insertarfilayformula() ' ' insertarfilayformula Macro ' ' Acceso directo: CTRL+m ' ActiveCell.Rows("1:1").EntireRow.Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove ActiveCell.Offset(-1, 6).Range("A1").Select Selection.AutoFill Destination:=ActiveCell.Range("A1:A2"), Type:= _ xlFillDefault ActiveCell.Range("A1:A2").Select End Sub[/CODE] pero deseo combinarlo con este otro que encontre en el foro para que me de la opcion de a…