Jump to content

Search the Community

Showing results for tags 'macros y vba'.



More search options

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • ¿Eres nuevo? Lee las Normas y Reglas del Foro
    • Presentaciones
  • Dudas y consultas sobre Excel
    • Excel General
    • Macros y programación VBA
    • Power BI
    • Access, Word, Power Point, Outlook etc...
    • Comparte tus aportes
  • Sobre ayudaexcel.com
    • Solicitud proyectos
    • Blog
    • Plantillas
    • Productos de ayudaexcel
    • Megaguías
  • Otras aplicaciones de Microsoft Office
  • Variedades
    • Cafeteria Ayuda Excel
    • Temas resueltos
    • Temas Abandonados
  • Archive
  • Resources
    • Ideas y aportes

Categories

  • Tools
  • Add-ins
  • Store
  • Finance
  • Dpto. Admin
  • Purchasing
  • Agendas
  • Data registry

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


AIM


MSN


Website URL


ICQ


Yahoo


Skype


Facebook


Twitter


Localización:


Interests

Found 406 results

  1. Buenos dias. Trabajo en una Fundación y estoy preparando un excel con macros. Utilizamos como intranet el Sharepoint de Microsoft, y tenemos contratado el Office 365, aunque cada usuario tiene instalado tambien el Office en su ordenador. El problema lo tengo en que un excel con macros no se puede abrir desde Offcie 365 porque no soporta macros. En el sharepont ya he cambiado que la forma de abrir el archivo escel sea siempre desde la aplicación del escritorio, es decir, desde el excel instalado en el ordenador local. Pero solo funciona con el navegador Internet Explorer, hay muchos usuarios que utilizan el Chrome. Se me ocurren dos posibles soluciones (para las cuales no tengo ni idea del codigo a utilizar 😞😞 Al abrir el excel utilice la aplicacion excel del ordenador local para abrirlo. Al abrir el excel detectar que no lo abre con la aplicacion excel del ordenador local y dar un mensaje al usuario y cerrar el libro. No sé si esto es posilbe. O si a alguien se le ocurre otra forma, bienvenida sea 🙂 Gracias por vuestra ayuda. Saludos.
  2. Buenas tardes, tengo una procedimiento que estoy modificando para contar los registros de una tabla access y verlos en un textbox de un formulario excel vba, pero el resultado siempre me sale -1 y en la tabla hay 4 registros. Sub Consulta_Registros() Dim conexion As ADODB.Connection Dim recordset As ADODB.recordset Dim Consulta As String Dim MiBase As String Set conexion = New ADODB.Connection MiBase = "\DBClientes.accdb" conexion.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & Application.ThisWorkbook.Path & Application.PathSeparator & MiBase Consulta = "SELECT * FROM TClientes " Consulta = "SELECT COUNT(Razon_Social) FROM TClientes " Set recordset = New ADODB.recordset recordset.Open Consulta, conexion Dim total_reg As Integer recordset.MoveNext UserForm1.TextBox1.Value = recordset.RecordCount total_reg = 0 Set recordset = Nothing Set conexion = Nothing End Sub Espero me puedan apoyar, gracias. ContarRegistros.rar
  3. Amigos, quien me ayuda ya que he intentado pero no logro conseguirlo, encontré por ahi en la red una forma de importar un excel cualquiera a un control listview, pero carga previamente los encabezados a la hoja excel activa, luego carga lo demás. Lo que me gustaría es que solo cargara los datos en el listview, sin cargarlos a la hoja excel. Adjunto archivo por si alguien me echa una mano. Nota: el archivo no es de mi autoría, solo quiero adaptarlo. 74 - Importar dados de outro arquivo xls.xlsm
  4. Buenos dias, estoy tratando de gestionar una caja comùn (sistema Slicing Pie - The well), pero estoy encontrando dificultad para realizar formulas sin referencias circulares. Aquì dejo dos links, uno con el archivo excel y el otro con un archivo word donde explico todo el problema con imagenes. https://drive.google.com/file/d/1Re1jxKEtGzRvb8aFm3Dqjt0SWk25vkHQ/view?usp=sharing https://drive.google.com/file/d/1mNBFCtI9LgadWJFuQmQ4a6LqiS7y4Mpn/view?usp=sharing Desde ya muchas gracias por su ayuda! Sebastian
  5. Como va? hace un tiempo arme un formulario en excel que consistía en realizar un resumen de de los comprobantes de repartos a través del llenado de un listbox que luego se exportaba en pdf. Adjunto a continuación un ejemplo del pdf que actualmente genera: https://drive.google.com/file/d/1jeIvxYVisSuZ4bUHuQsN-NRUrdoXyLXJ/view?usp=sharing Ahora funciona a través de los datos que se encuentran en las tablas de excel. El código es un doble bucle for next que como ya mencione llena los datos en un listbox, la ultima columna del mismo es la parte conflictiva ya que en una sola fila almacena todos los productos que contiene una factura de reparto y los separa a través de un salto de linea para que finalmente mediante el código que lo exporta a pdf envié todos los productos con dicho salto a una sola celda. El problema que tengo ahora es que necesito que el informe obtenga los datos de una base de datos Access y mediante una sentencia SQL no se como obtener el mismo resultado o similar. Apelo a la creatividad y conocimientos de los mas experimentados en este foro, hace días que vengo intentando y no logro solucionarlo. Desde ya muchas gracias y un abrazo. Adjuntos: https://drive.google.com/file/d/1r39L8xqjk0wKmS0oFsO3kpOxM9hY4qL3/view?usp=sharing El formulario se llama "reparto" actualmente hay cargadas 2 facturas de reparto con fecha 29/6/2019 turno: tarde antes de apretar el botón exportar se deben seleccionar las 2 facturas en el listbox para que se carguen al pdf
  6. Hola! Soy nuevo por aquí! Os cuento; Estoy trabajando en un proyecto donde tengo una fila de registros de servidor con 5000 filas de excel a diario que hay que depurar. Estoy intentando extraer determinados elementos dentro de una cadena, directorio o parte de una url -> Ejemplo: /ayuda-excel.php Llevo varios días buscando una fórmula que me permita extraer los datos entre los caracteres que yo elija, pero no doy con nada que me funcione de forma correcta. He probado con estas combinaciones, a ver si veis algún error o podéis echarme una mano. (Como veréis, la url de la que se quiere extraer estaría en la celda E2) =EXTRAE(IZQUIERDA(E2;ENCONTRAR("/";E2)+10);ENCONTRAR(".";E2)+1;LARGO(E2)) -> Esta es la que más me convence y no llego a entender que estoy haciendo mal. =IZQUIERDA(E8;BUSCAR("/";E8;10)) -> En esta no estoy poniendo límites y por tanto me coge hasta el número que yo le doy. Perdonad si hay algún error, no soy un especialista con las funciones. El problema es que la secuencia del ejemplo anterior va cambiando y a veces es "/ayuda-excel.php" ,otras "/ayuda-excel/" y otras "/ayuda-excel". Podéis ayudarme a encontrar la forma de extraer esto de forma correcta? Llevo varios días dándole vueltas, pero no encuentro solución. Espero que podáis echarme una mano! Gracias de antemano!
  7. Como va? estoy armando un programa de gestión de inventarios en excel el cual tiene su base de datos en access, Desde excel envío los registros de salida de productos a una tabla de access que se llama "Salidas" la cual tiene los siguientes campos: el producto, el numero de factura y la cantidad del producto. De la misma forma también envía los registros de entrada de productos a una tabla que se llama "Entradas". En resumen: tengo dos tablas: una entrada y otra de salida, ambas tienen cantidades positivas de productos, y estos productos se encuentran repetidos. Necesitaría obtener una tabla que contenga la lista de productos de ambas tablas pero de productos sin repetir y con la cantidad que resulte de la resta de la suma total de los ingresos menos la suma total de las salidas para que después pueda capturar esos datos en un listbox de excel, O si es posible quizas con una sentencia SQL conseguir el mismo resultado ya que Carezco de conocimientos en Acces y en un principio pensé que iba a ser fácil de resolver para mi, pero la verdad me esta dando unas vueltas barbaras. Agradeceré a quien me pueda orientar con este tema y cualquier otra forma de resolución, solo necesito tener el stock almacenado en la base de datos. Un abrazo y disculpen pero ya había abierto este hilo en acces pero parece que no hay nadie por ahí, espero no se enojen por volver a abrir este hilo.
  8. Hola buenas. Tengo una macro para combinacion de numeros, pero dado el limite en excel Número total de filas y columnas en una hoja de cálculo 1.048.576 filas por 16.384 columnas No puede finalizar la macro se queda pillada en la fila 810.00, la idea es que se ejecute ejemplo hasta la fila 500.00 y siga en otras columnas o rango ejemplo k:m Esta es la macro: Sub COMBINAR_4() Columns(5).ClearContents Columns(6).ClearContents Columns(7).ClearContents Columns(8).ClearContents Columns(9).ClearContents FIN_A = Range("A1", Range("A" & Rows.Count).End(xlUp)).Rows.Count FIN_B = Range("B1", Range("B" & Rows.Count).End(xlUp)).Rows.Count FIN_C = Range("C1", Range("C" & Rows.Count).End(xlUp)).Rows.Count FIN_D = Range("D1", Range("D" & Rows.Count).End(xlUp)).Rows.Count For X = 1 To FIN_A For Y = 1 To FIN_B For Z = 1 To FIN_C For AA = 1 To FIN_D FIN_E = FIN_E + 1 Cells(FIN_E, 6) = Cells(X, 1) Cells(FIN_E, 7) = Cells(Y, 2) Cells(FIN_E, 8) = Cells(Z, 3) Cells(FIN_E, 9) = Cells(AA, 4) Next AA Next Z Next Y Next X End Sub Un Saludo.
  9. Buenos días, Intento crear una macro para que me guarde los datos. En la hoja tengo 2 casos. El caso1 lleva una macro que trabaja bien, pero en el caso2 no consigo hacer lo mismo que en el caso1. Adjunto el libro por si hay alguien que me puede hechar una mano. Gracias. Jose GUARDAR DATOS.xlsm
  10. Buenos días a los integrantes de este prestigioso foro, esta ocasión recurro a uds para que me ayuden con una macro o quizás mejorarla, la idea que tengo es extraer toda la información (conservando su formato) de la pestaña CONSOLIDADO y que se guarde automáticamente en la carpeta donde se está trabajando, el nombre del archivo que se extrae esta en hoja PLANILLA celda D2, fecha y hora y con la extensión “.xlsx” (CONSOLIDADO CYPRESS ARROW2 2-5-2019 18-20-56 HRS.xlsx), como se aprecia en la macro que describe a continuación. Adjunto link de archivo. https://drive.google.com/file/d/1_SVxDlLOyuGGmpIih5d-M4wYJSm6S7La/view?usp=sharing Modulo 5: Sub GuardarComo30072015() Dim ncorr As String With Application .ScreenUpdating = False NOMBRE = ThisWorkbook.Name carpeta = ThisWorkbook.Path filaa = carpeta & "\" & NOMBRE ncorr = Format(Hoja1.Range("D2").Value, "000") A = " " & Day(Date) & "-" & Month(Date) & "-" & Year(Date) & " " & Hour(Time) & "-" & Minute(Time) & "-" & Second(Time) & " HRS" .DisplayAlerts = False .EnableEvents = False If nombrar = vbYes Then filab = carpeta & "\" & "plantilla electronica1" ActiveWorkbook.SaveAs Filename:=filab, FileFormat:=xlOpenXMLWorkbookMacroEnabled Else filab = carpeta & "\" & "CONSOLIDADO " & ncorr & UCase(titulo) & A Call Elimina_hojas ActiveWorkbook.SaveAs Filename:=filab, FileFormat:=xlOpenXMLWorkbookMacroEnabled ActiveWorkbook.Close End If .EnableEvents = True .DisplayAlerts = True xnombre = ActiveWorkbook.Name Workbooks.Open filaa vuf = Range("B" & Rows.Count).End(xlUp).Row Range("B8:AQ" & vuf).ClearContents Workbooks(xnombre).Close .ScreenUpdating = True End With End Sub Sub Elimina_hojas() Dim Vec, Elim, ws As Worksheet ' Vec = Array("PLANILLA", "RESUMEN", "BOLETA", "CONSOLIDADO", "DATA", "EXPORTA", "REPORTE BOLETAS", "TELECREDITO JUDICIAL", "TELECREDITO", "DESCUENTO", "MENU", "SORT", "NAVI", "RECIBO", "TABLA AFP") ' Estas son las hojas que se mantienen. ' ReDim Elim(0 To 0) For Each ws In Worksheets If IsError(Application.Match(ws.Name, Vec, 0)) Then ReDim Preserve Elim(1 To 1 + UBound(Elim)): Elim(UBound(Elim)) = ws.Name End If Next Application.DisplayAlerts = False: On Error Resume Next Worksheets(Elim).Delete On Error GoTo 0: Application.DisplayAlerts = True MsgBox "Finalizando....." Sheets("MENU").Activate Range("B8").Select End Sub Desde ya agradezco su apoyo y colaboración.
  11. Buenos días; Ayer me surgió una duda de principiante…… Desde que empecé a hacer macros, siempre he usado las líneas “Application.DisplayAlerts = False, Application.EnableEvents = False, Application.ScreenUpdating = False” al principio del módulo para que la macro fuera más rápida ( al final del módulo volvía a activarlo). La duda que me surgió ayer fue……es necesario ponerlo en todos los módulos de la macro o solo al inicio y final del proceso de la macro??. Ejemplo: Si tengo una macro en un módulo que llama a otros módulos/Formularios, lo tengo que poner al principio y final del proceso o en cada módulo/formulario??. supongo que con ponerlo al inicio y final sera suficiente pero desde que tengo el office 2013 tengo tantos problemas que en la prueba que realizado no estoy seguro. Muchas gracias. Un saludo,
  12. Buenas a todos Necesitaría vuestra ayuda estoy desesperado ya que no encuentro la formula o manera de hacer coincidir 2 archivos/hojas de 2 mayoristas diferentes (en lo posible), os explico: -Son 2 archivos de diferentes proveedores que venden la misma linea de productos y necesito copiar una celda/texto de la columna referencia a la otra hoja por coincidencia , yo los añado en 2 hojas digamos HOJA 1 (mayorista 1)- HOJA 2 (mayorista2) necesito hacer coincidir cualquier linea de texto de la HOJA 2 ref/nombre/descripción..etc (cualquier valdría) en la HOJA 1 y en esta misma hoja la coincidencia que encuentre añada en una celda la referencia de la HOJA 2 en la HOJA 1. Estaría muy agradecido que me ayudaran ya que probado de todo con BUSCAR,FORMULAS....por internet y soy muy torpe con excel ...🙃 Os adjunto archivos de ejemplo. Muchísimas gracias !!! Un saludo mayoristas.xlsx
  13. Buenas tardes a tod@s; Tengo una consulta, se puede de alguna forma ordenar una columna de una hoja oculta sin desocultar dicha hoja??. Lo quiero para ordenar los datos obtenidos de una macro, la macro lo que hace es listar los archivos de una carpeta/subcarpeta en una hoja oculta. Pd: ahora mismo no tengo la macro en este ordenador pero si la necesitáis busco una antigua que tenía en este ordenador. Muchas gracias de antemano. Un saludo,
  14. Buen día, tarde, noche compañeros Quisiera molestarlos, si me pudieran ayudar con algo que no he podido resolver. Estoy haciendo una validación de códigos, para lo cual actualmente estoy dependiendo de una hoja para validar. Lo que estoy validando en sí, es el primer dígito del código, y que si este primer dígito no se encuentra en una lista, definida en una hoja, entonces que lance un mensaje de advertencia y que no deje pasar a lo siguiente. Sin embargo, lo que solicito es que esta lista, se encuentre dentro de una variable, del mismo código, para no depender de una hoja de excel. Estaba pensando en un Array, pero sin embargo no he podido realizar lo que necesito. Cabe mencionar que no estoy solicitando explícitamente un array, sino que si tienen alguna sugerencia mejor, que me puedan ayudar. Quedo atento a sus comentarios. Muestra AE.xlsm
  15. Hola. Necesito ayuda con un problema que me ha surgido en un archivo excel el cual contiene macros. Este archivo lo utilizan en otro destino y llevan bastante tiempo cargando información a la que ahora no tengo acceso, de ahí mi preocupación. Nada más abrir el archivo me aparece el pantallazo que adjunto. He intentado entrar en el proyecto en Herramientas / Referencias pero no me permite acceder. He intentado copiar las tablas y el archivo se cierra cuando lo intento, igual me ocurre si intento copiar la página en otro libro. Con el fin de al menos recuperar la información he intentado guardar el libro como archivo excel sin macros y tampoco me deja. Alguien tiene alguna idea de porque está ocurriendo esto. Muchas gracias de antemano. Saludos.
  16. Tengo este código que me marca error, su función es autocompletar el texto ubicado en la col M de la 3 a al 50,, pero da error en el for i, dice : no coinciden loa tipos la i la tengo definida como range private Sub textBox2_change() Hoja5. Unprotect Me. ListBox1. Clear For i = 3 To 50 If (Range("M" & i).Value) Then Me.ListBox1.Visible = True Me.ListBox1.AddItem Range("M" & i).Value End If Next i TextBox2.text = UCase(TextBox2.text) TextBox2.SelStart = Len(TextBox2) End Sub Private Sub ListBox1_click() TextBox2.text = ListBox1.List(ListBox1.ListIndex) Me.ListBox1.visisble = False
  17. Como va? tengo un un formulario en excel que consta de un listbox que por el momento se llena con los valores de una tabla de acces. Lo que necesito es que solo se carguen los valores que no se encuentran en una tabla de excel que se encuentra en el mismo libro del formulario. Este es el codigo que estoy usando ahora para llenar el listbox: Dim Base As String Dim Sql As String 'Dim rs As String Dim tb As String Dim np As String 'E:\Dropbox\MIS PROGRAMAS\ACCES\Buscador de Precios 64 bits 9-4-19.accdb 'HOJA OPCIONES CELDA U2 Dim Conexion As String Conexion = "PROVIDER=MICROSOFT.ACE.OLEDB.12.0;DATA SOURCE =" & Me.TextBox1.Text & ";PERSIST SECURITY INFO FALSE;" 'uf2 = Sheets("ACCES").Range("I" & Rows.Count).End(xlUp).Row 'Sheets("ACCES").Range("B11:I" & uf2).Clear 'LLAMAMOS AL OBJETO ADO Set cn = New ADODB.Connection 'ABRIMOS LA CONEXION cn.Open Conexion 'CREAMOS LA CONSULTA Set rs = New ADODB.Recordset With rs .CursorLocation = adUseClient .CursorType = adOpenStatic .LockType = adLockOptimistic End With 'Consulta = Consulta & " WHERE " & Me.cmbCampo & " Like '*" & Me.txtBusqueda.Text & "*'" 'Sql = "SELECT * FROM Personas where Descripción like " & "'%" & Range("D6") & "%'" 'Like Replace("'%" & UCase(txtBusqueda.Value) & "%'", " ", "%") And 'Sql = "SELECT * FROM Personas where Descripción like " & "'%" & txtBusqueda & "%'" ',FormatCurrency([Precio]) as Precio 'Sql = "SELECT * FROM Personas where " & tb & " like " & Replace("'%" & UCase(txtBusqueda.Value) & "%'", " ", "%") & "AND Proveedor = " & "'" & np & "'" ''cmbCampo.value' Sql = "SELECT FormatCurrency([Monto comprobante]) as [Monto comprobante],[Nº Comprobante],[Tipo comprobante],[Observacion],[Dirección],[Tipo de Pago],[Vendedor] FROM caja" 'where [Nº Comprobante] <> " rs.Open Sql, Conexion If rs.EOF Then MsgBox "No se encontraron registros." Exit Sub End If Me.ListBox1.Column = rs.GetRows 'Range("B11").CopyFromRecordset rs 'uf = Sheets("ACCES").Range("I" & Rows.Count).End(xlUp).Row 'Me.Lista.RowSource = "ACCES!B11:I" & uf cn.Close rs.Close Set rs = Nothing Set cn = Nothing End Sub Adjunto el archivo de excel y la base de datos en acces https://drive.google.com/file/d/1UMQKegqUQbwJ93MQ8TFOslqMVE-7llmV/view?usp=sharing https://drive.google.com/file/d/1FZ8O8iY6ApMbYUPwBR-2Gn0Ksx7cZABi/view?usp=sharing La tabla en acces se llama: caja En excel la tabla se encuentra en la hoja "Base de datos" Desde ya muchas gracias estoy abierto a cualquier sugerencia. Un abrazo
  18. buen dia existe algun codigo especial q me permita ocultar por medio de un boton macro en codigo visual b,, ocultar los encabeados de fila y columna, activarlos y desactivarlos,, sin tener q ir manualmente al archivo/opcines/avanzadas???? gracias
  19. Qué tal? tengo dos problemas con un creador de etiquetas que estoy tratando de armar, el primero tiene que ver con lo que indicia el titulo: Desde un listbox envío la información de 4 columnas correspondientes a cada fila del mismo listbox hacia una celda de una hoja de calculo. esa información esta concatenada con un salto de linea, de manera que una celda forma la etiqueta con la información de toda una fila del listbox. Cual es el problema? El problema viene cuando quiero asignarle a cada salto de linea un formato correspondiente, ya que al terminar de ejecutarse la macro, en la hoja los saltos de linea si bien se visualizan en la celda, no se reconocen correctamente en la función Characters que utilizo para detectar la ubicación del texto que le asignara un formato especifico (estilo negrita, color rojo) y el mismo termina desfasado 2 caracteres antes, que se corresponden a los 2 caracteres de los saltos de paginas enviados desde el listbox. PERO! si hago DOBLE CLIC en la celda y luego clic en cualquier otra, esta se actualiza y ahi si reconoce bien los saltos de pagina y el estilo del texto se acomoda finalmente como tiene que ser. Posiblemente me este complicando al querer armar una etiqueta con varia información en una sola celda pudiendo armar un grupo de celdas para cada linea de datos. el segundo problema viene con la estructura doble for next que estoy utilizando, creo que no esta bien resuelta ya que se torna muy lento el proceso de generación de cada etiqueta. Desde ya muchas gracias y a continuación adjunto el código y los archivos. En rojo dejo marcado donde arrancaría la parte mas conflictiva. Private Sub generar_Click() If Me.ListBox1.ListCount = 0 Then MsgBox "Debe ingresar al menos un producto para generar la etiqueta. Haga clic en el botón ""Buscar Prodcuto"".", , "Creador de Etiquetas - CHACO SANITARIOS" Exit Sub End If Application.ScreenUpdating = False Application.DisplayAlerts = False Dim nFila, nColumna, Fin With Sheets("ETIQUETAS").Cells .Clear '.Font.Bold = False .Font.Name = "Calibri Light" .Font.Size = 8 .HorizontalAlignment = xlCenter .VerticalAlignment = xlVAlignCenter '.VerticalAlignment = xlCenter .RowHeight = 58 .ColumnWidth = 23 '.Columns.AutoFit '.WrapText = True End With 'CONFIGURACIONES DE HOJA 'Application.PrintCommunication = True 'With Sheets("ETIQUETAS").PageSetup '.PaperSize = xlPaperA4 '.Orientation = xlLandscape '.RightMargin = Application.InchesToPoints(0.4) '.LeftMargin = Application.InchesToPoints(0.4) '.TopMargin = Application.InchesToPoints(0.4) '.BottomMargin = Application.InchesToPoints(0.4) '.HeaderMargin = Application.InchesToPoints(0.4) '.FooterMargin = Application.InchesToPoints(0.4) '.PrintArea = "$A$1:$F$" & uf + 1 ' .PrintTitleRows = "$1:$2" '.FitToPagesWide = 1 '.FitToPagesTall = 1 '.CenterHeader = "Página " & "&P" & " de " & "&N" '"Página " & "&Z&P&#" & "de" & "&Z&#" 'End With Fin = Me.ListBox1.ListCount nfila2 = 0 For nFila = 0 To Int((Fin - 1) / 4) For nColumna = 0 To 3 Dim join As String join = "CP: " & ListBox1.List(nfila2, 0) _ & vbCrLf & ListBox1.List(nfila2, 1) & vbCrLf & ListBox1.List(nfila2, 2) & vbCrLf & ListBox1.List(nfila2, 3) Sheets("ETIQUETAS").Cells((1 * nFila) + 1, (1 * nColumna) + 1) = join '"CP: " & ListBox1.List(nfila2, 0) _ & vbCrLf & ListBox1.List(nfila2, 1) & vbCrLf & ListBox1.List(nfila2, 2) & vbCrLf & ListBox1.List(nfila2, 3) Dim starpre As Integer Dim longpre As Integer starpre = Len(ListBox1.List(nfila2, 0)) + 5 + Len(ListBox1.List(nfila2, 1)) + 1 longpre = Len(ListBox1.List(nfila2, 2)) + 1 With Sheets("ETIQUETAS").Cells((1 * nFila) + 1, (1 * nColumna) + 1).Characters(starpre, longpre) .Font.Size = 10 .Font.Bold = True .Font.ColorIndex = 3 End With Sheets("ETIQUETAS").Cells((1 * nFila) + 1, (1 * nColumna) + 1).BorderAround _ ColorIndex:=0, Weight:=xlThick nfila2 = nfila2 + 1 If nfila2 = Fin And Fin = 1 Then MsgBox "Se creó " & Fin & " Etiqueta", , "Creador de Etiquetas - CHACO SANITARIOS" Sheets("ETIQUETAS").Select Application.ScreenUpdating = True Application.DisplayAlerts = True End End If If nfila2 = Fin And Fin > 1 Then MsgBox "Se crearon " & Fin & " Etiquetas", , "Creador de Etiquetas - CHACO SANITARIOS" Sheets("ETIQUETAS").Select Application.ScreenUpdating = True Application.DisplayAlerts = True End End If Next nColumna Next nFila nfila2 = 0 End Sub Adjunto Link ya que supera el peso permitido para adjuntar. https://drive.google.com/drive/folders/1xgdyPVbxT-T_yajZ2GAJrPhep-t_M6vz?usp=sharing Son 2 archivos un excel que contiene el formulario, se llama "etiquetas" y el otro corresponde a una base de datos acces donde se alojan los productos que se deberán buscar desde el formulario excel para finalmente generar las etiquetas. El usuario se llama ADMIN y la contraseña es: 1234 Adjunto ademas una imagen en la misma se visualizan las etiquetas, en la primera se hizo doble clic y sola se actualizo y corrigió, las demás están tal cual finalizo el código. Notar que el precio a partir de la coma no tiene el formato asignado, son los dos caracteres del salto de pagina. Si no me he expresado lo suficiente y/o necesitan que modifique los archivos para que sea mas fácil y claro por favor hacérmelo saber. Nuevamente muchas gracias por leer y disculpen las molestias, un abrazo
  20. Buenas tardes, gusto saludarles. Tengo la siguiente función que me busca un código relacionado a un nombre (Código está a la izquierda y el nombre a la derecha). Cuando en el comboBox se selecciona el nombre, en el label me aparece el codigo, funciona perfectamente. Function find_code_tipo_persona() Dim codigo As Range Dim nombre As Range Set codigo = Hoja2.[codigos_tipo_persona] Set nombre = Hoja2.[tipo_persona] lbl_tipo_persona.Caption = "" On Error Resume Next lbl_tipo_persona.Caption = Application.Index(codigo, Application.Match(cmb_tipo_persona.Value, nombre, 0), 1) End Function Ahora, lo que necesito es que haga lo inverso, que me cargue en el comboBox el nombre, cuando el label ya tiene el numero de código; tengo la siguiente función: Function find_name_tipo_persona() Dim codigo As Range Dim nombre As Range Set codigo = Hoja2.[codigos_tipo_persona] Set nombre = Hoja2.[tipo_persona] On Error Resume Next cmb_tipo_persona.Value = Application.Index(nombre, Application.Match(lbl_tipo_persona.Caption, codigo, 0), 1) End Function ... pero no funciona. También la he hecho de esta otra manera: ... cmb_tipo_persona.Value = Application.VLookup(lbl_tipo_persona.Caption, rRango, 2, 0) ... ...pero tampoco funciona. Les agradezco la ayuda que me puedan brindar.
  21. Buenas noches foro, les cuento lo que intento hacer para ver si me pueden decir como o si no se puede, tengo dos formas rectangulares, las cuales tienen asignado una macro cada una para redirigir a ciertas hojas del libro, si en la tabla de base de datos la boleta en curso (que es siempre la del número más alto) tiene hasta 16 filas, le doy click a una de las formas para imprimir una hoja corta y si tiene hasta 32 filas (que es el maximo que me entra en una hoja A4) le doy click a la otra forma que me redirige as una hoja diseñada para imprimir en papel A4 Ahora bien, yo quiero que si en "BD BOL VENTAS" la cantidad de filas con el mismo número de boleta es de hasta 16, se vea solamente la forma rectangular que lleva la macro correspondiente a ese número de renglones en la boleta; y si es de más de 16 que se oculte esta y se visualice solamente la otra forma rectangular que lleva hasta la boleta de hasta 32 renglones. Yo pensé en un formato condicional que le de el mismo color que el fondo a la forma que quiero ocultar, no se si se puede hacer eso, ustedes dirán si es posible o si hay un método más elegante para hacerlo El ejemplo que subo es muy básico, hecho a "las patadas" Espero que se entienda todo el lío que traté de explicar Desde ya muchas gracias Saludos Jose Libro1.xlsm
  22. Saludos amigos del foro, intento en esta ocasión ordenar fechas, en relación a una columna de días que están indicadas en la columna de la Hoja1. Los días colocados allí corresponden a los laborables de cada mes pero me gustaría que las fechas se acomoden en función de los días tal como se muestra el resultado en la Hoja3. Las fechas están en la Hoja2. Subo el archivo para que lo vean Gracias anticipadas por el apoyo Distribucion de ordenada de fechas segun dia.xlsm
  23. Hola, que tal están. De nuevo con ustedes para ver si me pueden ayudar a solucionar este problema. tengo un código que cuando busco por un numero en el text dentro de la pagina, me envía el resultado que coincide a otro text, el problema lo tengo al cargar la imagen, he probado varias ideas y no me funcionan Les agradezco de antemano su ayuda, muchas gracias Set h = Sheets("Empleados") Set b = h.Columns("D").Find(TextBox3) If Not b Is Nothing Then TextBox4 = h.Cells(b.Row, "A") Fotografia = h.Cells(b.Row, "C") End If
  24. Hola a tod@s: Estoy realizando un programa y tengo el siguiente problema. Necesito crear un array de 22 elementos que van del 0 al 21. Y necesito rellenarlos tambien del 0 al 21 de forma aleatorio y que no se repitan. podeis decirme como hacerlo Gracias y un saludo
  25. Estimados amigos del foro, Saludos Tengo un archivo en el que he colocado un combobox para que busque en la hoja, todos los que son iguales según lo que haya en la hoja BD, deberá mostrarse en el listbox. Para mi entender todo esta bien. Pero no se cual es la razón por la que no funciona el Select case según lo que se selecciones en el combobox Les solicito que le puedan echar un vistazo al archivo y me colaboren. Agradezco anticipadamente su apoyo. Subo el archivo Buscar con Combobox y mostrar en LIstbox.xls
×
×
  • Create New...

Important Information

Privacy Policy