Notifications
Clear all
2024 - VBA & Macros
2
Posts
2
Usuários
0
Reactions
966
Visualizações
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
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