Вставить как значение, а не формула - PullRequest
0 голосов
/ 27 декабря 2018

Я надеюсь, что кто-то из этого форума сможет помочь с моим запросом ниже.

У меня есть рабочая книга с несколькими рабочими листами.Лист «Основная база данных» - это тот, который содержит все данные.Я создал пользовательскую форму, чтобы обеспечить функциональность поиска, чтобы пользователь мог даже выполнять поиск по определенному слову, и макрос будет смотреть на указанный столбец в таблице «Основная база данных» и, если критерии соответствуют в какой-либо строке (данные меняются месяц за месяцем, но не болеечем 1000 строк данных каждый месяц), затем копирует все идентифицированные строки и вставляет их в другой лист, который называется «Результаты».

Я считаю, что проблема заключается в том, что код вставляется в таблицу результатов как формула, а не как значение.и именно поэтому я получаю неактуальные результаты.

Я использовал приведенный ниже код для выполнения той же функции в какой-то другой книге, и она работала, но с этой книгой она не работает должным образом.

Sheet3.Range("A3:AQ500").Clear



Dim FirstAddress As String,WhatFor As String


Dim Cell As Range, Sheet AsWorksheet


WhatFor =InputBox("Please enter Originator Name.", "Search OriginatorName")


If WhatFor = Empty ThenExit Sub



For Each Sheet In Sheets


If Sheet.Name <>"Results" Then


With Sheet.Columns(6)


Set Cell = .Find(WhatFor,LookIn:=xlValues, LookAt:=xlPart)

If Not Cell Is Nothing Then


FirstAddress = Cell.Address


Do


Cell.EntireRow.Copy _


Destination:=Sheets("Results").Range("A"& Rows.Count).End(xlUp).Offset(1, 0)


Set Cell = .FindNext(Cell)


Loop Until Cell Is NothingOr Cell.Address = FirstAddress


End If


End With


End If


Next Sheet


Set Cell = Nothing

В настоящее время у меня есть данныев основной таблице базы данных из A3: AQ334 (334 строки и 43 столбца) код приводит правильное количество строк в соответствие с указанными критериями (например, основная таблица базы данных содержит 9 строк данных по сравнению с требуемымкритерии) но проблема есть;из 43 столбцов данных он вставляет приблизительно 10 средних данных столбцов, относящихся к указанным критериям, а другой - из верхнего A3 (в приведенном выше случае, когда у нас есть 9 строк данных, он вставляет из a3: a12 ).

...