Jump to content

howling

Members
  • Content Count

    20
  • Joined

  • Last visited

About howling

  • Rank
    Member

Converted

  • Campos
    ;
  1. bigpetroman gracias por tu respuesta me ayudo bastante lamento haberme demorado tanto en responder gracias por la ayuda y a ti tambien antoni gracias doy por solucionado el tema
  2. buenas tardes antoni y bigpetroman gracias por sus respuestas y tienen toda la razon, aqui les subo el archivo con la macro con la cual me ayudaron en otro foro de macros espero me puedan ayudar gracias Libro.xlsm
  3. buenas tardes necesito ayuda con un código, lo que pasa es que tengo un código que va inserto en la hoja que utilizo para datos. este código esta diseñado para hacer doble clic en una celda de una columna especifica y copia una cantidad especifica de celdas y las pega en otra hoja lo que yo nesecito es cambiar cierta linea del codigo que copia la serie de celdas en una que me copie las celdas intercaladas por ejemplo si el codigo original me copia de la celda A1 a G1 la que nesecito ahora es que me copie desde D1 pero saltandoce una celda, es decir, A1, C1, E1,G1, etc... les dejo el codigo que quiero cambiar y mas abajo la macro completa Target.Offset(0, 1).Resize(1, 12).Copy parte que quiero cambiar Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Application.ScreenUpdating = False If Target.Address Like "$B$*" Then If IsNumeric(Target) And Target <> "" Then Cancel = True Target.Offset(0, 1).Resize(1, 12).Copy fila = Sheets("Tabla").Range("A" & Rows.Count).End(xlUp).Row + 1 Sheets("Tabla").Range("B" & fila).PasteSpecial xlValues, Transpose:=True For columna = 3 To 13 Step 2 Sheets("Tabla").Range("C" & fila) = Cells(9, columna) Sheets("Tabla").Range("C" & fila + 1) = Cells(9, columna) fila = fila + 2 Next Application.CutCopyMode = False Sheets("Tabla").Activate End If End If End Sub bueno espero haberme explicado lo mejor que pueda espero me ayuden y gracias de ante mano
  4. buenas haplox gracias por la pronta respuesta solo decirte que ya lo adapte a mi macro y funciona perfectamente gracias doy por solucionado el tema
  5. buenas noches nesecito un poco de ayuda con una macro lo explico la macro busca la ultima fila con datos y luego deberia copiar desde esa selda seleccionada hacia la derecha(rango variable) luego pegar en una columna de otra hoja buscando la ultima fila vacia con trasponer espero haberme explicado lo mejor posible a continuacion solo he llegado hasta esta, pero no encuentro el resto Dim ultimaFila As Integer ultimaFila = Cells(Rows.Count, 3).End(xlUp).Select
  6. 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
  7. gracias era lo que nesecitaba doy por terminado este tema
  8. 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
  9. buenos dias ya he resuelto el problema gracias por la ayuda saludos
  10. 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
  11. 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
  12. 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
  13. 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
  14. 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
  15. genial antoni gracia por tu aporte y ayuda
×
×
  • Create New...

Important Information

Privacy Policy