Jump to content

howling

Members
  • Content Count

    23
  • Joined

  • Last visited

About howling

  • Rank
    Member

Converted

  • Campos
    ;
  1. Gracias jsdjsd por la orientación estaba colocando las cosas donde no lo tomaba pero ya me di cuenta del error gracia a ti graciad
  2. Gracias jsdjsd por la orientación estaba colocando las cosas donde no lo tomaba pero ya me di cuenta del error gracia a ti graciad
  3. buenas tardes genios programadores tengo una pregunta ¿es posible abrir un formulario desde un OptionButton?
  4. 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
  5. 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
  6. 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
  7. 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
  8. 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
  9. 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
  10. gracias era lo que nesecitaba doy por terminado este tema
  11. 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
  12. buenos dias ya he resuelto el problema gracias por la ayuda saludos
  13. 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
  14. 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
  15. 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
×
×
  • Create New...

Important Information

Privacy Policy