Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
MACRO SELECIONAR CO...
 
Notifications
Clear all

MACRO SELECIONAR COLUNAS, COPIAR E COLAR DADOS

 
2024 - VBA & Macros
6 Posts
1 Usuários
0 Reactions
887 Visualizações
RSS
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde, fiz uma macro para localizar dados a partir de uma referencia extraída de uma lista da validação de dados, até ai blz, mas preciso ocultar a coluna anterior da célula ativa, ou seja, quando na célula A1 selecionar a data desejada como por exemplo dia 05/01/15 e clicar no botão vermelho, a macro se posicionará na data correspondente, mas quero que oculte a data anterior neste caso o dia 26/12/14 nas colunas E:F, e na mesma macro já selecionada a data desejada, gostaria que os dados das colunas C e D fossem copiadas se houver na células na coluna B o número da ordem de serviço, colando como valores, conforme as legendas %P e %C.

Sub teste2()

Dim coluna As Integer
coluna = Range("a2").Value + 4

Dim linha As Integer
linha = 1
'MsgBox coluna
Cells(linha, coluna).Select
Cells.Interior.ColorIndex = 0
ActiveCell.Cells.Interior.ColorIndex = 6

End Sub

silvajmp

Planilhando 12.01.15(1).zip
 
Postado : 12/01/2015 9:55 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde!!

Você consegue adaptar o restante, eu acho que eu não entendi muito bem :oops: :oops: 

Sub AleVBA_14097()
    Dim dMes As Date, cfind As Range
    Dim rIntervalo As Range
    
    Set rIntervalo = Range("C3:D100")
    
    With Worksheets("Plan1")
        dMes = .Range("A1").Value
        rIntervalo.Copy
            Set cfind = .Range("E1:XFD1").Find(what:=CDate(dMes), LookIn:=xlValues, lookat:=xlWhole)
            If Not cfind Is Nothing Then
                cfind.Offset(2, 0).PasteSpecial xlPasteValues
            End If
        End With
    Application.CutCopyMode = False
End Sub

Att

 
Postado : 12/01/2015 11:17 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Alexandre boa tarde, ficou muito bom no exemplo, mas adaptei na minha planilha e não deu o mesmo resultado, na verdade não resultado algum, kkk, pode me ajudar. Estou enviando o modelo do layout da minha planilha.

silvajmp

Planilhando 12.01.15(2).zip
 
Postado : 14/01/2015 1:47 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite!!

Eu creio ter entendido errado, pios você alterou 

Set rIntervalo = Range("K7:K13") 'COLUNA QUE SERÁ COPIADA

essa linha, me deixando entender, que você pretende pegar o valor da coluna para Coluna C:D, seria isso mesmo? :( :( :? :?

Att

 
Postado : 14/01/2015 5:15 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Alexandre valeu deu certo...

silvajmp

 
Postado : 14/01/2015 5:53 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite!!

Que bom que resolveu, obrigado pelo retorno!

Att

 
Postado : 14/01/2015 5:58 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico