none
Transferir dados para outra Plan com variação sequencial RRS feed

  • Discussão Geral

  • 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. 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

     

     

     

    domingo, 24 de julho de 2011 03:52