Search the Community

muy buen dia tengan todos, solicito su valiosa colaboracion; seré directo pues se trata de un formulario que realiza busqueda en un tabla donde se selecciona la hoja y la columna donde buscar ya que he estado intentando ponerle una barra de progreso pero unicamente a traves de un label que va aumentando, no quiero usar un control adcional ya que luego en algunas computadores no tienen instalado el control de barra de progreso por lo tanto quiero usar un label, aqui mi plan es que mientras haga la busqueda ese label simule el porcentaje de aumento que vaya mostrando el avance de la busqueda, he aqui el codigo y no se como establecerlo con el label-barradeprogreso. de antemano les agradezco la atencion. Sub buscar() Dim i, nFilaFin If ComboBox1.ListIndex = -1 Or ComboBox2.ListIndex = -1 Or txt_Buscarr = "" Then MsgBox "Seleccione una hoja, una columna y escriba un texto de busqueda", vbCritical, "Departamento de Finanzas" ListBox1.Clear txt_Buscarr.SetFocus Exit Sub End If ListBox1.Clear btn_modificar.Enabled = False Me.btn_cancelar.Enabled = False btn_buscar.Enabled = False Me.ListBox1.Locked = True Dim rango As Variant Set rango = Range("A" & Rows.Count).End(xlUp).Rows For i = 2 To rango If LCase(Cells(i, ComboBox2.ListIndex + 1).Value) Like "*" & LCase(txt_Buscarr.Value) & "*" Then ListBox1.AddItem Cells(i, 1) ListBox1.List(ListBox1.ListCount - 1, 2) = Cells(i, 3) ' ListBox1.List(ListBox1.ListCount - 1, 3) = Cells(i, 4) ListBox1.List(ListBox1.ListCount - 1, 3) = Cells(i, 8) 'ListBox1.List(ListBox1.ListCount - 1, 4) = Cells(i, 5) 'ListBox1.List(ListBox1.ListCount - 1, 5) = Cells(i, 6) ListBox1.List(ListBox1.ListCount - 1, 4) = i End If '------------------------------barra de progreso---------------------------------------------------- Dim porcentaje As Long porcentaje = (100 / (rango / i)) Me.Label76.Width = 0 Me.Label76.Width = porcentaje '--------------------------------------------------------------------------------------------------- lblResultado.Caption = "Espere 1 minuto..." DoEvents Next i txt_Buscarr.SelStart = 0 txt_Buscarr.SelLength = Len(txt_Buscarr.Text) nFilaFin = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row lblResultado.Caption = ListBox1.ListCount & " Registros Encontrados de: " & nFilaFin - 1 btn_modificar.Enabled = True Me.btn_cancelar.Enabled = True btn_buscar.Enabled = True Me.ListBox1.Locked = False End Sub

Buenas tardes amigos, Os subo un fichero en el que me gustaría hacer una macro para que seleccionando el pedido o la OF del filtro de las columnas B o C se me queden solo las columnas que tengan algún valor hasta la BY. Me podeis ayudar? Macro al seleccionar me deje solo las columnas con valors.xlsb

Hola a todos, estoy intentando insertar una formula para un rango dinámico mediante macro pero no lo consigo, bueno insertarla si pero en realidad no tengo ni idea de como elaborarla dentro de la macro. En el adjunto que subo pongo un ejemplo en el que inserto una formula mediante macro, pero claro es una formula muy simple, luego por debajo muestro el objetivo que pretendo alcanzar. Insertar Formula Rango Dinámico con Macro.xlsm

Hola a todos, tengo un formulario donde filtro por fecha única, Albarán sin facturar, obra y clientes, pero mi propósito es filtrar entre fechas cosa que no consigo ya que en este caso no tengo claro como poder hacerlo. Ajunto archivo y enlace de vídeo del funcionamiento del formulario. https://www.dropbox.com/s/68wh6lz34t4pf8o/filtrado especial.mp4?dl=0 El objetivo es que si se introduce fecha inicio y fecha final que el filtrado lo haga cumpliendo las demás condiciones que tiene pero entre ese rango de fechas. Filtradoentrefechas.xlsb

