Вопрос : Экземпляр и данные по затира если сопрягано.

Hi специалисты,

I хотел были бы спросить помощь специалистов для писания сценария к которому может crosscheck время (Column_A) внутри примирите лист с временем (Column_B) в листе системы. Если сопрягано, скопируйте сопрягаемые данные по рядка Column_B и c (листа системы) и наклеите его на примирите лист, то (потребность последовать за последовательностью времени).

I ручно скопировало немногие данные для специалистов для того чтобы получить более лучший взгляд. Специалисты упования могут помочь мне создать это feature.


 class= " lastRow
>Attachments " имени " class= class= " значение "
>
class= " fileInfo "
title= " " filename class= " CopyPasteRow.xls (151 KB)  яваскрипт " href= " " attachmentDetails class= (тип архива детали)  
class= " описание "
xls
class=
>
class=

Ответ : Экземпляр и данные по затира если сопрягано.

Конечно
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

Sub Crosscheck ()
Application.ScreenUpdating = ложно
Тусклый r как ряд
Тусклый ws как рабочий лист
Установите ws = рабочий лист («примирите»)
Установите r = ws. Ряд («B5», ws. Cells.SpecialCells (xlCellTypeLastCell)).EntireRow.Resize (, 1).Offset (, 1)
r.FormulaR1C1 = «=IF (ISNA (VLOOKUP (RC [- 1], система! C: C, 1, ЛОЖНЫЕ)), """", VLOOKUP (RC [- 1], система! C: C, 1, ЛОЖНЫЕ))»
r.Offset (, 1).FormulaR1C1 = «=IF (ISNA (VLOOKUP (RC [- 2], система! C [- 1]: C, 2, ЛОЖНЫЕ)), """", VLOOKUP (RC [- 2], система! C [- 1]: C, 2, ЛОЖНЫЕ))»
r.Resize (, 2).Copy
Application.DisplayAlerts = ложно
r.Resize (, xlPasteValues 2).PasteSpecial
Application.CutCopyMode = ложно
Установите r = ws. Ряд («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 = True
Application.ScreenUpdating = True
Подводная лодка конца
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us