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

  • First visit?
  • 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
    • Presentaciones
    • Cafeteria Ayuda Excel
    • Temas resueltos
    • Temas Abandonados
  • ¿Eres nuevo? Lee las Normas y Reglas del Foro
  • 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. Muy buenas a tod@s. Necesitaba una macro para borrar el contenido de todas las celdas desprotegidas de una hoja. Mirando por el foro, he visto una que hace algo parecido, pero si la tengo desprotegida. En cuanto la protejo, no me lo borra. No sé si habrá algo mal ya que no entiendo nada de programación. Gracias de antemano. pedidos ayuda excel.zip
  2. Hola! Acabo de descubrir este foro y me encanta. Espero que podáis solucionarme esta duda que tengo. Estoy empezando a indagar en el mundo de los macros y se me ha planteado un reto complicado (al menos para mi corta experiencia). Tengo una macro ya hecha y me gustaría agregarle una función. Quiero que esta macro automáticamente busque en la columna H todas las celdas que contengan la palabra Producto, las seleccione todas y elimine la fila entera donde se encuentran esas celdas. Esto sin macro lo hago con la función Buscar, pongo Producto y le doy a Buscar todas, luego pulso ctrl + A para seleccionarlas todas y luego Eliminar filas de la hoja. Pero al grabar una macro paso a paso no reconoce esa función. Por eso me gustaría saber como programarla. Muchas gracias de antemano por vuestra ayuda. Un saludo!!!
  3. Buen día. Quiero hacer una macro que cumpla con ciertos requerimientos: ejemplo, si el valor de B2 esta entre 40% a 49% y c2 esta entre 0 a 1; entonces D2= rojo En el archivo hay dos tablas una de colores donde están los criterios que se deben cumplir para establecer el valor de la celda D (TABLA DE COLORES) y la otra es donde agregan los datos. La macro se debe ejecutar en diferentes hojas según se cumpla con los criterios establecidos y siempre se utilizaran las columnas B,C y D. En D siempre se coloca la respuesta. Agradezco de antemano todas sus ayudas y opiniones. Gracias. PORCENTAJE.xlsx
  4. Buenas, Tengo un formulario mediante el cual se inserta una fecha en otra hoja, el caso es que cuando estoy en esa hoja y quiero filtrar datos mediante la columna de fecha no me aparece como si fuera una fecha, me toca hacer una cosa extraña, seleccionar todo la columna y desde la ficha Datos / texto en columnas..... le doy simplemente a finalizar y me aparece todo correctamente. Se que el problema esta en el VBA cuando pega la fecha en la celda correspondiente que no lo hace en el formato que debería o algo así. ¿alguien mas le ha sucedido esto o sabe porque pasa esto ? Saludos
  5. Hola amigos ocupo un ciclo que mes a mes me sume un monto digamos 150 y lo almacene en una variable o en una celda yo esto es para el pago de un préstamo ejemplo a martin tiene que pagar 150 el 24 de cada mes ocupo que se valla sumando automáticamente el 24 de cada mes gracias
  6. buenas a todos feliz dias bueno tengo este problemas, tengo este código pero me lanza un problemas en la hora de capturar me copia lo que esta seguido de esa celdad en vez de dejaro en blanco aqui el archivo donde estoy trabajando con esa captura https://www.mediafire.com/?y57z1012b0hm0dg lo he subido alli ya que no me deja subir un archivo mi problemas es cuando le doy capturar me copia la celdas q esta al lado cuando la tienes que dejar en blanco tal caso que no encuentre ese código
  7. Hola amigos, quisiera realizar una consulta no se si dificil o no pero ojala me puedan ayudar: Estoy realizando una plantilla para hacer cotizaciones, yo grabe una macro que me permite crear un documento con la informacion, formato y valores que tiene e ingrese en la plantilla, pero solo me funciona para la primera cotizacion cada vez, agrego el codigo. Sub Macro1() ' ' Macro1 Macro ' Dim name, name2, fname As String name = "Cotización " & ActiveSheet.Range("R9").Value name2 = ActiveSheet.Range("D18").Value fname = name & " {" & name2 & "}.xlsx" ' Cells.Select Selection.Copy Workbooks.Add Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False ActiveSheet.Paste ActiveWindow.DisplayGridlines = False Range("D18:H20").Select Application.CutCopyMode = False Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("J18:J19").Select Application.CutCopyMode = False Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("I23:J24").Select Application.CutCopyMode = False Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False ActiveWindow.SmallScroll Down:=25 Range("J27:J50").Select Range("J50").Activate Application.CutCopyMode = False Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows("rtttt1").Activate ActiveWindow.SmallScroll Down:=28 Range("D48:H49").Select Application.CutCopyMode = False Selection.Copy Windows("Libro1").Activate Range("D48:H49").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False ActiveWindow.SmallScroll Down:=-37 ActiveSheet.Shapes.Range(Array("Group 2")).Select ActiveSheet.Shapes.Range(Array("Group 2", "Group 5")).Select ActiveSheet.Shapes.Range(Array("Group 2", "Group 5", "Picture 8")).Select Selection.Delete Cells.Select Application.CutCopyMode = False With Selection.Validation .Delete .Add Type:=xlValidateTextLength, AlertStyle:=xlValidAlertStop, _ Operator:=xlEqual, Formula1:="561546" .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End With Range("J15").Select ChDir "C:\Users\Pancho\Documents\Cotizaciones" ActiveWorkbook.SaveAs Filename:= _ fname, FileFormat:= _ xlOpenXMLWorkbook, CreateBackup:=False Windows("rtttt1").Activate ActiveWindow.SmallScroll Down:=-6 Range("C27:I45").Select Range("I45").Activate ActiveWindow.SmallScroll Down:=-12 Range("C27:I45,D24:G24,J18,J15,H47").Select Range("J15").Activate Selection.ClearContents ActiveWindow.SmallScroll Down:=-21 Range("J15").Select End Sub Luego de copiar y guardar la primera vez, trato de hacer lo mismo una segunda vez y me arroja error en la linea Windows("Libro1").Activate mi idea es si se pude crear un contador, o algo para poder hacer varias cotizaciones sin necesidad de salir de excel. Adjunto el archivo por si es necesario: Example.xlsx
  8. Buenas noches sres de ayudaexcel, gusto en saludarlos Estoy creando una base de datos la cual se irá completando mensualmente a medida que se obtiene información contenida de otros libros. El detalle es que he ido creando el código pero estoy atascado en una sentencia (aclaro, no sé mucho de programación en VBA y estoy aprendiendo poco a poco) Tengo una línea con este código Range("E9").End(xlDown).Select la cual me funciona para lo que deseo, y es que me seleccione la ultima fila con datos El detalle que presento, es que después de esa instrucción necesito seleccionar 5 celdas de las columnas que se encuentran a la derecha de esa selección, es decir: Para el mes de Enero: Desde la celda E9, con esta instrucción Range("E9").End(xlDown).Select bajo a la celda E10 Estando en la E10, necesito seleccionar, para este caso, el rango E10:I10 para luego copiarlo y enviarlo a otra hoja....... Para el mes de Febrero Desde la celda E9, con la instrucción inicial Range("E9").End(xlDown).Select bajaría esta vez a la celda E11 (obviamente, cuando tenga el dato cargado) Estando en la E11, necesito seleccionar, el rango E11:I11 para luego copiarlo y enviarlo a otra hoja....... Y así sucesivamente, mes a mes, cada vez que se carga un dato. Pero no logro fijar la sentencia que me seleccione y copie las celdas a medida que se incluyen datos. Si me pueden dar una mano con la instrucción que me esté faltando, se los agradecería enormemente. Saludos PD. no anexe un documento, pero si hace falta lo preparo y lo subo
  9. Hola!!! Escribo si me pueden ayudar con este filtro, lo que pasa que solo me filtra si pongo texto, pero como voy a usar numeros, no me filtra nada. este es el codigo que uso: Private Sub TextBox5_Change() uf = Range("G" & Cells.Rows.Count).End(xlUp).Row ActiveSheet.Range("A10:AP" & uf).AutoFilter Field:=7, Criteria1:="=*" & (TextBox5.Value) & "*" end sub Gracias!!!
  10. Hola!!! Escribo si me pueden ayudar a hacer lo siguiente: tengo un listbox, que se filtra por medio de un textbox. lo que quiero es que al selecionar un item del listbox, me aparesca en un label que tengo en el form anexo archivo de ejemplo Gracias!!! seleccionar.xlsm
  11. Hola a todos nuevamente quiero saber como encontrar un código la cual me permita corregir algunos errores como algunas capturas la cual me aparece asi, como veras en la imagen es un error de la casilla verde que sale , cada vez que capturo me sale eso y tengo que darle convertir en numero para que pueda calcular en un userform la verdad ando frustrada como resolver eso? me convierta el error de texto lo pase a numero toda la celda toda la columna d2 hasta abajo
  12. Buen día estimados usuarios del foro Requiero de su apoyo para la programacion de el archivo adjunto ya que actualmente lo manejo a base de formulas y me gustaría poder trabajarlo por medio de programacion con vba y botones, el archivo es un comprobante de nomina o planilla de empleados, contiene las siguientes hojas: configuraciones: contiene tablas para listas de validaciones ingresos: contiene toda la información de los empleados comprobante de pago: donde deben bajar todos los registros con la información de cada empleado registro consecutivo: donde recae toda la información, el cual me falto agregar unas filas mas que me gustaría se registrara como, salario bruto, los prestamos. cualquier consulta estaré al pendiente en el caso que puedan colaborare. Estoy abierta a trabajar conjuntamente con ustedes si desean ya que me gusta aprender. saludos. Comprobante_de_Egreso.zip
  13. Hola amigos, en esta ocacion busco ayuda con un codigo que consigui para dar formato Rut (xx.xxx.xxx-x), todo bien con el codigo pero a veces cuando estoy realizando otras cosas dentro del libro me arroja un error, a qui les doy el codigo: Private Sub Worksheet_Change(ByVal Target As Range) Dim largo As Byte largo = Len(Target) '=9 cantidad de caracteres de la celda '="10" se refiere a la segunda columna B, puedes modificar segun el numero de columna que necesites '>3 se refiere a en que fila va a empezar a checar los datos , puedes modificar segun la fila donde inician tus datos If largo = 8 And Target.Column = "10" And Target.Row = 18 Then For X = 1 To 8 If X = 1 Or X = 4 Then CADENA = CADENA + Mid$(Target, X, 1) + "." ElseIf X = 8 Then CADENA = CADENA + "-" + Mid$(Target, X, 1) Else CADENA = CADENA + Mid$(Target, X, 1) End If Next X Target.Value = CADENA End If If largo = 9 And Target.Column = "10" And Target.Row = 18 Then For X = 1 To 9 If X = 2 Or X = 5 Then CADENA = CADENA + Mid$(Target, X, 1) + "." ElseIf X = 9 Then CADENA = CADENA + "-" + Mid$(Target, X, 1) Else CADENA = CADENA + Mid$(Target, X, 1) End If Next X Target.Value = CADENA End If End Sub el problema me la da en la linea largo = Len(Target) Me dice: Se ha producido el error '13' en tiempo de ejecucion. No coinciden los tipo. ojala me puedan ayudar, Gracias.
  14. Hola a todos. a ver necesito una ayuda urgente para cuestiones laborales. Tengo dos tablas en dos pestañas diferentes. Una correspondiente al mes de Septiembre y otra al mes de octubre. A través de un macro logré copiar el valor de las dos pestañas en una sola. Ahora bien los datos principales que aparecen son los id de los trabajadores, los nombres, y los datos eco. de cada uno de ellos en los meses de Septiembre y de octubre. Le he aplicado la edición para ponerle filtros de tal manera que pueda hacer una tabla comparativa entre un mes y otro mes de cada trabajador. Bien ahora quisiera saber si es posible hacer un macro que me señale los cambios que puedan tener por ejemplo y hacer que me señale que hay una diferencia de los dos. He intentando hacerla yo pero no me sale y por formato condicional sé que se podría aplicar alguna fórmula pero no encuentro solución. Si saben de una macro o quizás alguna fórmula de formato condiciona. Adjunto una muestra del fichero Saludos. AYUDA PLEASEEEE ejmeplo de datos.xlsx
  15. Buenos días....; después de las presentaciones quisiera plantear mi primera duda. He diseñado mi primer formulario para que vuelque datos en una hoja que se va a convertir en una base de datos extensa. El funcionamiento del formulario es correcto y todos mis datos se ingresan de acuerdo a las indicaciones. Mi problema radica en que, al tratarse de una base de datos que será muy grande, también he diseñado un buscador mediante controles ActiveX que he insertado en la misma hoja donde se ingresan los datos. Creo que en vba les he dado las instrucciones correctas... creo. Pero a la hora de introducir una búsqueda en cualquiera de los cuatro Textbox no obtengo ningún tipo de resolución, es decir, la hoja excel no realiza ningún tipo de cálculo o búsqueda. La búsqueda que pretendo se basa en introducir una letra o palabra y que solo aparezcan los registros de la columna concreta a la que el textbox hace referencia, no mostrando ningún otro de esa columna y, además, si añado otra palabra o letra al restro de textbox, esa búsqueda se haga más profunda en las otras tres columnas, hasta mostrar únicamente las palabras o letras que pido en las textbox, dejando ver solo los resultados que cumplen esa petición. No se si me he explicado bien, pero no se me ocurre otra forma más clara de exponerlo. Quisiera adjuntar el proyecto pero no puedo reducir a menos de 5 MB. ¿De qué manera podría subirlo para falicitar la ayuda y/o consejo? Ya que por ahora no puedo subir el archivo, a continuación pego el código que he utilizado para el buscador en VBA: C6 se corresponde con el txetbox activeX y hace referencia a búsqueda solo en la columna B. C7 se corresponde con el txetbox activeX y hace referencia a búsqueda solo en la columna G. C8 se corresponde con el txetbox activeX y hace referencia a búsqueda solo en la columna E. C8 se corresponde con el txetbox activeX y hace referencia a búsqueda solo en la columna F. Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) Application.ScreenUpdating = False Application.DisplayAlerts = False Sheets("Inventario").Range("C6").Value = "*" & TextBox1.Text & IIf(TextBox1.Text = "", "", "*") Call searching 'Application.DisplayAlerts = True 'Application.ScreenUpdating = True End Sub Private Sub searching() Application.ScreenUpdating = False Application.DisplayAlerts = False If Sheets("Inventario").FilterMode = True Then Sheets("Inventario").ShowAllData uf = Sheets("Inventario").Range("B" & Cells.Rows.Count).End(xlUp).Row Sheets("Inventario").Range("C11:C" & uf).AdvancedFilter Action:=xlFilterInPlace, _ CriteriaRange:=Range("B6:C6"), Unique:=False 'Application.DisplayAlerts = True 'Application.ScreenUpdating = True End Sub Private Sub TextBox2_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) Application.ScreenUpdating = False Application.DisplayAlerts = False Sheets("Inventario").Range("C7").Value = "*" & TextBox2.Text & IIf(TextBox2.Text = "", "", "*") Call Searching1 'Application.DisplayAlerts = True 'Application.ScreenUpdating = True End Sub Private Sub Searching1() Application.ScreenUpdating = False Application.DisplayAlerts = False If Sheets("Inventario").FilterMod = True Then Sheets("Inventario").ShowAllData uf = Sheets("Inventario").Range("B" & Cells.Rows.Count).End(xlUp).Row Sheets("Inventario").Range("G11:G" & uf).AdvancedFilter Action:=xlFilterInPlace, _ CriteriaRange:=Range("B7:C7"), Unique:=False 'Application.DisplayAlerts = True 'Application.ScreenUpdating = True End Sub Private Sub TextBox3_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) Application.ScreenUpdating = False Application.DisplayAlerts = False Sheets("Inventario").Range("C8").Value = "*" & TextBox3.Text & IIf(TextBox3.Text = "", "", "*") Call Searching2 'Application.DisplayAlerts = True 'Application.ScreenUpdating = True End Sub Private Sub Searching2() Application.ScreenUpdating = False Application.DisplayAlerts = False If Sheets("Inventario").FilterMode = True Then Sheets("Inventario").ShowAllData uf = Sheets("Inventario").Range("B" & Cells.Rows.Count).End(xlUp).Row Sheets("Inventario").Range("E11:E" & uf).AdvancedFilter Action:=xlFilterInPlace, _ CriteriaRange:=Range("B8:C8"), Unique:=False 'Application.DisplayAlerts = True 'Application.ScreenUpdating = True End Sub Private Sub TextBox4_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) Application.ScreenUpdating = False Application.DisplayAlerts = False Sheets("Inventario").Range("C9").Value = "*" & TextBox4.Text & IIf(TextBox4.Text = "", "", "*") Call Searching3 'Application.DisplayAlerts = True 'Application.ScreenUpdating = True End Sub Private Sub Searching3() Application.ScreenUpdating = False Application.DisplayAlerts = False If Sheets("Inventario").FilterMode = True Then Sheets("Inventario").ShowAllData uf = Sheets("Inventario").Range("B" & Cells.Rows.Count).End(xlUp).Row Sheets("Inventario").Range("F11:F" & uf).AdvancedFilter Action:=xlFilterInPlace, _ CriteriaRange:=Range("B9:C9"), Unique:=False 'Application.DisplayAlerts = True 'Application.ScreenUpdating = True End Sub
  16. Buenas, me gustaría saber como poner la fecha actual al abrir una hoja (hoja pedido) y que por defecto se ponga la fecha actual en la celda E10, he buscado por el foro pero todo lo que encuentro hace referencia a formularios y Textbox. Gracias suma.xlsm
  17. Version 1.0.0

    25 downloads

    Hola que tal. Siempre vengo a este foro a buscar ayuda y siempre se me ayuda, a veces hasta recibo más de la que me esperaba, por tanto, creo que ha llegado el momento de que yo aporte algo en agradecimiento. A quien no le ha pasado que a escrito datos o manipulado algo en un archivo, ha salvado el mismo, y en la próxima vez que lo ha abierto, ¡¡¡zas!!! archivo corrupto, ha empezar de nuevo. Bueno, quizás soy un poco exagerado, pero puede pasar si no se usan métodos para que no esto pase. Se trata de una macro que cada vez que se abre el libro guarda una copia del mismo en una carpeta aparte. Usa el método SaveCopyAs. Lo bueno es que se adapta a cualquier proyecto vba que tengamos, solo hay que copiar la hoja en el mismo y poner el código para que arranque en Thisworkbook. O si lo prefieres, copias el recuadro de configuración y le das el valor solo a 3 variables para que el código empiece a trabajar. Sin más, espero que a alguien le resulte práctico, y si hay alguna duda le responderé muy gustosamente. Saludos
  18. Buenas, Estoy aprendiendo ha hacer operaciones en VBA, y he empezado con una suma muy sencilla, pero no lo suma en tiempo real, no me aparece nada pero cuando intento escribir en el textbox del total , entonces aparece el resultado.................¿que hago mal?, he probado con otros codigos que he visto por el foro pero no me funciona. Private Sub importe_1_Change() If importe_1 = "" Then End If End Sub Private Sub importe_2_Change() If importe_2 = "" Then End If End Sub Private Sub importe_total_Change() If importe_total = "" Then importe_total = 0 Else importe_total = Format(CDbl(importe_1) + CDbl(importe_2), "#,##0.00 ""€""") End If End Sub Gracias de antemano, Saludos suma.xlsm
  19. Buenas noche mis amigos de AyudaExcel nuevamente tomando un poquito de su valioso tiempo hace algun tiempo me colaboraron en un proyecto para cargar datos por un form (Fechas) mi problema esque cuando quiero filtrar de la hoja de excel por fechas tengo problemas, quiciera que me ayuden para darle formato al Textbox "Fechas" y a todos los casilleros de "Fecha análisis" para poner un formato yyyy/mm/dd, y que con este formato se me cargue desde el form en la Hoja BBDD en las columnas "Fecha ingreso" y "Tiempo de Análisis" y no me importaría que se guarden como texto ya que luego no pienso hacer cálculos con las fechas. Muchas gracias por su tiempo FormatoFecha.xlsm
  20. Estimados: Tengo una base de datos de 100 líneas, en la que cada línea debo llevarla a un formulario ya estipulado y al final tener 100 documentos. Podrían ayudarme cómo poder hacer esto. De antemano gracias.
  21. Buenas tardes. Vuelvo a pedir ayuda para resolver un problema que me ha surgido. Hace 3 semanas, hice una consulta en el foro y Gerson me ayudo con un Formulario, el cual inserta un valor de un Combobox en el rango "J23:OO173" de la hoja "Configuracion". Esta hoja, pretendo que funcione oculta para evitar que otro compañero pueda Borrar formulas accidentalmente. El Formulario que ejecuto, pretendo usarlo en las hojas: "Enero,Febrero, Marzo........Anual", mediante un boton, el problema que me he encontrado, es que al ejecutarlo el programa se queda en la hoja "CONFIGURACION" y la intención, es que si ejecuto el formulario desde la hoja Febrero, por ejemplo, despues de insertar el dato en la celda correspondiente de la matriz de la hoja "CONFIGURACION", permanezca o vuelva a la hoja "FEBRERO" (hoja que lanzó el formulario). La macro del formulario es la siguiente Private Sub CommandButton4_Click() Unload Me End Sub Private Sub l_Calendario_Fin_Click() Call Módulo4.LANZARCALENDARIO_FINAL End Sub Private Sub L_Calendario_Ini_Click() Call Módulo4.LANZARCALENDARIO_INICIO End Sub Private Sub CommandButton1_Click() Application.ScreenUpdating = False Worksheets("CONFIGURACION").Select Set fila = Range("D:D").Find(Me.Nombre, , xlValues, xlWhole) If Me.Nombre <> "" And Me.Absentismo <> "" _ And Me.F_Inicio <> "" And Me.F_Fin <> "" Then Range(Cells(fila.Row, Me.F_Inicio.ListIndex + fila.Column + 6), _ Cells(fila.Row, Me.F_Fin.ListIndex + fila.Column + 6)) = Absentismo.Value Unload Me End If Set fila = Nothing End Sub Private Sub CommandButton2_Click() Unload Me End Sub Private Sub UserForm_Initialize() Application.ScreenUpdating = False Worksheets("CONFIGURACION").Select Me.Nombre.List = Range("D23", Range("D24").End(xlDown)).Value For Each cel In Range("J23:OO23") Me.F_Inicio.AddItem cel Me.F_Fin.AddItem cel Next With Absentismo .AddItem " " .AddItem "PC" .AddItem "PD" .AddItem "RJ" .AddItem "V" .AddItem "15.N" .AddItem "48.A" .AddItem "IT" .AddItem "P10" .AddItem "Curso" .AddItem "EXCED" .AddItem "SANC" End With End Sub Un saludo y gracias por leer el mensaje
  22. Buen día, Amigos colaboradores y expertos en excel, una vez mas necesito de su grandiosa ayuda con un pequeño inconveniente... Resulta que tengo un formulario que según el combobox y lo ingresado en un texbox me trae según el filtro de búsqueda, los registros de una hoja a un Listbox. (Hasta aquí voy bien)... Si los registros son varios con el evento Clic del Listbox, la celda activa es la correcta. (Aquí todo bien)... Pero si el resultado de la búsqueda da un solo resultado, el evento Clic del listbox con referente a la celda activa no me funciona, siempre direcciona a la segunda fila. Les agradezco inmensamente la colaboración. Muchas, pero muchisimas gracias, Adjunto un archivo prueba. PRUEBA.xlsm
  23. Amigos tengo una tabla con dos columnas ID y Valor, los IDs se repiten y cada uno tienen un valor, necesito que en una celda tener el ID repetido y en otra sus correspondientes valores separados por "," o "|". En el siguiente gráfico esta mejor explicado: Agradeceré me puedan ayudar con un macro, por que con comandos normales de excel se ha sido imposible hacerlo.
  24. Version 1.0.0

    45 downloads

    Buenas amigos expertos, sera de mucha ayuda su colaboración ante mi problema. El problema que tengo es con Formulario de Ventas, para lo cual yo tengo un ListBox-Mercaderia que me extrae toda las mercaderias que tengo en STOCK y jalar de ahi a los Textbox y atrabes de un BOTON a Agregar al Listbox2.(en el problema esta en esta, que al momento de dar clic en el BOTON AGREGAR, no me visualiza en el ListBox los Datos agregados). esdecir quiero que me funcion similar al Formulario Compras, Bueno no se en que este fallando y Gracias por anticipado. Para mejor entendimiento, dejare el archivo.
  25. Buen dia, tengo dos archivos. En uno tengo esta macro que me guarda el libro que tengo activo automáticamente en mi escritorio. Sub guardar() ActiveWorkbook.SaveAs "C:\Users\user\Desktop\base.xlsm", FileFormat:=52 End Sub Quisiera saber como guardar el segundo archivo ingresando el nombre del archivo en una celda desde el primer archivo. Espero me puedan ayudar. Saludos La macro la quisiera ejecutar desde el segundo archivo.
×
×
  • Create New...

Important Information

Privacy Policy