Hola comunidad, he intentado hacer ésto de muchas formas y aún no consigo obtener lo que necesito, en realidad no sé si se pueda programar con VBA, así que se los comparto por si alguien tuvo algún problema similar y me puede dar una luz Verán, tengo la página web ipodperu.com (De mi propiedad), en ella tengo un IFRAME que apunta a un vídeo en Youtube Lo que quería hacer era cargar la web en un objeto WebBrowser en un formulario y con un SpinButton modificar el SRC del IFRAME, no he podido cargar la web porque me salen constantes ventanas de errores (Por el JavaScript al parecer) Entonces desde un módulo he accedido a la web usando un objeto InternetExplorer, el cual sí reproduce sin problemas el contenido, pero ahora no sé qué código VBA puedo usar para cambiar el SRC del IFRAME por los links que tengo en las celdas A2:A5, el cambio de SRC se debe hacer cada cierto periodo de tiempo Espero haber sido claro, en resumen lo que necesito es como ingresar al inspeccionador de elementos y modificar código HTML desde VBA, para lo cual no sé si VBA sea suficiente Info.xlsm

Buenas tardes Agradezco ayuda u orientación en lo siguiente. Hay que generar un archivo plano para subir a SAP, así que idee una forma para que la persona que lo digíte, grabe los pedidos en Excel en una sola hoja para subir un solo archivo al ERP. Funciona asi: Al digitar el centro de costos en un textbox se llena un label; al digitar y buscar el código del cliente en otro textbox se llenan varios label, luego se digita y busca el código del material y se digita la cantidad, ahí le da clic al botón +. Puede agregar cuantas referencias necesite al listbox. Luego (aquí es donde voy y me frené), da clic en pedido nuevo y los datos del listbox se graban en la hoja registro; esto ocupa 1 o varias filas y al tratarse de un archivo plano debo hacer que, en la columna numero de pedido se repita cuantas veces sea necesario el consecutivo del pedido; esto igual para las columnas de la B a la G. Luego de eso, todo debe quedar vacío (eso se como hacerlo), para poder digitar otro pedido en la misma hoja, pero al terminar el consecutivo debe ser el numero siguiente y debe repetirse también cuantas veces sea necesario. En el adjunto va una hoja de ejemplo de como debe ir la base de datos Mil gracias a quien me pueda ayudar. AYUDAEXCEL ENVIO DE PEDIDOS POP.xlsm

Hola amigos, una vez mas os pido me ayudeis con excel, he buscado por la web y no veo solución a mi problema, ¿como cambiar formato de fecha americano al español? tengo las fechas de abajo y cientos mas que quiero cambiarlas al formato español, dia/mes/año, En las opciones de fecha de excel no me deja cambiarlo porque no lo reconoce como tal si no como formato general, he probado los formatos de excel pero ninguno da resultado, ¿como lo hago? gracias. 2019-10-14 2019-10-16 2019-10-16 2019-10-17 2019-10-16 2019-10-16 2019-10-16 2019-10-17 2019-10-17 2019-10-16 2019-10-15 2019-10-17 2019-10-17 2019-10-17 2019-10-17 2019-10-14 2019-10-17 2019-10-15 2019-10-14 2019-10-14 2019-10-14 2019-10-14 2019-10-16 2019-10-14 2019-10-14 2019-10-13 2019-10-14 2019-10-14 2019-10-14 2019-10-07 2019-10-14

