Vraag : Exemplaar en deeggegevens indien aangepast.

Hallo zouden de Deskundigen,

I willen vragen de Deskundigen helpen om een manuscript te schrijven waaraan Tijd (Column_A) in Reconcile blad met Tijd (Column_B) in het Blad van het Systeem kan kruiselings controleren. Indien aangepast, kopi�ër de aangepaste rijgegevens van Column_B en C (het blad van het Systeem) en kleef het bij Reconcile blad (behoefte om de tijdopeenvolging te volgen).

I heeft manueel weinig gegevens voor Deskundigen gekopi�ërd om betere mening te krijgen. De Deskundigen van de hoop kunnen me helpen om dit feature.


te creëren

Attachments:

van

CopyPasteRow.xls (151 KB)  (de Details van het Type van Dossier)  

xls

Antwoord : Exemplaar en deeggegevens indien aangepast.

Zeker

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

Sub Kruiscontrole () Application.ScreenUpdating = Vals Schemerig r als Waaier Schemerige ws als Aantekenvel Vastgesteld ws = Aantekenvellen („verzoen“) Plaats r = ws. Waaier („B5“, ws. Cells.SpecialCells (xlCellTypeLastCell)).EntireRow.Resize (, 1). Compensatie (, 1) r.FormulaR1C1 = „=IF (ISNA (VLOOKUP (RC [- 1], Systeem! C: C, VALSE 1,)), """", VLOOKUP (RC [- 1], Systeem! C: C, VALSE 1,))“ r.Offset (, 1) .FormulaR1C1 = „=IF (ISNA (VLOOKUP (RC [- 2], Systeem! C [- 1]: C, VALSE 2,)), """", VLOOKUP (RC [- 2], Systeem! C [- 1]: C, VALSE 2,))“ r.Resize (, 2). Exemplaar Application.DisplayAlerts = Vals r.Resize (, 2) .PasteSpecial xlPasteValues Application.CutCopyMode = Vals Vastgesteld r = ws. Waaier („B5“, ws. Cells.SpecialCells (xlCellTypeLastCell)).EntireRow.Resize (, 1). Compensatie (, 1) r.EntireRow.RowHeight = 15 r.Resize (, 1). Compensatie (, -1) .SpecialCells (xlCellTypeBlanks) .EntireRow.Delete Application.DisplayAlerts = Waar Application.ScreenUpdating = Waar Sub van het eind