Cuestión : Macro para seleccionar datos

En el archivo atado de Excel, Sheet1 contiene datos, y Sheet2 contiene una lista de números en la columna A.  Una macro es necesaria mirar cada número en Sheet2 la columna A y encontrar un fósforo en Sheet1 la columna A.  Si se encuentra un fósforo, copiar los datos (encontrados en Sheet1) referente a ese número sobre a Sheet3. class= " lastRow del
>Attachments del " nombre " del class= del class= " valor " del
del >
del
el class= de
del >
class= del

Respuesta : Macro para seleccionar datos

Hola Rishi,

Intentar la macro siguiente.


Dejarme saber si usted tiene cualesquiera ediciones,

- Ardhendu
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

Opción explícita

Macro4 secundarios ()

Ws1 dévil     como hoja de trabajo, _
    ws2     como hoja de trabajo, _
    ws3     como hoja de trabajo, _
    lst1    como número entero, _
    lst2    como número entero


Fijar ws1 = las hojas (“Sheet1”)
Fijar ws2 = las hojas (“Sheet2”)
Fijar ws3 = las hojas (“Sheet3”)

lst1 = ws1.Cells (65536, “A”). Extremo (xlUp). Fila
lst2 = ws2.Cells (65536, “A”). Extremo (xlUp). Fila

ws1.Range (“A1: Acción de F” y de lst1) .AdvancedFilter: =xlFilterCopy, CriteriaRange: =ws2.Range (“A1: ” Y lst2), _
    CopyToRange: =ws3.Columns (“A: F”), única: =True
Submarino del extremo
Otras soluciones  
 
programming4us programming4us