Buenos días, gusto saludarles. Tengo una herramienta que imprime en PDF, con el siguiente código: Sub ExportPDF() Dim sResultadoTipoICM As String Dim sNombreProducto As String sResultadoTipoICM = Hoja3.[O5].Value If MsgBox("Antes de imprimir en PDF debe guardar el archivo en formato de Excel." & vbNewLine & _ "" & vbNewLine & _ "Tenga en cuenta que la impresión en PDF es el último paso en el uso del ICM.", _ vbYesNo, "¿ Ya guardó el ICM en formato de Excel?") = vbYes Then If sResultadoTipoICM = "proTarjetas" Or sResultadoTipoICM = "proSeguimiento" Then Sheets(Array("Informe Cualitativo")).Select Else Sheets(Array("Informe Cualitativo", "Planteamiento")).Select End If ' NOMBRAR ARCHIVO Y SELECCIONAR CARPETA Do fName = Application.GetSaveAsFilename(InitialFileName:="Digite el nombre del ICM", Title:="Por favor ingrese nombre de archivo y seleccione carpeta") Loop Until fName <> False ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fName, _ Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:= _ False, OpenAfterPublish:=False End If End Sub Lo que pasa es que me imprime la hoja "Planteamiento" completamente, no solo el área de impresión y eso no me sirve, por lo que cambié a que solamente me tome los rangos de impresión, para lo cual tengo la siguiente macro: Sub ExportPDF() Dim sResultadoTipoICM As String Dim r1, r2, r3, r4, rng, rng2 As Range Set r1 = Hoja1.Range("AreaDeImpresionCualitativo1") Set r2 = Hoja1.Range("AreaDeImpresionCualitativo2") Set r3 = Hoja1.Range("area_impresion_hoja1_3") Set r4 = Hoja8.Range("print_area_planteamiento") Set rng = Union(r1, r2, r3, r4) Set rng2 = Union(r1, r2, r3) sResultadoTipoICM = Hoja3.[O5].Value If MsgBox("Antes de imprimir en PDF debe guardar el archivo en formato de Excel." & vbNewLine & _ "" & vbNewLine & _ "Tenga en cuenta que la impresión en PDF es el último paso en el uso del ICM.", _ vbYesNo, "¿ Ya guardó el ICM en formato de Excel?") = vbYes Then If sResultadoTipoICM = "proSeguimiento" Then rng2.Select Else rng.Select End If ' NOMBRAR ARCHIVO Y SELECCIONAR CARPETA Do fName = Application.GetSaveAsFilename(InitialFileName:="Digite el nombre del ICM", Title:="Por favor ingrese nombre de archivo y seleccione carpeta") Loop Until fName <> False Selection.ExportAsFixedFormat Type:=xlTypePDF, fileName:=fName, _ Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:= _ False, OpenAfterPublish:=False End If End Sub Sin embargo no me funciona, ya que según entiendo, la Union, no me permite unir más de 3 rangos, por lo que cuando la respuesta es rng, me deja el r4 por fuera. Las consultas son: 1. ¿Cómo podré hacer para que todos los rangos sean tomados en cuenta? 2. ¿Cómo podré prescindir del .select. para optimizar el código? Les agradezco mucho su tiempo, conocimiento y colaboración que me puedan brindar. Buen día y quedo atento.

Buenos días, Adjunto un pequeño ejemplo como referencia (generalmente la data es más extensa), en el que se hace uso de BUSCARV. En la Hoja1 al introducir una cédula de este modo V-1234567 me arroja un resultado; la idea es que el usuario introduzca solamente la parte numérica "1234567" y que de forma predictiva reconozca la V de venezolano, o la E de extranjero o la P de pasaporte. Libro1.xlsx

Saludos a todos. Con la siguiente cuestión, haber si alguien puede ayudarme. Quisiera saber si hay alguna forma de llamar macros nativas de Excel para incorporarlas a mis propias macros, Por ejemplo trabajo con muchas celdas los cuales tienen nombres propios, y la macro lo que me hace es ordenarlos de forma alfabética pero lo que necesito después es ponerlos en nombre propio, lo que hago es una vez que están ordenas utilizo una columna auxiliar y ahí pongo la formula nombrepropio y arrastro. Una vez que ya quedo copio en valores y pego en el rango original. Esto me lleva mucho tiempo y es muy estresante ya que manejo muchos datos por lo que lo que busco es que después de aplicarle mi macro que ordena automáticamente llamar la función nativa en Excel y aplicarle la función de nombre propio al rango. Busque en internet y efectivamente encontré una macro para poner nombrespropios pero aquí me surgió la duda de que si puedo llamar la función nativa que ya trae el Excel. De antemano muchas gracias.

Hola de nuevo a todos: Tengo el Excel adjunto "INSERTAR FICHAJES FICTICIOS" y he hecho una macro para que inserte una fila con un fichaje ficticio según que en la celda correspondiente de la columna E aparezca el literal “SALIDA SIN ENTRADA” o “ENTRADA SIN SALIDA” y reemplace en la columna C el literal “Entrada” por el de “Salida” o viceversa, según corresponda. Es necesario para que no figuren “picaduras” impares y posteriormente se realice correctamente la suma de horas. En la macro he incluido un bucle For…Next en el que le indico que se ejecute desde la fila 4 (x=4) hasta la última fila con datos (variable uf). Se ejecuta perfectamente pero sólo hasta la última fila con datos que figura al iniciar el bucle (en este caso, la fila 910), pero como se van insertando filas cada vez que encuentra uno de los literales anteriores mencionado, debería seguir hasta el final, pero no lo consigo. Le he puesto en los condicionales if que están dentro del bucle For…Next un contador (uf=uf+1) para que incremente el valor de la variable uf cada vez que se inserte una fila nueva, y si al ejecutar la macro paso a paso con F8 ponemos el ratón sobre la variable uf al inicio del bucle For…Next SÍ que figura la variable incrementada, pero sigue sin avanzar la ejecución del bucle más allá del primer valor que tenía uf al principio (910). He probado también incluir en el bucle For…Next un Do While ActiveCell.Value = Empty pero tampoco funciona. ¿Me podríais ayudar a cambiar las veces que se ejecuta el bucle For…Next una vez que se está ejecutando? Muchas gracias a todos INSERTAR FICHAJES FICTICIOS.xlsm

