перенос столбцов из одной закладки в другую

[wildvad]

Как все понимают если бы у самого хватало знаний сделал, а так слёзно прошу вас.
Сделать нужно следующее, предположим есть два шита в одном есть данные, нужно банально предположим взять столбец А перенсти на другой шит в столбец начиная с ячейки В6 и ниже.

[EducatedFool]

Sub БанальныйПереносСтолбцаА()
    Лист1.UsedRange.EntireRow.Columns(1).Copy Лист2.[b6]
    ' или так:
    Worksheets("НазваниеЛиста1").UsedRange.EntireRow.Columns(1).Copy Worksheets("НазваниеЛиста2").[b6]
    ' ну а можно так:
    Worksheets("НазваниеЛиста1").[a1:a1500].Copy Worksheets("НазваниеЛиста2").[b6]
End Sub

[SAS888]

А зачем .EntireRow ?

[EducatedFool]

Сообщение от SAS888

А зачем .EntireRow ?

Дело в том, что функция Лист1.UsedRange может возвратить диапазон [c2:e8] (в случае, если столбец А пустой), и в этом случае код
Лист1.UsedRange.Columns(1).Copy Лист2.[b6] скопирует столбец С вместо A.
Использование же .EntireRow гарантирует, что будет скопирована используемая часть именно столбца A.

[wildvad]

первый вариант работает а вот второй немного гонит. третий не пробовал =)
Как говорится нужно будет, ещё немного помощи =)
Предположим до переноса столбцов нам нужно будет их сравнить по признаку кто больше тот и заменяет данные,если же даные больше остаётся всё по прежнему.

[EducatedFool]

Предположим до переноса столбцов нам нужно будет их сравнить по признаку кто больше тот и заменяет данные

Давайте без предположений...
Прикрепляете файл, и подробно описываете задание (что и куда надо скопировать, при каких условиях, и т.п.)
Так будет намного быстрее.

[Д'якон]

Что бы не создавать темы - напишу сюда.

Значит я решил себе облегчить жизнь и написать программный код, который бы сортировал данные и подсчитывал кол-во записей.

Есть 40 000 строк с инфой, последний столбец каждой строки содержит дату типа 01.01.96

Мне нужно строки в которых находиться искомая дата перенести на новый вновь созданный лист

Теперь вопросы:

1) как создать лист?
2) как скопировать нужную строку на другой лист зная адресс ячейки в этой строке?
ну и вроде все

[Д'якон]

как сравнить cell.Value с датой? Ругается на несовпадение типов. Пробовал через CDate, Format, DateValue все до одного места

[SAS888]

1) как создать лист?

Например, создаем новый лист и сразу присваиваем имя "Temp".

Sheets.Add.Name = "Temp"

На форуме есть "куча" примеров. Поищите. Но так или иначе, можно либо создать лист с именем, затем переместить его в нужное место, либо создать лист в нужном месте, а затем присвоить ему имя. Все равно два действия.

2) как скопировать нужную строку на другой лист зная адресс ячейки в этой строке?

Пусть нужно скопировать строку активного листа, содержащую ячейку (в примере "D5") в лист "Temp", в строку 10:

[D5].EntireRow.Copy Sheets("Temp").Rows(10)

Если же наоборот, нужно скопировать строку 10 активного листа в лист "Temp", в строку, содержащую ячейку (в примере "D5"), то так:

Rows(10).Copy Sheets("Temp").Rows([D5].Row)

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

как сравнить cell.Value с датой?

А какой формат у сравниваемой ячейки? Если не "дата", то в каком виде эта дата записана? Все операторы преобразования форматов подразумевают вполне конкретные аргументы. Приведите Ваш "проблемный" пример. В общем виде, ничего преобразовывать не нужно. Например, сравним содержимое ячейки "A1" с текущей датой:

If [A1] > Date Then MsgBox "Yes" Else MsgBox "No"

[wildvad]

как будет выглядеть код, что бы перенести рэнж полей из шита 1 в шит2 с указаний координату столбца откуда брать и координату столбца куда его вставить.

что то типо такого Worksheets("Sheet2").[a3:a1500].Copy Worksheets("Sheet1").[a4]

Этот скрипт работает немного криво, т.е. когда он выполняется он по чему то копирует первый столбец два раза =(