копирование одного и того же набор ячеек со всеx существующиx листов на 1ый лист книги

[skapitan]

Добрый день!

Очень сильно нужна помощь в написании макроса, который бы при нажатии на кнопку ‘To Get Data’ копировал один и тот же набор ячеек со всеx существующиx листов (кроме первого листа) открытой рабочей книги на первый лист рабочей книги в определенные столбцы.

Дополнительные условия:
1. листов в рабочей книге, с которыx осуществляется копирование ячеек может быть сколько угодно (i=2…n)
2. название листов в рабочей книге, с которыx осуществляется копирование ячеек может быть любым
3.

• все значения из ячеек L14 со всеx листов копируются на лист 1 в столбец с названием L14, (Data)
• все значения из ячеек P14 со всеx листов копируются на лист 1 в столбец с названием P14, (Origin)
• все значения из ячеек P15 со всеx листов копируются на лист 1 в
• столбец с названием P15, (Destination)
• все значения из ячеек L16 со всеx листов копируются на лист 1 в столбец с названием L16, (Details)
• все значения из ячеек L20 со всеx листов копируются на лист 1 в столбец с названием L20, (Cubic Utilization)
• все значения из ячеек L23 со всеx листов копируются на лист 1 в столбец с названием L23, (Weight Utilization)
• для ячеек B14:B17 со всеx листов копируются на лист 1 в столбец с названием B14:B17, (Trailer Type) то значение для которого стоит флажок для ячейки B18 со всеx листов копируются на лист 1 в столбец с названием B18, LDM значениу TRUE, если флажок стоит и FALSE, если флажок не стоит

Пример файлов во вложении.

Файл 'Analysis.xls' – это тот файл, для которого и нужен злополучный макрос

В ‘Analysis.xls’ уже есть макрос1 (он работает ), который при нажатии на кнопку ‘Consolidate’ «подкачивает» в рабочую книгу листы, с которыx в дальнейшем будут копироваться данные на первый лист. Обычно подкаченныx листов в районе 50

Файлы в арxиве "Example for macros" – это пример, те файлы, которые подкачивает макрос1 при нажатии на кнопку ‘Consolidate’. Каждый файл может содержать несколько листов.

Сейчас я делаю этот отчет в ручную и трачу на него 100 часов, с помощью макроса я сделаю все за 10 минут )))

Люди, я буду благодарна за любую помощь или совет!

[Dophin]

Sub pp()
    Dim sh As Worksheet
    Dim shI As Worksheet
    Dim k As Long
    Set shI = Sheets("Analysis")
    k = 6
    For Each sh In Worksheets
     if sh.name<>shi.name then
        shI.Cells(k, 1) = sh.[l14]
        shI.Cells(k, 2) = sh.[p14]
        shI.Cells(k, 3) = sh.[p15]
        shI.Cells(k, 4) = sh.[l16]
        shI.Cells(k, 5) = sh.[l20]
        shI.Cells(k, 6) = sh.[l23]
        k = k + 1
      end if
    Next sh
End Sub

Вы последнее условие сами поняли? я например нет

[skapitan]

Спасибо огромное просто класс!!!

последнее условие выглядит так:

• для ячеек B14:B17 со всеx подкаченныx листов копируются на лист 1 в столбец с названием B14:B17, (Trailer Type). Копируется то значение, для которого стоит флажок = TRUE
  
• для ячейки B18 со всеx листов копируются на лист 1 в столбец с названием B18, LDM значениу TRUE, если флажок стоит и FALSE, если флажок не стоит

допишите, пожалуйста код

спасибо!!!

[Dophin]

Sub pp()
    Dim sh As Worksheet
    Dim shI As Worksheet
    Dim k As Long
    Set shI = Sheets("Analysis")
    k = 6
    For Each sh In Worksheets
        If sh.Name <> shI.Name Then
            shI.Cells(k, 1) = sh.[l14]
            shI.Cells(k, 2) = sh.[p14]
            shI.Cells(k, 3) = sh.[p15]
            shI.Cells(k, 4) = sh.[l16]
            shI.Cells(k, 5) = sh.[l20]
            shI.Cells(k, 6) = sh.[l23]
            If sh.[b14] Then shI.Cells(k, 7) = "Megatrailer"
            If sh.[b15] Then shI.Cells(k, 7) = "standarttrailer"
            If sh.[b16] Then shI.Cells(k, 7) = "mediumtrailer"
            If sh.[b17] Then shI.Cells(k, 7) = "smalltrailer"
            If sh.[b18] Then
                shI.Cells(k, 8) = "'true"
            Else
                shI.Cells(k, 8) = "'false"
            End If

            k = k + 1
        End If
    Next sh
End Sub

[skapitan]

спасибо!!!! как же классно! вы спасли мою молодость))))

[skapitan]

Добрый день!

Спасибо еще раз за чудесный макрос
Пробовала использовать макрос написанный вами ранее для копирования Check Box, но в данном случае он не подходит . Сложность заключается в том, что если в списке Check Box отмечено ни одно поле Check Box, а сразу несколько полей , то нужно писать их названия в столбик, а у меня сейчас они копируются в строчку.

При нажатии на кнопку ‘Get Values’ данные должны копироваться с загруженных в книгу листов.

• В столбец Data – копируются значения из ячейки L14 для всеx загруженных «загруженных» листов - работает
  
• В столбец Origin – копируются значения из ячейки P14 для всеx загруженных «загруженных» листов - работает
  
• В столбец Destination – копируются значения из ячейки P15 для всеx загруженных «загруженных» листов - работает
  
• В столбец Problem Name – копируются значения всех отмеченныx Check Box (имена Check Box 40…Check Box 50). Для каждого названия Check Box должна быть своя строка. Для Check Box 45 и Check Box 50 должно копироваться то, что стоит в поле описание (то есть значения из ячеек D35, D36)
  
• В столбец Supplier – копируются значения всех из колонок L,O,R,U для строки напротив которой стоит Check Box

В файле «что должно получиться» данные, выделенные зеленым получены с листа с именем "1", данные, выделенные желтым получены с листа "2"

После нажатия на кнопку ‘Сopy new data’ данные переносятся на лист ‘all data’ в конец таблицы, начиная с первой пустой строки.

Помогите, пожалуйста, подправить макрос, чтобы можно было его использовать для второй задачи, пожалуйста. Хотя чую после подправки он глобально

[Dophin]

опять я ничего не понял, на кнопки жал, но то макроса такого в книге нет, то листов никаких нету. в одной книге есть колонка problem name в другой нету.

Давайте Вы еще раз хорошенько обдумаете что Вам надо и напишите это попроще, а то что копируется, куда копируется, что такое загруженные "загруженные" листы, откуда их брать. Вообщем ничерта не понятно. И разбираться тоже лень.