Saludos a todos. Les explico lo que necesito, tengo un listbox el cual carga las hojas del libro en turno, lo que necesito es que a partir del textbox se vaya buscando de acuerdo al nombre de las hojas que aparecen en el listbox. Ya que trabajo con muchísimas hojas. De antemano muchas gracias. Anexo ejemplo buscar en listbox.xlsm

Hola Muy buenas. Estoy intentando hacer una macro que envia el propio libro adjunto por email. La idea es que en el proceso de envio se cambie el nombre del libro segun un dato de una celda del propio libro. No me funciona y estoy perdido, he estado mirando por distintos foros y creo que el código esta bien escrito, Agradezco vuestra ayuda. Muchas gracias PLANTILLA ENVIAR EMAIL LIBRO ADJUNTO.xlsm

Hola... ¿Cómo puedo convertir números a letras con el resultado en MAYÚSCULAS? Dejo un ejemplo anexo. He probado varias fórmulas de internet y no me funcionan, o tal vez no las aplico bien. Libro2.xlsx

Hola a todos, si alguien va a Internet y pone "Excel juego de memoria" el primero que se ve, es un cuadro de 6x6 de números. (lo digo por si alguien que me pueda ayudar vea el original) Bien he copiado el programa el código exactamente igual, pero no me funciona, solo he hacho distinto el tema de generar números aleatorios, (no se ve completo en el original) me da fallos varios, por todos lados, envío el mío por si me pueden, modificar lo que este mal o decírmelo, no se mucho de vba, estoy aprendiendo, gracias Joc de memòria.xlsm

Hola!! Estoy empezando con esto de las macros y me he atascado en un punto, a ver si me podríais ayudar. Os cuento: La macro cubre una serie de datos de una hoja "Datos" a otra hoja "Output" con la siguiente lógica: 1º Busca en la hoja "Datos", en diferentes columnas, valores concretos y los cuenta. Por ejemplo, el valor de celda "SI" 2º Compara una columna que identifica al usuario con un código concreto de la hoja "Output" y la hoja "Datos". Si este dato coincide, le asigna el valor correspondiente en la hoja "Output" el conteo de datos especificado en el punto anterior. Esto lo hago para que a cada usuario se le asigne el conteo correcto. Hasta aquí bien. El problema es que hay uno de los datos que tengo que cubrir en la hoja "Output" que debe sumar y asignar al usuario concreto todas las veces que detecta en 2 columnas diferentes no correlativas un valor concreto ("SI"), y aquí me he atascado. Seguro que es una tontería pero por más que pruebo no consigo sacar este dato. Adjunto un ejemplo. Mil gracias anticipadas Macro ejemplo.xlsm

Buenas tardes: Cada vez que voy guardando datos (por ejemplo de proveedores) necesito generarle un codigo con su correspondiente Dígito Vericador. Si no escribo la letra "G" en la columna A, la tabla no crece. La función que genera el dígito verificador (módulo 11) funciona muy bien. Todo debe generarse dentro de una TABLA. Me aparecen los errores porque tengo entendido que debo crear otro módulo de incremento del número base ( ?? ) Por mi casi nulo conocimiento de VBA es que recurro a vuestra valiosa ayuda. Rubén Codigos.xlsm

Buenas Noches complis, Estoy teniendo problemas con una macro con la cual ya me ayudaron RESUMIENDO: genero un codigo de barras code128 sin fuente, pero me lo genera con barritas verticales que se pueden mover. Hasta aqui todo perfecto El problema es que si muevo el ancho de las columnas se modifican las barritas y el codigo no funciona, mi idea era que el resultado de la macro me lo sacara en una imagen a la que no le influyera que mueva el ancho de las columnas. Agrego plantilla. Por cierto a quien le interese este code 128 sin fuente está muy bien Saludos y gracias code128.xlsm

Buenos días comunidad, Estoy trabajando en un formulario que va guardando las cotizaciones y creo todo esta bien pero tengo un textbox (Folio) no puedo hacerlo consecutivo ya que lo quiero hacer es lo siguiente: Al abrir el formulario aparezca siguiente que anteriormente guarde Ejemplo: abro el formulario aparece el folio 3221 registro mi cotización y selecciono el botón guardar la próxima vez que abra el formulario ya me aparezca el 3222 Me podrían orientar con este tema (anexo ejemplo) Saludos desde CDMX Prueba de formulario.xlsm

