Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
[RESOLVIDO] Exportar Valor para Outra Planilha
-
- Colaborador
- Mensagens: 74
- Registrado em: Qua Jul 25, 2012 12:42 pm
- Localização: Montes Claros-MG
[RESOLVIDO] Exportar Valor para Outra Planilha
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.
-
- Colaborador
- Mensagens: 74
- Registrado em: Qua Jul 25, 2012 12:42 pm
- Localização: Montes Claros-MG
Re: Exportar Valor para Outra Planilha
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
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
- Mauro Coutinho
- 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
Uma outra sugestão:
[]s
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