Jump to content

lphant

Members
  • Content Count

    295
  • Joined

  • Last visited


Reputation Activity

  1. Upvote
    lphant reacted to ikanni in Buscar datos y juntarlos en una celda   
    Hola IPhant,
     
    Chekea
    Libro5_IK.xls
  2. Upvote
    lphant reacted to YoelMonsalve in Buscar datos y juntarlos en una celda   
    Hola Iphant, aqui tienes. Por cierto te respondi la otra pregunta que habías hecho (relacionado más o menos con ésto), y de hecho con algunas modificaciones sobre aquél mismo trabajo creo que se puede lograr lo que pides aquí.
    Pude notar que sólo tienes previsto 3 combinaciones de colores para cada código, no se si esto es así, o puede cambiar.
    =====================================
    Si te gustó este aporte, no olvides premiarme con un "me gusta" !
     
    Iphant_Libro5.xlsm
  3. Upvote
    lphant reacted to YoelMonsalve in Buscar y rellenar datos   
    Ok, entonces la idea es consultar en la hoja Datos, por el código en la fila de amarillo de la hoja Seguimiento, y si encuentra coincidencia, rellenar los campos correspondientes en Datos.
    En ese caso ya no necesitamos la macro CopiarDatos() del Módulo 1 (aunque la conservé en el libro por si acaso), todo se puede programar en el evento Worksheet_Change() de Seguimiento.
    Ahora edita los campos en la fila amarilla de Seguimiento, y se actualizará la columna. Adicionalmente le puse que si borras el código, se borre el resto de la columna (aunque no se si querías esto).
    Iphant_Libro1.xls
  4. Upvote
    lphant reacted to tierra_pampa in Buscar y rellenar datos   
    Hola @lphant
    Fijate si mi nueva propuesta es lo que deseas.
    =INDICE(Datos!$A$1:$E$7,COINCIDIR(B$4,Datos!$A$1:$A$7,0),COINCIDIR($A5,Datos!$A$1:$Z$1,0)) Por favor, en la próxima consulta recuerda que si deseas la solución con fórmulas debes ingresar la misma en el foro de Excel General => LINK .
    Que tengas una buena jornada!
    ae20170227Libro1.xls
  5. Upvote
    lphant reacted to YoelMonsalve in Buscar y rellenar datos   
    Disculpa, pensé que te referías sólo a la columna en amarillo. Revisa ahora, con las modificaciones menores realizadas debería funcionar como querías.
    Por cierto, desde la hoja Datos sólo transfiere valores ubicados en las columnas A hasta E, pero no fuera de ese rango. No se si querías ampliar el rango o está bien así. Saludos.
     
    Iphant_Libro1.xls
  6. Upvote
    lphant reacted to Enigma25 in Buscar y rellenar datos   
    Hola
     
    Perdon por no aportar cuando lo prometí.
    Le dejo mi aporte, si este es el que buscas. :
    Dim I As Integer Dim J As Integer Dim Lin As Integer Lin = 2 Do While Hoja2.Cells(Lin, 1) <> "" For I = 1 To 4 For J = 1 To 6 If Hoja2.Cells(Lin, 1) = Hoja1.Cells(2, 1 + J) Then Hoja1.Cells(2 + I, 1 + J) = Hoja2.Cells(1 + J, 1 + I) End If Next J Next I Lin = Lin + 1 Loop Saludos.
  7. Upvote
    lphant reacted to YoelMonsalve in Buscar y rellenar datos   
    Iphant, los datos deberían actualizarse automáticamente, al modificar cualquier valor en la columna A de la hoja Datos.
    Pero requieres "Habilitar las macros" en Excel, para que pueda funcionar. Habilitaste las macros?
  8. Upvote
    lphant reacted to tierra_pampa in Buscar y rellenar datos   
    Hola @lphant
    Te envío un archivo para que revises si cumple lo solicitado.
    No te olvides de comentar.
    Que tengas una buena jornada!
    ae20170222Libro1.xls
  9. Upvote
    lphant reacted to Enigma25 in Buscar y rellenar datos   
    Déjame ver que podemos hacer.
  10. Upvote
    lphant reacted to YoelMonsalve in Buscar y rellenar datos   
    Hola Iphant, gusto en conocerte. Pues básicamente desear copiar datos de una columna de la hoja "datos" a una fila de la hoja "seguimiento". Básicamente el código VBA para hacer esto sería:

        If S1.[A2] = "" Then         N = 0         Exit Sub        '<-- si N = 0, no hay datos que transferir     Else         N = IIf(S1.[A2] <> "", S1.[A2].End(xlDown).Row - 1, 1)     End If    'copiamos los datos     For i = 1 To N         S2.Cells(2, i + 1) = S1.Cells(i + 1, 1)     Next
    Iphant_Libro1.xls
  11. Upvote
    lphant got a reaction from YoelMonsalve in Buscar y rellenar datos   
    Buenas tardes [email protected];
    Quien me puede ayudar a intentar hacer lo siguiente:
    En un libro Excel tengo 2 hojas, una se llama “seguimiento” y la otra se llama “datos”.
    Lo que necesito es que la hoja “seguimiento” se actualice con los datos de la hoja “datos”.
    Los datos comunes entre las hojas serias:
    En la hoja “seguimiento” la fila 2 y en la hoja “datos”  serian la columna A.
    Gracias J

    Libro1.xls
  12. Upvote
    lphant reacted to Antoni in Guardado automatico en pdf con 2 direcciones   
    Comprueba si la carpeta donde vas a guardar existe o no.

    If Dir(RutaCarpeta) = "" Then MsgBox "No existe"[/CODE]
    Nota: No olvides añadir una barra invertida (\) al final de [i][b]RutaCarpeta
    .[/b][/i]
  13. Upvote
    lphant reacted to Alfonso5597 in Buscar con macro un dato en hoja x y devolver otro dato   
    Hola Iphant , te he hecho un formulario, pruebalo y comentas
    Saludos
    Buscar (1).rar
  14. Upvote
    lphant reacted to Alfonso5597 in Buscar con macro un dato en hoja x y devolver otro dato   
    Hola amigo Iphant , prueba este formulario y ya diras
    Saludos cordiales
    Libro1.rar
  15. Upvote
    lphant reacted to Antoni in Guardar solo los cambios de la hoja excel x   
    Creo que ahora funciona correctamente.
    Libro1 (1).xls
  16. Upvote
    lphant reacted to Antoni in Guardar solo los cambios de la hoja excel x   
    .
    Ejemplo de como salvar solo la "Hoja2"
    Pon este código en ThisWorkbook:


    '--
    Private Sub Workbook_Open()
    ActiveWorkbook.SaveCopyAs ThisWorkbook.Path & "\Soporte1-" & ThisWorkbook.Name
    End Sub
    '--
    Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    ActiveWorkbook.SaveCopyAs ThisWorkbook.Path & "\Soporte2-" & ThisWorkbook.Name
    Workbooks.Open ThisWorkbook.Path & "\Soporte1-" & ActiveWorkbook.Name
    For Each Hoja In ActiveWorkbook.Sheets
    If Hoja.Name <> "Hoja2" Then '<-------------------------------
    Hoja.Rows.Copy ThisWorkbook.Sheets(Hoja.Name).Rows
    End If
    Next
    ActiveWorkbook.Close
    Application.EnableEvents = True
    End Sub
    '--
    Private Sub Workbook_AfterSave(ByVal Success As Boolean)
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    Workbooks.Open ThisWorkbook.Path & "\Soporte2-" & ActiveWorkbook.Name
    For Each Hoja In ActiveWorkbook.Sheets
    If Hoja.Name <> "Hoja2" Then '<-----------------------------
    Hoja.Rows.Copy ThisWorkbook.Sheets(Hoja.Name).Rows
    End If
    Next
    ActiveWorkbook.Close
    Application.EnableEvents = True
    End Sub
    '--
    Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ThisWorkbook.Saved = True
    Kill ThisWorkbook.Path & "\Soporte1-" & ThisWorkbook.Name
    Kill ThisWorkbook.Path & "\Soporte2-" & ThisWorkbook.Name
    End Sub
    '--
    [/CODE]
    .
  17. Upvote
    lphant reacted to pitaspallas in Guardar solo los cambios de la hoja excel x   
    Hasta donde yo se, no. Por lo que tengo entendido, el guardado solo se puede aplicar en el libro en sí.
    Lo que si se puede hacer si no te interesa lo que está guardado en las hojas 2 y 3 podrías borrar su contenido y después guardar el libro

    Sub Borrado_Hojas()

    Sheets("Hoja2").Select
    Cells.Select
    Selection.ClearContents

    Sheets("Hoja3").Select
    Cells.Select
    Selection.ClearContents

    'Viene sin mensajes, pon los que tu quieras

    End Sub [/CODE]
    Y luego guardar el archivo

    [CODE]Sub Guardar_Libro()
    ActiveWorkbook.Save
    End Sub[/CODE]
    O pulsando el botón de guardar, otra cosa que también se puede hacer es guardar la hoja en un libro nuevo pero eso ya se me escapa porque depende donde lo quieres, como lo quieres y un largo etc...
    Espero haberte podido ayudar o al menos haberte dado una idea.
    Saludos
  18. Upvote
    lphant reacted to Armando Montes in Copiar datos repetidos en otra hoja   
    Hola, una opcion:

    Sub CopyDups()
    Application.ScreenUpdating = False
    Hoja1.[A1].CurrentRegion.Copy Hoja3.[A1]
    LR = Hoja3.Cells(Rows.Count, 1).End(xlUp).Row + 1
    Hoja2.[A1].CurrentRegion.Offset(1).Copy Hoja3.Range("A" & LR)
    With Hoja3
    .[A1].CurrentRegion.Columns(3).Offset(1).Formula = "=1/(COUNTIF(A$2:A$50,A2)-1)"
    .[A1].CurrentRegion.Columns(3).SpecialCells(xlCellTypeFormulas, 16).EntireRow.Delete
    .Columns("C").Clear
    End With
    Application.ScreenUpdating = True
    End Sub[/CODE]
  19. Upvote
    lphant reacted to tese1969 in Copiar datos repetidos en otra hoja   
    Cambia este bloque de código por el tuyo:
    Solo hay un "If" más incluido y el "End if" final.

    With Sheets("Hoja2").Columns("A")
    Set buscorden = .Find(orden, Lookat:=xlWhole)
    If buscorden Is Nothing Then GoTo otra:
    If buscorden.Offset(0, 1) = orden.Offset(0, 1) Then
    buscorden.EntireRow.Copy
    Sheets("Hoja3").Select
    If Range("A2") <> "" Then
    Range("A1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveSheet.Paste
    End If
    Range("A2").Select
    ActiveSheet.Paste
    End If
    End With[/CODE]
    A ver si así te funciona.
    Un saludo,
    Tese
  20. Upvote
    lphant reacted to Gerson Pineda in Sumar 1 al numero anterior (contador)   
    Hola
    Excel ya nos regala esa funcion, pegala en la celda c1 por ejemplo y la copias hacia abajo

    =SI(IZQUIERDA(B2,4)="Caja",CONTAR.SI($B$2:B2,"Caja*"),"")[/CODE]
    Puede ser que el separador de argumentos de tu formula sea ;
    Saludos
  21. Upvote
    lphant reacted to Antoni in Sumar 1 al numero anterior (contador)   
    Pon esta código en un módulo y ejecuta la macro Sumar:



    Function Añadir1(Cadena As Variant) As Variant
    If IsNumeric(Cadena) = True Then
    Añadir1 = CLng(Cadena) + 1
    Exit Function
    End If
    For x = 1 To Len(Cadena)
    If IsNumeric(Mid(Cadena, x, 1)) = True And _
    Not Mid(Cadena, x, 1) = "0" Then
    Añadir1 = Left(Cadena, x - 1) & CLng(Mid(Cadena, x)) + 1
    Exit Function
    End If
    Next
    End Function

    Sub Sumar()
    Range("B5") = Añadir1(Range("B5"))
    End Sub

    [/CODE]
    Esta función vale para cualquier combinación de numeración con el formato:
    [b]Parte alfabética+parte numérica.
    [/b]
    Respeta los ceros a la izquierda del primer dígito significativo de la parte numérica.
    _
  22. Upvote
    lphant got a reaction from Antoni in Poner fecha cuando una celda tiene datos   
    muchísimas gracias a los tres, funcionan perfectamente, ahora no se con que quedarme, esta tarde de pruebas jejeeejeee...
    Pd: que razón tienes tese1969, la cama es para otras cosas mas interesantes jejejeee...
  23. Upvote
    lphant reacted to Armando Montes in Poner fecha cuando una celda tiene datos   
    Hola todos, un ejemplo con formula y macro, prefiero la segunda:
    Hora y Fecha Estatica.xls
  24. Upvote
    lphant reacted to Antoni in Poner fecha cuando una celda tiene datos   
    Otra forma usando solo una columna (A) para la fecha y la hora, por lo tanto los datos empezarían en la columna B.

    Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 2 And Target.Row > 1 Then
    If Trim(Target) = Empty Then
    Target.Offset(0, -1) = Empty
    Else
    If Target.Offset(0, -1) = Empty Then
    Target.Offset(0, -1) = Now
    End If
    End If
    End If
    End Sub[/CODE]
  25. Upvote
    lphant reacted to tese1969 in Poner fecha cuando una celda tiene datos   
    Incluye este código en la Hoja1, no en un módulo y me cuentas...
    Por cierto, intenta utilizar la cama para pensar en cosas más interesantes...

    Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Columns("c")) Is Nothing Then
    If Target.Row = 1 Then Exit Sub
    Target.EntireRow.Columns("a") = Date
    Target.EntireRow.Columns("b") = Time
    End If
    End Sub[/CODE]
    Un saludo,
    Tese
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png