Este fórum está sendo desativado

[GuilhermePires]

Boa tarde pessoal!

Preciso da ajuda de vocês, que são feras no assunto...

É o seguinte:

Na ABA "Cronograma" tenho uma coluna B preenchida com o nome da peça e a partir da coluna N tenho um calendário do ano todo onde faço as programações para fabricação das peças.

O que eu preciso pode ser bem simples aos Senhores:
Preciso de uma macro onde a execução da mesma se dê a partir de um botão que me solicite o dia e a partir daí copie somente as células preenchidas daquela coluna (dia) + coluna B (nome da peça) cole na celula "Programação"

Segue uma imagem para facilitar!
CRONOGRAMA


PROGRAMAÇÃO


Basicamente é uma macro para fazer um resumo das peças a serem fabricadas no dia.

Valeuu

[osvaldomp]

Segue uma imagem para facilitar!

Sugestão: disponibilize diretamente aqui no fórum uma amostra do seu arquivo Excel, com alguns dados na planilha, cite um exemplo e mostre o respectivo resultado desejado.

Imagens não servem!

[GuilhermePires]

Osvaldo, bom dia!

Segue planilha... o resumo da programação eu gostaria de gerar a partir de um botão que me solicitasse o dia que eu quero gerar a programação. A programação por fim é apenas uma lista simples, sem nenhuma configuração a mais....

Obrigado pelo retorno até o momento.

Planejamento e controle de produção.xlsx

[osvaldomp]

Olá, @GuilhermePires .

Cole uma cópia do código abaixo no módulo da planilha Programação. Para acessar o módulo clique com o direito na guia daquela planilha e escolha Exibir Código.

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim LR As Long, LC As Long, c As Range
  If Target.Address <> "$A$1" Then Exit Sub
  If [A2] <> "" Then Range("A2:B" & Cells(Rows.Count, 1).End(3).Row) = ""
  With Sheets("Cronograma")
   On Error Resume Next
   .AutoFilterMode = False
   On Error GoTo 0
   LR = .Cells(Rows.Count, 4).End(3).Row
   LC = .Cells(4, Columns.Count).End(1).Column
   Set c = .Rows(4).Find(Sheets("Programação").[A1])
   If Not c Is Nothing Then
    .Range(.Cells(6, 4), .Cells(6, LC)).AutoFilter c.Column - 3, "<>"
    If .AutoFilter.Range.Columns(c.Column).SpecialCells(xlCellTypeVisible).Count > 1 Then
     .Range("E7:E" & LR).Copy [A2]
     .Range(.Cells(7, c.Column), .Cells(LR, c.Column)).Copy [B2]
    End If
    On Error Resume Next
    .AutoFilterMode = False
    On Error GoTo 0
   Else: MsgBox "DATA NÃO ENCONTRADA"
   End If
  End With
End Sub

funcionamento - insira a data desejada em A1 da planilha Programação, o código acima irá lançar a programação correspondente à data inserida.

[GuilhermePires]

MARAVILHA @osvaldomp !!

Muito obrigado, deu certo!