Jump to content

Dr Hyde

Members
  • Content Count

    498
  • Joined

  • Last visited

  • Days Won

    16

Reputation Activity

  1. Upvote
    Dr Hyde got a reaction from lphant in Buscar datos y juntarlos en una celda   
    prueba esta macro
    libroejemplo.xlsm
  2. Upvote
    Dr Hyde got a reaction from bigpetroman in Optimizar cortes lineales   
    checa esta macro, es una version mejorada de la anterior, primero tienes que dar click en el boton limpieza, capturas las medidas y las cantidades y corres la macro, la cantidad de simulaciones es abierta minimo debe ser 1000, prueba y comentas
    OPTIMIZAA.rar
  3. Upvote
    Dr Hyde got a reaction from SebastianFelipe in Ocultar columnas según valor en una celda   
    cambia tu instruccion como esta en el ejemplo, cuenta a partir de la F la cantidad de columnas en C3 y las oculta
    Sub ocultar()
    valor = Range("c3")
    Range("f3").Resize(1, valor).EntireColumn.Hidden = True
    End Sub
  4. Upvote
    Dr Hyde got a reaction from chernan5 in Copiar datos en la primera celda vacía, espacio limitado   
    Trata esta macro, lo unico que no me queda claro e esto: En las celdas C9 a C12 anota el contenido de las celdas A4 a A27 (pon un jemplo), la que está a la izquierda del dato recién copiado
    Excel ejemplo copiar ultima fila(1).xlsm
  5. Upvote
    Dr Hyde got a reaction from Antoni in Copiar Datos que coincidan de una hoja a otra   
    En la hoja 2 solo da click en el boton, te copiara solo aquellos datos que coincidan en ambas hojas
    Copiar datos que coincidan de una hoja a otra.zip
  6. Upvote
    Dr Hyde got a reaction from tierra_pampa in Busqueda y Filtrados para dar reporte AYUDA!!   
    checa esta macro, te puede servir de base para hacer lo que necesitas
    Reporte de Diademas.xlsm
  7. Upvote
    Dr Hyde got a reaction from Moto in Concatenar con condicional y ciclo   
    la macro hace una ordenacion ascendente en la columna C, de esta manera es mas facil hacer una macro simple y a la vez eficiente, prueba esta macro modificada al final vuelve a hacer una ordenacion sobre una columna ficticia para dejarla como originalmente estaba.
    concatenar.xlsm
  8. Upvote
    Dr Hyde got a reaction from Moto in Concatenar con condicional y ciclo   
    trata con esta macro, solo da click en el boton
    concatenar.xlsm
  9. Upvote
    Dr Hyde got a reaction from SebastianFelipe in Macro que enumere celdas de 1 a X   
    prueba este codigo pone los numeros de izquierda a derecha en rojo
    Sub contar_vertical()
    dias = Range("b1")
    Range("l5").CurrentRegion.ClearContents
    Set numeros = Range("l5").Resize(1, dias)
    Matrix = numeros
    For i = 1 To dias
        Matrix(1, i) = i
    Next i
    Range(numeros.Address) = Matrix
    With numeros
        .Font.ColorIndex = 3
        .EntireColumn.AutoFit
    End With
  10. Upvote
    Dr Hyde got a reaction from nickmartinez in sumar columnas al hallar la ultima fila con datos   
    prueba esta macro
    sumar.xlsm
  11. Upvote
    Dr Hyde got a reaction from Silvia in Extraer datos de 4 en 4 por columnas.   
    creo que este es lo que necesitas
    separar colores.xlsm
  12. Upvote
    Dr Hyde got a reaction from Visor in Pasar datos de 3 hojas de acuerdo con un número de lista y nombre   
    te envio este archivo le tuve que quitar cosas para poder subirlo, copia las macros del modulo4 del editor VBA a tu archivo, tambien copia la macro que estan en thisworkbook y crea el controlactivex (combobox) en las hojas all1 y all2, estos combox mandan llamar a las macros que hacen las copias como necesitas.
    la macro funciona asi, una vez que abres el archivo los nombres que estan en la hoja asistencia se cargan en automatico en los combobox de la hoja all1 y all2, una vez que seleccionas el nombre la macro recorre todas las hojas buscando le nombre del alumno y las va a copiar a donde corresponde en funcion de la hoja es si las pega horizontal o verticalmente.
     
    Control de Notas 2P A.rar
  13. Upvote
    Dr Hyde got a reaction from Visor in Pasar datos de 3 hojas de acuerdo con un número de lista y nombre   
    en las macros buscar_alumno y buscar_alumno2 puse esta linea 
    Range("B6") = ALUMNO
    la cual le indica a los combobox que coloquen el nombre del alumno en la celda combinada, esto lo hago solo para comprobar que la macro selecciona bien los nombres, generalmente remuevo la linea cuando veo que la macro funciona, quita esta linea (si ni la ocupas) no afecta en nada la macro.
  14. Upvote
    Dr Hyde got a reaction from Visor in Copiar un rango de una hoja a otra   
    pon esta instruccion en una sola linea
    worksheets("hoja30").range("a8:y8").copy worksheets("hoja3").range("a8:y8")
  15. Upvote
    Dr Hyde got a reaction from Visor in Porque el filtro de letras solo funciona en una hoja   
    haciendo varias pruebas a tu archivo veo que la instruccion set rngfilter=range("a5").currentregion es la que te esta dando el problema, esta instruccion selecciona filas y columnas con informacion alrededor de la celda A5 y se detiene en la primera columa o fila vacia, eso pasa en dos de tus hojas y por eso no funciona la macro, le hice algunos cambios para ampliar la cobertura de celdas con informacion y te anexo un archivo con una forma alternativa para lo que quieres, funciona de manera similar pero es mas sencilla.
    Sub FilterList(xLet As String)
    Dim rngFilter As Range
    Dim hoja As String
    Application.ScreenUpdating = False
    Set rngFilter = ActiveSheet.UsedRange
    filas = rngFilter.Rows.Count: col = rngFilter.Columns.Count
    Set rngFilter = Range("a8").Resize(filas, col)
    hoja = ActiveSheet.Name
    If hoja = "AUTONOMO" Then campo = 1
    If hoja <> "AUTONOMO" Then campo = 2
    Set bul = Range(rngFilter.Columns(2).Address).Find(What:=xLet)
    Application.Goto Reference:=Range(bul.Address), Scroll:=False
    rngFilter.AutoFilter field:=campo, Criteria1:=xLet & "*"
    Application.ScreenUpdating = True
    End Sub
    control de notas.xlsm
  16. Upvote
    Dr Hyde got a reaction from harumendo in eliminar espacio final si lo hay de una celda   
    usa este codigo, si no es una letra borra el ultimo caracter a la derecha de la palabra
    Private Sub CommandButton1_Click()
    Set datos = Range("a1").CurrentRegion
    For Each nfila In datos.Rows
        celda = Trim(nfila)
        dcelda = Asc(Right(UCase(celda), 1))
                
        If dcelda <= 65 Or dcelda >= 90 Then
            largo = Len(celda): celda = Left(celda, largo - 1)
        End If
        
        ComboBox1.AddItem celda
    Next nfila
    End Sub
     
  17. Upvote
    Dr Hyde got a reaction from Enigma25 in Problema con onkey   
    solo pega este codigo en la seccion vba de la hoja1, en este ejemplo el bloqueo de la tecla backspace aplica para toda la hoja menos para las celdas d2 y c2, si quieres añadir mas celdas hazlo respetando el signo de pesos, de lo contrario aplicara el bloque a toda la hoja
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If ActiveCell.Address = "$C$2" Or ActiveCell.Address = "$D$2" Then
        Application.OnKey "{backspace}", ""
    Else
        Application.OnKey "{backspace}", "hola"
    End If
    End Sub
    y este codigo ponlo en el modulo1
    Sub hola()
    MsgBox ("no borrar")
    End Sub
     
  18. Upvote
    Dr Hyde got a reaction from alejoresu in Seleccionar un conjunto de celdas en la ultima fila con datos   
    trata la siguente instruccion
    Sub copiar()
    Range("e2").CurrentRegion.End(xlDown).Resize(1, 5).Copy Worksheets("hoja2").Range("a2")
    End Sub
     
  19. Upvote
    Dr Hyde got a reaction from alejoresu in Seleccionar un conjunto de celdas en la ultima fila con datos   
    trata la siguente instruccion
    Sub copiar()
    Range("e2").CurrentRegion.End(xlDown).Resize(1, 5).Copy Worksheets("hoja2").Range("a2")
    End Sub
     
  20. Upvote
    Dr Hyde got a reaction from Enigma25 in Comparar importes   
    Prueba esta macro, solo da click en el boton de la hoja resultado
    bancos.xlsm
  21. Upvote
    Dr Hyde got a reaction from Antoni in Divir información de una hoja a nuevas hojas   
    Checa la macro 
    Separar.xlsm
  22. Upvote
    Dr Hyde got a reaction from LeandroA in Cambiar el color de fondo en celdas con VBA   
    checa esta macro, creo que es lo que quieres.
    Vacances2017_test.xlsm
  23. Upvote
    Dr Hyde got a reaction from carlosrg in Convertir columna a fecha   
    esta raro, checa esta macro
    libro2 (1).xlsm
  24. Upvote
    Dr Hyde got a reaction from Antoni in Determinar día de última venta   
    checa esta macro
    suma filas.xlsm
  25. Upvote
    Dr Hyde got a reaction from PedroJSuarez in Copiar Rango en celda activa   
    checa el ejemplo, la instruccion funciona bien, lo que veo es que le pusiste comillas a la instruccion (que no lleva).
    ejemplo_1.xlsm
×
×
  • Create New...

Important Information

Privacy Policy