Buenos días Soy nuevo en al foro, y tengo un pequeño problema, estoy intentando comparar 2 columnas de dos hojas y cuando coincidan los valores (código de producto) me haga una suma acumulada, he probado con todas las fórmulas que se y no consigo solucionarlo, a ver si me podeis hechar un cable El asunto es comparar la columna a de las dos hojas y si coincide el codigo, sumar la celda correspondiente de la columna cantidad de la hoja albaran a la misma columna de la hoja stock y que acumule la suma Gracias de antemano EXCEL ALMACEN.xlsx

manejo actualmente un formulario que pretende hacer que se reproduzca la vos de excel con el metodo Speech pero la reproduccion de la voz debe mencionar el valor de un combobox y eso me da error,es posible hacerlo? aqui el codigo para su evaluacion Sub voz() Dim var As String var = Userform1.ComboBox1.Value Application.Speech.Speak "var" End Sub

Buenos días a los integrantes de este foro, en esta ocasión recurro a uds, para que brinde su apoyo en como mejorar la siguiente macro, lo que requiero es que me permita seleccionar la ruta donde se encuentra el archivo a utilizar, ya que esta macro ejecuta todos los archivos que se encuentran en dicha carpeta (previamente haber copiado todos los archivos a una carpeta determinada) y lo otro sería que si solo mostrara los archivos que empiecen con el nombre CONSOLIDADO xxxxxxxx.xlsm o CONSOLIDADO xxxxxxxx.xlsx, para lo cual adjunto archivos como ejemplos. archivo principal: MUESTRA FORMULARIO.xlsm Private Sub CommandButton2_Click() Dim ruta As String Dim fichero As String Dim wbOrigen As Workbook Dim uFO, uFD, uFF As Long Application.ScreenUpdating = False Application.DisplayAlerts = False Application.AskToUpdateLinks = False Set wbOrigen = ThisWorkbook ruta = ThisWorkbook.Path & "\" For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) = True Then fichero = ruta & ListBox1.List(i) Workbooks.Open (fichero) Sheets("PLANILLA").Activate uFO = Range("A" & Rows.Count).End(xlUp).Row uFD = wbOrigen.Sheets("PLANILLA").Range("C" & Rows.Count).End(xlUp).Row + 1 Range("B8:BE" & uFO).Copy wbOrigen.Sheets("PLANILLA").Range("B" & uFD) ActiveWorkbook.Close (False) End If Next i Range("B8:BE8").Borders.LineStyle = xlContinuous Application.ScreenUpdating = True Application.DisplayAlerts = True Application.AskToUpdateLinks = True MsgBox "PROCESO TERMINADO" End Sub Dede ya agradezco su apoyo y coloración. MUESTRA FORMULARIO.xlsm CONSOLIDADO CORDILLERA 24-7-2019 11-20-10 HRS.xlsx CONSOLIDADO ELITE FAITH 24-7-2019 16-45-53 HRS.xlsx

Hola a todos, si alguien me pudiera ayudar a modificar una macro que encontré por ahí, la cual consolida varias columnas en una sola, para ello primero se tiene que seleccionar el rango a consolidar y luego ejecutamos la macro y la consolidación se realiza justo en la columna siguiente del rango seleccionado y lo que deseo es que la consolidación se realice pero no en la columna siguiente si no en la tercera columna siguiente del rango seleccionado. Muchas gracias Sub rango_columnas() 'macro une varias columnas en una sola columna 'para ello primero seleccionamos el rango a unir 'y luego ejecutamos la macro Dim rango As Variant Dim i As Long, j As Long, k As Long Dim col As Long rango = Selection.Value 'Esta es la parte que permite ubicar la salida col = Selection.Column k = Selection.Row 'Esto recorre el rango y realiza la trasposición For i = 1 To UBound(rango, 1) For j = 1 To UBound(rango, 2) Cells(k, col + UBound(rango, 2)).Value = rango(i, j) k = k + 1 Next Next End Sub

Hola buenas. Necesitaria una macro para copiar pegra de una hoja a otra con un criterio. Copiar pegar L:R si en R >0 Salud2.

Buenas noches, me podéis ayudar con esta macro? es para generar codigo de barras, la cuestion que solo me funciona de la siguiente manera: Code128 20, 20, 20, 1.1, ThisWorkbook.ActiveSheet, "11Q94PTT" Pero me gustaría que se cambiara con un rango de una celda. ¿ seria posible algo asi? pero me da error Code128 20, 20, 20, 1.1, ThisWorkbook.ActiveSheet.Range("=F1C1") y mil gracias code128.rar