Вопрос : Скопируйте весь рядок и наклеите в новое рабочий лист Эксел VBA

Hi там,

Hoping кто-то может помочь с Кодим ниже. Я нов на VBA и исследовал дороги достигнуть этого на сети и это я имею таким образом
Dim LastRow far.

Sub SendtoStorage () как Integer
LastRow = листы («ResultsLog»). Range («b» & Rows.Count). Конец (xlUp). Br/> Row'< Select

'Copy весь если c ничего назначение _
Then
LastRow = LastRow + 1
olData.EntireRow.Copy:, то=Sheets («Storage»). Конец With

I am If
Next
конца
Range («a» & LastRow) пытаясь скопировать весь рядок от листа «ResultsLog», ряд «B4: Y253» если рядки заселены. Я хочу рядки быть скопированным к листу «хранению» назначения начиная в A2. Данные постоянно будут добавлены к этому поэтому они должны найти следующему пустому рядку и наклеить данные в
Once a etc. колонки были скопированы эти, котор данные, оно нужно освободить содержание в «ResultsLog», колебается " B4: Y253».

Hope это делает чувство. Я уверен я полно неправильно с моим Кодим, но реально попыталось дать ему идти. Когда я использую рекордера он не работает.
class=

Ответ : Скопируйте весь рядок и наклеите в новое рабочий лист Эксел VBA

Это Кодий будет работать для вы хотите, я может изменить его для того чтобы искать более пустые значения, право теперь оно только, котор они проверяют для того чтобы увидеть если значения в колонке b пусты. Я прилагал некоторые проверки данных с случайно пустыми клетками в B. колонки. Макрос принимает вы имеет коллектор колонки на листе хранения.

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41: 42: 43: 44: 45: 46: 47: 48: 49: 50:

Sub checkForValue () Тусклое currentSheet как рабочий лист, ws как рабочий лист Тусклое currentSelection как ряд, цель как ряд, subTarget как ряд Тусклое screenUpdate как булевско screenUpdate = Application.ScreenUpdating Application.ScreenUpdating = ложно 'программа записывает в настоящее время рабочий лист и в настоящее время выбор 'настолько в конце программы вы можете иметь программу пойти назад к 'где вы были первоначально Установите currentSheet = Application.ActiveSheet Установите currentSelection = Application.Selection Установите цель = ряд («B4: B253») Для каждого subTarget в цели Если "" <> subTarget.Value после этого Ряд (subTarget, subTarget.End (xlToRight)). Экземпляр Рабочий лист («хранение»). Отборно Ряд («A1»). Активируйте 'проверите для того чтобы увидеть если клетка A2 пуста, то если она не пуста после этого 'необходимо отожмите Crtl + вниз стрелка динамический, для того чтобы найти последнюю клетку Если ActiveCell.Offset, то (1, 0). "" <> Значения после этого Selection.End (xlDown). Отборно Закончитесь если 'возместите адрес активно клетки 1 рядком и после этого наклеите, 'если вы не сделали это, то вы переписывали бы старые значения ActiveCell.Offset (1, 0). Активируйте 'наклеите все xlPasteAll ActiveCell.PasteSpecial Рабочий лист («ResultsLog»). Отборно Закончитесь если Затем Application.CutCopyMode = ложно currentSheet.Select currentSelection.Select Application.ScreenUpdating = ScreenUpdating Установите currentSheet = ничего Установите ws = ничего Установите currentSelection = ничего Установите цель = ничего Установите subTarget = ничего Закончите подводную лодку