Cuestión : Copia y datos de la goma si está emparejado.

Hola los expertos,

I quisieran solicitar ayuda de los expertos para escribir una escritura a la cual puede verificar el tiempo en forma cruzada (Column_A) adentro reconcilian la hoja con el tiempo (Column_B) en hoja del sistema. Si está emparejado, copiar los datos emparejados de la fila de Column_B y de C (hoja del sistema) y pegarlos en reconcilian la hoja (necesidad de seguir la secuencia del tiempo). el

I ha copiado manualmente pocos datos para que los expertos consigan una mejor visión. Los expertos de la esperanza pueden ayudarme a crear este feature.


 class= " lastRow del
>Attachments del " nombre " del class= del class= " valor " del
del >
class= " fileInfo " del
el title= " del " nombre de fichero del class= " del CopyPasteRow.xls el class= (151 KB)  Javascript del href= " de los " attachmentDetails del class= " del (tipo de archivo detalles)  
class= " descripción " del
xls
el class= de
del >
class= del

Respuesta : Copia y datos de la goma si está emparejado.

Sure
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

Verificación cruzada secundaria ()
Application.ScreenUpdating = falso
R dévil como gama
WS dévil como hoja de trabajo
Fijar WS = las hojas de trabajo (“reconciliar”)
Fijar r = WS. Gama (“B5”, WS. Cells.SpecialCells (xlCellTypeLastCell)).EntireRow.Resize (, 1).Offset (, 1)
¡r.FormulaR1C1 = “=IF (ISNA (VLOOKUP (RC [- 1], sistema! C: C, 1, FALSOS))¡, """", VLOOKUP (RC [- 1], sistema! C: C, 1, FALSOS))”
¡r.Offset (, 1).FormulaR1C1 = “=IF (ISNA (VLOOKUP (RC [- 2], sistema! C [- 1]: C, 2, FALSOS))¡, """", VLOOKUP (RC [- 2], sistema! C [- 1]: C, 2, FALSOS))”
r.Resize (, 2).Copy
Application.DisplayAlerts = falso
r.Resize (, xlPasteValues 2).PasteSpecial
Application.CutCopyMode = falso
Fijar r = WS. Gama (“B5”, WS. Cells.SpecialCells (xlCellTypeLastCell)).EntireRow.Resize (, 1).Offset (, 1)
r.EntireRow.RowHeight = 15
r.Resize (, 1).Offset (, -1) .SpecialCells (xlCellTypeBlanks) .EntireRow.Delete
Application.DisplayAlerts = verdad
Application.ScreenUpdating = verdad
Submarino del extremo
Otras soluciones  
 
programming4us programming4us