Jump to content

howling

Members
  • Content Count

    15
  • Joined

  • Last visited

About howling

  • Rank
    Member

Converted

  • Campos Array
  1. gracias por la pronta respuesta ya arregle el problema pero es bastante raro ya que la macro, la utilizaba en un archivo de prueba y ahí me daba error y cuando lo use en el archivo final me resulto sin problemas gracias antoni por tu tiempo y espero que nos sigas guiando con las macros gracia
  2. gracias antoni por tu pronta respuesta y tu tiempo ya lo intente con tu repuesta y funciono hasta que me aparece el error dejo la macro completa para que me ayuden por favor If Not Application.Intersect(Target, Range("S14:AW14,S18:AW20,S25:AW32")) Is Nothing Then On Error GoTo Salida Select Case Target Case "N": Target.Font.Color = vbBlack: Target.Interior.Color = vbBlue Case "DA": Target.Font.Color = vbRed: Target.Interior.Color = vbYellow Case "LC": Target.Font.Color = vbRed: Target.Interior.Color = vbYellow Case "V": Target.Interior.Color = vbCyan Case "L": Target.Font.Color = vbRed Case "DL": Target.Font.Color = vbRed Case "S": Target.Font.Color = vbRed 'Case "LC": Target.Font.Color = vbRed Case Else: GoTo Salida End Select Exit Sub Salida: Target.Font.ColorIndex = xlAutomatic Target.Interior.ColorIndex = xlNone End If gracias por la ayuda de antemano
  3. buenas noches necesito un poco de orientación con respecto al evento Worksheet_Change la pregunta es la siguiente: ¿como puedo indicar varios rangos de celdas en este evento? esta es la macro que tengo Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("S14:AW14", "S18:AW20")) Is Nothing Then On Error GoTo Salida Select Case Target " aqui esta el codigo que utilizo" Case Else: GoTo Salida End Select Exit Sub End Sub con estos rangos me funciona sin problemas pero al agregarle mas rangos de la misma forma me lleva a un error espero haber sido claro en mi explicación y de ante mano gracias por la ayuda
  4. buenas noches necesito de su ayuda tengo un archivo el cual es una pauta mensual de los turno del personal, la macro que tengo solo me verifica por persona, pero lo que necesito es que lo haga entre 2, por ejemplo si yo tengo a juan en el primer puesto y a lucia en el ultimo que la macro envié solo mañanas entre estos dos trabajadores, obviamente entre estos trabajadores hay mas personas. también tengo problemas en el Worksheet_Change ya que la macro la tengo en un rango completo pero no me deja hacerlo por varios rango diferentes bueno espero haberme explicado bien y gracias por la ayuda Libro.xlsm
  5. gracias era lo que nesecitaba doy por terminado este tema
  6. Necesito de su ayuda ya que tengo un archivo en donde tengo datos los cuales necesito copiar y pegar en otra columna, los datos en cuestión son generados de una aplicación que los scanean y los ponen en una misma columna por ejemplo en la celda A2 me deja el código y en la siguiente A3 la cantidad y así sucesivamente y lo que necesito es que me copie las celdas impares y me las pegue en la columna b, pero en las celda pares por ejemplo si la cantidad esta en la celda A3 me la copie y la deje en la celda B2 Espero haberme explicado lo más claro posible gracias de ante mano prueba.xlsx
  7. buenos dias ya he resuelto el problema gracias por la ayuda saludos
  8. hola leopoldo gracias por tu apoyo en mi consulta y disculpa la tardanza deja que me explique un poco mejor con respecto a lo anterior, no es que al filtrar con el combobox3 me de error si no que todo lo contrario me filtra sin ningun problema pero ademas de filtrar los datos nesecito que sume la columna del listbox en donde estan los totales y que el resultado que en el textbox1 y es ahi en donde me sale el error y me dice que los tipos no coinciden saludo
  9. al seleccionar el combobox3 por ejemplo si yo filtro con el con el que tiene la fecha y en la hoja 1 me filtra perfectamente y ademas me suma los valores de la columna 5 del listbox en el texbox pero si a eso le añado el filtro del del combobox 3 que deberia ser el de seccion ahí es donde ocurre el error y me dice que los tipos no coinciden agradezco de ante mano tu orientacion
  10. buenos dias leopoldo gracias por tu pronta respuestas en si es el mismo archivo que el anterior solamente que le agrege un textbox, pero igual lo subo PRUEBA1.xlsm
  11. gracias digitalboy he resuelto mi problema con las columnas del listbox, gracias por tu tiempo pero me ha surgido otro problema cuando trato de calcular la columna 5 del listbox me da error en donde dice que no coinciden los tipos es posible arreglar esto este es el codigo que estoy usando Private Sub ComboBox3_Change() Dim Final As Long, Fila As Long With Sheets("Hoja1") Final = .Range("A" & Rows.Count).End(xlUp).Row ListBox1.RowSource = "" i = 0 For Fila = 2 To Final If Trim(UCase(.Cells(Fila, "B"))) = Trim(UCase(ComboBox3)) Then ListBox1.AddItem .Cells(Fila, "A") ListBox1.List(Me.ListBox1.ListCount - 1, 1) = .Cells(Fila, "B") ListBox1.List(Me.ListBox1.ListCount - 1, 2) = .Cells(Fila, "C") ListBox1.List(Me.ListBox1.ListCount - 1, 3) = .Cells(Fila, "D") ListBox1.List(Me.ListBox1.ListCount - 1, 4) = Format(.Cells(Fila, "E"), "$ ##0,000") ListBox1.List(Me.ListBox1.ListCount - 1, 5) = Format(.Cells(Fila, "F"), "$ ##0,000") ListBox1.List(Me.ListBox1.ListCount - 1, 6) = Format(.Cells(Fila, "G"), "h:mm") ListBox1.List(Me.ListBox1.ListCount - 1, 7) = Format(.Cells(Fila, "H"), "m/d/yyyy") End If Next End With For IndiceLis = 0 To ListBox1.ListCount - 1 VTotal = VTotal + CDbl(ListBox1.List(IndiceLis, 5)) Next IndiceLis TextBox1 = Format((VTotal), "$ ##0,000") End Sub
  12. buenas tardes genios de la programación vuelvo otra ves al foro por ayuda otra ves mi problema es el siguiente tengo un formulario que me filtra desde un combobox por fecha pero cuando lo filtro con con el segundo combobox me filtra pero me desordena las columnas del listbox y me quita las cabecera del filtrado me podrian guiar con este problema y explicarme porque pasa espero haberme explicado subo el archivo PRUEBA.xlsm
  13. genial antoni gracia por tu aporte y ayuda
  14. hola buenas tardes primero que todo gracias a los don por responder tan rápido las dos opciones son buenas, pero también quisiera pedirles que me ayudaran a filtrar con las fechas que están en uno de los combobox dentro del listbox una vez mas gracias por la ayuda
  15. hola necesito ayuda con una macro que estoy adaptando a mis necesidades, pero no logro hacerlo ya que soy nuevo en esto, lo que necesito es: 1- que el listbox carge los datos de una hoja especifica que tengo en un combobox en listada por ejemplo si en el combobox dejo la hoja 1 que cargue los datos de la hoja 1 y si es la hoja 8 los de la hoja 8 y así sucesivamente 2- que cuando se filtre desde el listbox queden los títulos de las cabecera de antemano gracias por la ayuda y espero también poder ayudar en lo posible a quien lo necesite PRUEBA.xlsm
×
×
  • Create New...

Important Information

Privacy Policy

Ayuda Excel - Madrid, Madrid, ES - Valorada por 5112 personas - Aprender Excel - Total: 4.7 / 5