Выборка данных

[segail]

Здравствуйте.

Как сделать выборку столбца 31 диапазон =Отчет!$AE$6:$AE$443

Необходимо при клике по кнопке “Поставщик” выбрать все данные листа "Отчет" столбца 31 диапазон =Отчет!$AE$6:$AE$443, и перенести их на лист “Поставщик” и вставить в столбец 1, начиная с третьей строки. В примере показано что при клике по кнопке “Поставщик” пользователь попадает в “Окно просмотра” в это время должна происходить и выборка данных. После закрытия окна просмотра, данные листа “Поставщик” удаляются.

[EducatedFool]

Необходимо при клике по кнопке “Поставщик” выбрать все данные листа "Отчет" столбца 31 диапазон =Отчет!$AE$6:$AE$443, и перенести их на лист “Поставщик” и вставить в столбец 1, начиная с третьей строки.

В чем проблема? Включаете макрорекордер - через несколько секунд получаете готовый код из 2 строк.

В модуль ЭтаКнига пишете что-то вроде такого:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    [Отчет!$AE$6:$AE$443].Copy [Поставщик!a3]
End Sub

Ну или переделываем существующий код:

Private Sub CommandButton4_Click()
    If Sheets("Отчет").Range("R1") = "" Or Sheets("Отчет").Range("N1") = "" Then
        MsgBox "База данных потребителя не доступна, выберите марку топлива.", 64, "Информационное сообщение"
    Else
        Application.ScreenUpdating = False
        Me.Hide: Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", True)"
        Sheets("Поставщик").Visible = True
        
        ' выводим данные
        [Отчет!$AE$6:$AE$443].Copy [Поставщик!a3]
        Sheets("Поставщик").PrintPreview

        ' дальше код будет выполняться только после закрытия окна предварительного просмотра
        [Поставщик!a3:a1000].Clear
        
        Sheets("Поставщик").Visible = False:        Application.ScreenUpdating = True
        Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", False)"
        Me.Show
    End If
End Sub

[segail]

А как убрать пробелы?
Необходимо чтобы заполнение со строки 3 листа “Поставщик” было последовательное, пес пробелов (выборка).

[EducatedFool]

А как убрать пробелы?

А откуда я знаю, какие там пробелы? Я же не смотрел информацию на листах...

Спросите почему?
Да потому, что в примере файла Вы не позаботились даже отобразить все скрытые листы,
не говоря уж про то, что Вы оставили в файле код скрытия панелей инструментов,
забыв дописать макрос, который бы отображал все скрытые панели при закрытии Вашей книги.

Неужто вы думаете, что при подобном неуважении к участникам форума Вам предложат готовое решение?


Насчёт кода - попробуйте так: (не проверял)

[Поставщик!a3:a1000].SpecialCells(xlCellTypeBlanks).Delete

[segail]

Хотел как лучше, получилось как всегда. В мыслях не было…
Пытался предоставить пример файла, так как он есть на самом деле.