Notifications
Clear all

Copiar valores para outra folha

5 Posts
2 Usuários
0 Reactions
1,153 Visualizações
(@joanas)
Posts: 48
Eminent Member
Topic starter
 

Boa tarde,

estou a tentar criar uma macro que percorra várias linhas/colunas da sheet1 do book1, quando encontrar uma celula amarela copia o valor da célula para a mesma celula da folha 2 do book 2. :?

Podem ajudar?

Obrigada :D :roll:

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

Boa tarde!!

Você pode usar a pesquisa do fórum para ver as dúvidas que tem uma relação com a sua!
http://www.google.com.br/cse?cx=partner ... gsc.page=1

Att

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

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

Joanas,
provavelmente para ti está claro o que deseja/espera, porem para quem não vive seu dia a dia fica difícil entender.
"percorra várias linhas/colunas" --> O que define detalha Varias??? São 2 linhas/duas colunas ou talvez 300x400 etc....
"encontrar uma célula amarela" -->
O amarelo é cor de fundo ou da fonte?
é aplicado manualmente ou formatação condicional;
é o amarelo básico ou alguma de suas variações
Poste l um modelo de sua planilha, que seja significativo da estrutura/layout dos dados

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

 
Postado : 16/01/2015 10:10 am
(@joanas)
Posts: 48
Eminent Member
Topic starter
 

O que eu já fiz até agora:

Sub colardados()

Dim lastRow As Long
Dim lasColumn As Integer

lastRow = Cells(Cells.Rows.Count, "A").End(xlUp).Row
lastcolumn = Cells(1, Cells.Columns.Count).End(xlToLeft).Column

For i = 1 To lastRow
For Column = 1 To lastcolumn

If Cells(i, Column).Interior.ColorIndex = 36 Then
Cells(i, Column).Select
Selection.Copy
celula = Cells(i, Column)
Workbooks("Book2.XLS").Sheets("Sheet1").Select
ActiveSheet.Paste
Workbooks("Book1.XLS").Sheets("Teste1").Select
End If
i = i + 1
j = j + 1
Next
Next

End Sub

 
Postado : 16/01/2015 10:23 am
(@joanas)
Posts: 48
Eminent Member
Topic starter
 

Joanas,
provavelmente para ti está claro o que deseja/espera, porem para quem não vive seu dia a dia fica difícil entender.
"percorra várias linhas/colunas" --> O que define detalha Varias??? São 2 linhas/duas colunas ou talvez 300x400 etc....
"encontrar uma célula amarela" -->
O amarelo é cor de fundo ou da fonte?
é aplicado manualmente ou formatação condicional;
é o amarelo básico ou alguma de suas variações
Poste l um modelo de sua planilha, que seja significativo da estrutura/layout dos dados

Não tem limite de linhas/colunas.. diaramente recebo o mesmo ficheiro com menos ou mais linhas..
o amarelo é a cor de fundo
o ficheiro é manual, mas o ficheiro onde vou colar tem algumas celulas com formatação, por isso nao posso copiar logo tudo para o outro ficheiro.
é uma das variações. (36)

por favor veja a minha outra mensagem

obrigada

 
Postado : 16/01/2015 10:26 am