Este fórum está sendo desativado

[Damnpiro]

Boa tarde amigos,

Criei uma macro para executar algumas funções e gostaria de saber se alguém pode me dar uma força. Porque eu gostaria que a macro "IMPRIMIR" funcionasse na linha em que a pessoa estiver selecionada da planilha "OF'S". E a minha macro é sempre executada na mesma linha, na qual gravei. E a segunda parte da macro eu queria que fosse automático, ou seja, uma busca de preenchimento baseando no código do produto da aba OF'S da COLUNA E da linha que a pessoa selecionar com os números das operações da planilha DATABASE.

EXPLICANDO:
Pessoa seleciona uma linha da aba OF'S e clica no botão imprimir.
Então a macro pega os valores das colunas E, G, A, B, O, J e K. E preenche na ETIQUETA 1 respectivamente, sem alterar a formatação.
Depois a macro analisa do código do produto selecionado (COLUNA E), e na aba de operações ele vê a sequência de operações e cola na ETIQUETA 2 E 3 na COLUNA A.

Por favor, quem puder ajudar eu ficaria muito agradecido.

Também, se alguém tiver alguma dica de como começar um curso online gratuito de VBA eu agradeceria. Sei lá, queria começar com algumas linhas de programação.

Obrigado!

Daniel.

[Damnpiro]

Por favor

[osvaldomp]

Experimente:

Código: Selecionar todos

Private Sub CommandButton1_Click()
 Dim r As Long
  With Sheets("ETIQUETA 1")
   .[A2] = Cells(ActiveCell.Row, 5)
   .[A3] = Cells(ActiveCell.Row, 7)
   .[B4] = Cells(ActiveCell.Row, 1)
   .[C4] = Cells(ActiveCell.Row, 2)
   .[A5] = Cells(ActiveCell.Row, 15)
   .[A6] = Cells(ActiveCell.Row, 10)
   .[A7] = Cells(ActiveCell.Row, 11)
   .PrintOut
  End With
  r = Sheets("DATABASE").[A:A].Find(Cells(ActiveCell.Row, 5)).Row
  With Sheets("ETIQUETAS 2 E 3")
   If .[A4] <> "" Then .Range("A4:A" & .Cells(Rows.Count, 1).End(3).Row).Value = ""
   .[A2] = Cells(ActiveCell.Row, 5)
   .[A4].Resize(7).Value = Application.Transpose(Sheets("DATABASE").Cells(r, 3).Resize(, 7).Value)
   .PrintOut
  End With
End Sub

obs. se o valor da coluna E, planilha OF'S não for encontrado na planilha DATABASE, caso do valor 404040 em E6, o código retornará erro.

[Damnpiro]

Osvaldomp, ficou simplesmente perfeito! Muito obrigado, de verdade!! Sensacional. Abraço!!