Boa noite Pessoal,
Tô meio perdido quanto a uma rotina, até mesmo para explicar... espero que consiga ser claro.
Estou tentando desenvolver uma rotina que busque valores nas colunas F, G, H, I, J, L, M, N, O, P, Q, R, S na planilha "01"
Em seguida preciso transferir esses valores para a planilha "RELFOL", mas numa ordem diferente.
Os valores da coluna F irão para B10 na RELFOL.
Os valores da G para C10,
H em D10
e em seguida I para E10
e por último J em F10
Assim, seguindo essa ordem os próximos valores teriam que ir para a linha de baixo.
Terminada a varredura na linha 2 da planilha "01" começaria o mesmo na linha 3 e assim por diante, e saltando uma linha para seja separado cada indivíduo. Sempre seguindo a mesma ordem descrita anteriormente.
Tentar eu tentei fazer isso.. e muito. Afinal, tenho procurado me esforçar ao máximo antes de pedir ajuda...mas não tive muito êxito. Acredito que a rotina que cheguei mais perto daquilo que busco é a que segue abaixo, talvez sirva como ínicio...
Sub PROVE()
Dim c As Long
Dim wsThis As Worksheet
Dim ws As Worksheet
Set wsThis = ThisWorkbook.Sheets("01")
With wsThis
Dim i As Variant
Dim Plan As Worksheet
Dim lastCOL As Variant
Dim j As Variant
Dim Soma As Double
Dim DESC As Double
Set Plan = Sheets("01")
i = 2
j = 6
With Plan
lastCOL = .Cells(i, Columns.Count).End(xlToLeft).Column
End With
While Plan.Cells(i, 2).Value <> vbNullString
If Plan.Range("D" & i).Value = textbox1 Then
For j = 6 To lastCOL Step 5
If Plan.Cells(i, j) <> vbNullString Then
For c = 2 To .Cells(Rows.Count, 2).End(xlUp).Row
Sheets("RELFOL").Cells(2, x) = (Plan.Cells(i, j))
Next c
End If
Next j
End If
i = i + 1
j = 6
Wend
End With
End Sub
Postado : 23/07/2011 10:33 pm