Buscav Carga mucho el libro

19/07/2008 - 01:43 por Edixon | Informe spam

Hola Grupo tengo un problemita y es el siguiente:

estoy trabajando con una base de datos de aproximadamente
35000 filas y dos columnas, esto en la hoja1
la primera columna son referencias y la dos cantidades.

en la hoja 2 deberia tener los mismos valores sin embargo se omiten
algunos.

para saber cuales referencias se omitian en la hoja 2 con respecto a
la hoja 1 yo utilizaba un Buscarv en todas las celdas de la hoja 2 sin
embargo por ser tantas formulas se carga mucho el libro y se pone
lento.

Quisiera que en la hoja 3 mediante una macro se copiaran todos
aquellas referencias que no esten en la hoja 2 con respecto a la hoja
1 pero solo aquellas que tengan en la columna 2 (hoja 1 cantidad) un
valor distinto de cero.

Ejemplo

Hoja 1 Hoja
2 Hoja3 (Macro)

Referencia Cantidad Referencia
Cantidad Referencia Cantidad
125 5 125
5 198
5
128 8 128
8 457 -8
143 0 174
10
174 10
198 5
457 -8

Espero se entienda bien el ejemplo de antemano gracias por su ayuda.

Siga el debate

4 respuestas

Tengo una respuesta

Preguntas similare

como ejecutar una macro desde que se carga el libro

Leer las respuestas

#1 Edixon

20/07/2008 - 03:31 | Informe spam

Buenisimo es exactamente lo que queria,

Disculpa que el ejemplo no paso muy bien, pero lo entendiste perfecto
Gracias.

Bendiciones

Responder a este mensaje

#2 Edixon

24/07/2008 - 03:58 | Informe spam

Hola Hector la macro no me funciona cuando tengo la hoja 3 bloqueada

Use esta macro expuesta por ti en este foro sin embaro el problema
persistio

Lo coloque en elproyesto VBA an ThisWorbook

Private Sub Workbook_Open()
Worksheets("Hoja3").Protect _
Password:="miclave", _
UserInterfaceOnly:=True
End Sub

Cerro y abri el libro nuevamente y nada

Al bloquear la hoja solo queda desbloqueada las columnas de la A a la
D todas las demas estan bloqueadas

Gracias por tu ayuda de antemano

Responder a este mensaje

#3 Héctor Miguel

24/07/2008 - 06:18 | Informe spam

hola, Edixon !

hay algunas acciones que se pueden hacer por macro sobre hojas protegidas, pero hay otras que no (p.e.)
- no se puede hacer cut/copy/paste, y este es (precisamente) el efecto de los filtros avanzados (aun por codigo) :-((

en resumen (creo que) la alternativa mas "barata" es des/re/proteger la hoja3 al momento de usar los filtros avanzados...

Sub Por_FiltroAvanzado()
Worksheets("hoja3").Unprotect "miclave"
With Worksheets("hoja1")
.Range("d2").Formula = "=and(countif(hoja2!a:a,a2)=0,b2<>0)"
.Range("a2").CurrentRegion.AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=.Range("d1:d2"), _
CopyToRange:=Worksheets("hoja3").Range("a1:b1")
.Range("d2").Clear
End With
Worksheets("hoja3").Protect "miclave", 1, 1, 1, 1
End Sub

saludos,
hector.

__ OP __

... la macro no me funciona cuando tengo la hoja 3 bloqueada
Use esta macro expuesta por ti en este foro sin embaro el problema persistio
Lo coloque en elproyesto VBA an ThisWorbook
Private Sub Workbook_Open()
Worksheets("Hoja3").Protect _
Password:="miclave", _
UserInterfaceOnly:=True
End Sub
Cerro y abri el libro nuevamente y nada
Al bloquear la hoja solo queda desbloqueada las columnas de la A a la D todas las demas estan bloqueadas

Responder a este mensaje

#4 Edixon

24/07/2008 - 16:55 | Informe spam

Muchas Gracias eso me funciono muy bien, Buen Día
Bendiciones

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida