Jump to content

Enrique_chuc

Members
  • Content Count

    10
  • Joined

  • Last visited


Reputation Activity

  1. Upvote
    Enrique_chuc reacted to Antoni in Pegar comentario   
    .
    Si utilizas el signo igual entre dos rangos, solo se copia el valor.
    Debes usar el método copy para copiar el resto de propiedades del rango.

    If Not dato Is Nothing Then
    dato.Offset(0, 1).Copy Cells(a, 2)
    dato.Offset(0, 2).Copy Cells(a, 3)
    dato.Offset(0, 3).Copy Cells(a, 4)
    End If
    [/CODE]
    .
  2. Upvote
    Enrique_chuc reacted to Antoni in Modificar archivo   
    .
    En lugar de Range("A3").End(xlDown)), prueba con:
    Range("A" & Rows.Count).End(xlUp))
    .
  3. Upvote
    Enrique_chuc reacted to Gerson Pineda in Buscar valor en todas las hojas del libro y me de como resultado el nombre de la hoja dnd esta el va   
    Re: Buscar valor en todas las hojas del libro y me de como resultado el nombre de la hoja dnd esta el val
    Hola
    Para que puedas adaptarlo, presiona Alt + F11, en la parte izquierda de VBA Proyectos observa el MODULO1 ahi esta la macro siguiente

    Sub BuscarCedula_Libro_GP()
    Application.ScreenUpdating = False
    Dim hoja As Worksheet: Dim vc As Range
    With Range("A1").CurrentRegion
    .Offset(1, 4).Resize(.Rows.Count - 1, 3).ClearContents
    End With
    For Each hoja In Sheets
    If hoja.Name <> "Cuadro" Then
    For Each cedula In Range("A2", _
    Range("A2").End(xlDown))
    Set vc = hoja.Columns("A").Find(What:=cedula, _
    LookIn:=xlValues, Lookat:=xlWhole)
    If vc Is Nothing Then GoTo ira:
    Cells(cedula.Row, "E") = Cells(cedula.Row, "E") & _
    hoja.Name & " - "
    Cells(cedula.Row, "F") = Cells(cedula.Row, "F") & _
    vc.Address(0, 0) & " - "
    Cells(cedula.Row, "G") = Cells(cedula.Row, "G") + 1
    ira:
    Next
    End If
    Next
    Set vc = Nothing
    Application.ScreenUpdating = True
    End Sub
    [/CODE]
    Adjunto nuevamente el archivo hice una leve modificacion
    Saludos
    Obtener Ubicacion y Nombre de Hoja por Criterios_GP.zip
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png