UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

kthia valdivia


hola a todos 
buenas noches, les agradecería si me pudieran ayudar con una macro la cual intento extrer datos de un libro donde esta mi data y pegarlos en mi excel. En mi excel que se llama macro debo pegar una lista de usuarios y de todos estos usuarios hacer la busqueda en el libro que tiene mi data usando un bucle while dado que el numero de datos que quiero extraer no es variable. La cuestión es que me extraiga todos los datos del usuario que estan ordenados en filas en mi libro data. Porfa si me podrían ayudar con este bucle le estoy adjuntando mis archivos y aqui el codigo que intento usar.



[ltr]Private Sub BUSCAR_Click()

Dim SheetActive As Excel.Worksheet

Dim ranusuario As Object
Dim fila As Integer
Dim usuario As String


Set SheetActive = Sheets("FormBusqueda")


Application.ScreenUpdating = False

Set l2 = Workbooks.Open(Filename:="\\kathia\MACROS\Minimaestro_Humberto.xlsx", Password:="kathia", ReadOnly:=True, AddToMru:=False)

fila = 5

Do While Not IsEmpty(SheetActive.Cells(fila, 2))

usuario = "0" + SheetActive.Cells(fila, 2)

Set ranusuario = Cells.Find(What:=usuario, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)

If ranusuario Is Nothing Then
' aca colocar a todos los campos el valor nulo

End If

SheetActive.Cells(fila, 3) = ranusuario.Offset(0, 1).Value
SheetActive.Cells(fila, 4) = ranusuario.Offset(0, 2).Value
SheetActive.Cells(fila, 5) = ranusuario.Offset(0, 3).Value
SheetActive.Cells(fila, 6) = ranusuario.Offset(0, 4).Value
SheetActive.Cells(fila, 7) = ranusuario.Offset(0, 5).Value
SheetActive.Cells(fila, 8) = ranusuario.Offset(0, 6).Value
SheetActive.Cells(fila, 9) = ranusuario.Offset(0, 7).Value


fila = fila + 1

Loop

l2.Close
Application.ScreenUpdating = True

End Sub[/ltr]
Archivos
macro.zip
No tienes los permisos para descargar los archivos.
(27 KB)



Última edición por Igtelo el 13/11/15, 08:57 pm, editado 1 vez (Razón : Quite la carita...)

Igtelo


Hola Kathia.

No necesitas macro, con solo copiar tu datos del "Data" a tu libro MACRO, aplica quitar duplicados y listo.

Te dejo ejemplo (analiza las 2 hojas), si quieres macro te será más fácil hacerla usando quitar duplicados que usar un bucle y te correrá más rápido.

Espero tus comentarios.

Saludos
Ignacio Téllez
Archivos
Kathia-Quitar duplicados.xlsx
No tienes los permisos para descargar los archivos.
(41 KB)

Igtelo


Otro mas...

Norma 5, lo doy por resuelto y cierro tema por abandono.

Ignacio Téllez

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.