Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Gravar Macro com va...
 
Notifications
Clear all

Gravar Macro com validação de linha

 
2024 - VBA & Macros
2 Posts
2 Usuários
0 Reactions
877 Visualizações
RSS
 fjjohann1
(@fjjohann1)
Posts: 9
Active Member
Topic starter
 

Ajuda.

tenho 2 planilhas, X e Y.
Na planilha X preencho uma célula A1 com numeral (1), na célula B1 coloco o numeral (10).
Na planilha Y, a coluna A possui numeração da linha 1 até a 10 com os números 1, 2, 3,.... sendo cada número em cada célula respectiva.
Ainda na planilha Y, na coluna B, as células estão vazias.

Preciso executar uma MACRO, que grave as informações preenchidas na planilha X (célula A1 e célula B1) na planlinha Y. Porém, deve ser gravado a informação preenchida na célula B1 da planilha X, na coluna B da planilha Y respectiva a linha em que se encontra o mesmo número (1) encontrado na célula A1 da planilha Y.

 
Postado : 17/07/2015 11:08 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Option Explicit

Sub AleVBA_16649()
     
    Dim i As Long
    Dim mf As Excel.Worksheet
    Dim r As Excel.Range
     
     
    Worksheets("X").Select
    Application.ScreenUpdating = 0
     
    Set mf = Sheets("Y")
     
    For i = 1 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
         
        Set r = mf.Range("A:A").Find( _
        What:=ActiveSheet.Cells(i, 1).Value, _
        LookIn:=xlValues, _
        LookAt:=xlWhole, _
        SearchOrder:=xlByRows, _
        SearchDirection:=xlNext, _
        MatchCase:=False, _
        SearchFormat:=False)
         
        If Not r Is Nothing Then r.Offset(, 1).Value = ActiveSheet.Cells(i, 2).Value
         
    Next i
     
End Sub

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

 
Postado : 17/07/2015 1:45 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico