Vídeo recomendado
https://youtu.be/diWPPPhW-9E

[RESOLVIDO] Exportar Valor para Outra Planilha

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
pedrobb
Colaborador
Colaborador
Mensagens: 74
Registrado em: Qua Jul 25, 2012 12:42 pm
Localização: Montes Claros-MG

[RESOLVIDO] Exportar Valor para Outra Planilha

Mensagem por pedrobb »

Em Vba, como devo fazer para Exportar o valor da célula E17 (planilha Menu) para a última célula vazia da Coluna C (da planilha Dados)?
Editado pela última vez por pedrobb em Qui Mar 13, 2014 11:03 pm, em um total de 1 vez.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


pedrobb
Colaborador
Colaborador
Mensagens: 74
Registrado em: Qua Jul 25, 2012 12:42 pm
Localização: Montes Claros-MG

Re: Exportar Valor para Outra Planilha

Mensagem por pedrobb »

Consegui:

Private Sub Worksheet_Change(ByVal Target As Range)

Application.ScreenUpdating = False

Dim KeyCells As Range
Dim L As Integer

Set KeyCells = Range("E17")

If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing And Range("E17").Value <> "" Then
L = Application.WorksheetFunction.CountA(Sheets("Dados").Range("C:C")) + 1
Sheets("Dados").Range("C" & L).Value = Sheets("MENU").Range("E17").Value
Sheets("MENU").Range("E17").Value = ""
End If
End Sub


Avatar do usuário
Mauro Coutinho
Jedi
Jedi
Mensagens: 1561
Registrado em: Sáb Mar 13, 2010 8:10 pm
Localização: São José dos Pinhais - Pr

Re: Exportar Valor para Outra Planilha

Mensagem por Mauro Coutinho »

Uma outra sugestão:

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim UltimaLinha
    
    'Verifica a Ultima linha na planiha Dados Coluna "B"
    UltimaLinha = Worksheets("Dados").Cells(Worksheets("Dados").Rows.Count, 2).End(xlUp).Row
    
    Application.ScreenUpdating = False

    If Not Intersect(Target, Range("E17")) Is Nothing And Range("E17").Value <> "" Then
        Application.EnableEvents = False
    
        Worksheets("Menu").Range("E17").Copy Destination:=Worksheets("Dados").Range("C" & UltimaLinha)
        Worksheets("Menu").Range("E17").Value = ""
    
    
    End If

    Application.EnableEvents = True

End Sub
[]s


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder