Alterar celulas, selecionando outras

2024 - VBA & Macros

Post Recente por klarc28 7 anos atrás

7 Posts

3 Usuários

0 Reactions

1,345 Visualizações

RSS

IVAIL

(@ivail)

Posts: 11

Active Member

Topic starter

Bom dia Pessoal,

Eu tenho uma planilha com a aba produtos grade, nela contem todos os tamanhos dos produtos, em outra aba tenho uma planilha de pedidos, o que ei preciso é quando for selecionado determinas células, a grade do produto mude de acordo com a grade cadastrada, segue em anexo o modelo.

Postado : 07/02/2018 8:39 am

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

IVAIL,

Bom dia!

Não entendi nada...

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 07/02/2018 8:50 am

klarc28

(@klarc28)

Posts: 971

Prominent Member

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)


Dim linha As Long

linha = Target.Row

Dim linha2 As Long

linha2 = 2
Dim achou As Boolean
achou = False

While Plan1.Cells(linha2, 1).Value <> "" And achou = False

If Plan1.Cells(linha2, 1).Value = Plan2.Cells(linha, 1).Value Then
achou = True

Plan2.Cells(linha, 2).Value = Plan1.Cells(linha2, 2).Value
Plan2.Cells(linha, 3).Value = Plan1.Cells(linha2, 3).Value
Plan2.Cells(linha, 4).Value = Plan1.Cells(linha2, 4).Value
Plan2.Cells(linha, 5).Value = Plan1.Cells(linha2, 5).Value
Plan2.Cells(linha, 6).Value = Plan1.Cells(linha2, 6).Value
Plan2.Cells(linha, 7).Value = Plan1.Cells(linha2, 7).Value
Plan2.Cells(linha, 8).Value = Plan1.Cells(linha2, 8).Value



End If
linha2 = linha2 + 1
Wend


End Sub

Postado : 07/02/2018 9:14 am

IVAIL

(@ivail)

Posts: 11

Active Member

Topic starter

Klarc 28,

Obrigado,

mas o que eu preciso é que quando selecionar a célula, mude o cabeçalho, o de está o T1, T2.... altere para a grade do produto.

Postado : 07/02/2018 10:17 am

klarc28

(@klarc28)

Posts: 971

Prominent Member

Não entendi. Dê exemplo.

Postado : 07/02/2018 10:23 am

IVAIL

(@ivail)

Posts: 11

Active Member

Topic starter

vamos lá,

o produto AD22061 na aba grade tem os tamanhos 38 - 40 - 42 - 44 - 46 - 48
quando eu selecionar qualquer celula da planilha digitação entre b2 e H2, o cabeçalho que está T1,T2.... mude para os tamanhos que está na aba grade que é 38 - 40 - 42 ......

Postado : 07/02/2018 10:30 am