Notifications
Clear all

Macro interagindo com duas planilhas... alguém ajuda?

14 Posts
2 Usuários
0 Reactions
1,401 Visualizações
(@physis)
Posts: 8
Active Member
Topic starter
 

Tenho um arquivo com duas planilhas. Uma chamada Gerenciamento, e a outra chamada Agenda. Na planilha Gerenciamento há espaços que devem ser preenchidos pelo usuário, e dois botões, um chamado Adicionar e outro chamado Remover. Quando Adicionar é acionado, as informações postas na Gerenciamento preenchem uma linha na Agenda (esse é o primeiro problema, pois a OS (Ordem de Serviço) que preencho por exemplo, com 13080, quando enviada para Agenda aparece 40049, mas todas as outras ficam corretas). E o meu pedido é que algum de vocês possa me disponibilizar um código da macro para que quando preencher a célula 4C (onde escreve-se o número de OS) na Gerenciamento e clicar no botão Remover, a linha na Agenda que tiver esse número na coluna B, seja removida. Grato por toda e qualquer ajuda.

 
Postado : 16/02/2015 9:41 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!

Favor postar seu arquivo modelo!!

Temos várias postagens com soluções para algo similar, use a pesquisa do fórum!
http://www.google.com.br/cse?cx=partner ... 0planilhas

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 16/02/2015 9:44 am
(@physis)
Posts: 8
Active Member
Topic starter
 

Tá aqui o anexo. Enquanto isso vou dar uma olhada nesse tópico que vc disponibilizou. Obrigado.

 
Postado : 16/02/2015 9:50 am
(@physis)
Posts: 8
Active Member
Topic starter
 

Ah! E mais uma coisa! Teria como eu fazer com que quando o botão Adicionar for ativado, ele insira as informações na agenda sendo eles separados por marca e serviço? Tipo:

CCE - Particular
xxxxxxxx | xxxxxxxx | xxxxxxxxx
xxxxxxxx | xxxxxxxx | xxxxxxxxx

AOC - Particular

xxxxxxxx | xxxxxxxx | xxxxxxxxx
xxxxxxxx | xxxxxxxx | xxxxxxxxx

CCE - Garantia

xxxxxxxx | xxxxxxxx | xxxxxxxxx
xxxxxxxx | xxxxxxxx | xxxxxxxxx

AOC - Garantia estendida

xxxxxxxx | xxxxxxxx | xxxxxxxxx
xxxxxxxx | xxxxxxxx | xxxxxxxxx

Agradeço se puder me ajudar com isso também, se não for pedir muito.

 
Postado : 16/02/2015 10:01 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Use esse código para o botão Adicionar

Sub AleVBA_14622_Adicionar()
Dim rng As Range
Dim I As Long
Application.ScreenUpdating = False
Set rng = Worksheets("Gerenciamento").Range("C4,C6,C8,C10,C12,C14")
    rng.Copy
    Worksheets("Agenda").Range("B65536").End(xlUp).Offset(1, 0).PasteSpecial Transpose:=True
    Worksheets("Gerenciamento").Range("C4,C6,C8,C10,C12,C14").ClearContents
     With Application
        .CutCopyMode = False
        .ScreenUpdating = True
    End With
End Sub

Obs: Eu não havia lido sua ultima postagem

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 16/02/2015 10:38 am
(@physis)
Posts: 8
Active Member
Topic starter
 

Muito obrigado ^^ e quanto ao remover?

 
Postado : 16/02/2015 10:45 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Será mesmo, que você quer remover?

Sub AleVBA_14622_Remover()
    Dim c As Range
    Dim cell As Range
    Dim SrchRng As Range
    Dim SrchStr As String
    Set SrchRng = Worksheets("Agenda").Range("B4:B100")
    SrchStr = Worksheets("Gerenciamento").Range("C4")
    For I = SrchRng.Rows.Count To 1 Step -1
        If Cells(I, "B") = SrchStr Then Rows(I).Delete
    Next I
End Sub

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 16/02/2015 10:53 am
(@physis)
Posts: 8
Active Member
Topic starter
 

Será bastante útil. Obrigado ^^ e apenas mais uma coisa. Como posso completar o código de Adicionar para que a linha tenha as bordas igual às das outras.
De novo, muito obrigado por toda ajuda.

 
Postado : 16/02/2015 10:58 am
(@physis)
Posts: 8
Active Member
Topic starter
 

Infelizmente o Remover não funcionou... :'(

 
Postado : 16/02/2015 11:02 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Você pode usar o Gravador de Macros

Sub BordasGM()
'
' BordasGM Macro
'

'
    Range("B3:G99").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
End Sub

Eu vou lhe mandar o modelo, depois.
Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 16/02/2015 11:11 am
(@physis)
Posts: 8
Active Member
Topic starter
 

Obrigado novamente! E vou esperar ^^

 
Postado : 16/02/2015 11:13 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Baixe o arquivo em:
https://www.sendspace.com/file/u1ciab

Faça todos os testes necessários!!

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 16/02/2015 11:15 am
(@physis)
Posts: 8
Active Member
Topic starter
 

Deu tudo certo! ^^ Obrigado por toda a ajuda. Ficou assim. (Segue anexo)

 
Postado : 16/02/2015 11:49 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Eu fico feliz em ajudar, obrigado pelo retorno!

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 16/02/2015 11:56 am