Macro para passar valores de um livro para outro

Boa tarde,

Preciso da vossa ajuda para o seguinte. Tenho dois ficheiros, sendo que um deve carregar o outro, a questão é que quero que seja manual e sem interrupções. Ou seja, a informação só passa quando um utilizador colocar "OK" no final da linha a passar para o outro ficheiro, caso contrário não deve passar.
As passagens deve ser seguindas, ou seja, se eu tiver uma linha "OK" a outra "KO" e ainda outra "OK", deve passar as duas "OK" sem linhas em branco, quando a "KO" passar a "OK" fica na primeira linha vazia que encontrar. Portanto os ficheiros não têm as linhas pela mesma ordem.

Se não me fiz entender digam que envio um ficheiro para entenderem o meu problema.

Obrigado

CJCM

Boa tarde!!

Poste seu arquivo modelo!

Obs: Eu só tenho acesso a link's em casa.....

Att

Bom dia,

Em anexo os ficheiro onde preciso de ajuda. O ficheiro de nome "conferências" vai carregar o ficheiro "Factura" em campos especificos (ver letras em baixo).

A informação só passa para o ficheiro "Facturas" quando no ficheiro "conferências" o utilizador colocar na coluna R "Validação para pagamento" "OK", enquanto estiver "KO" não deve passar. O meu problema é que se a linha 1 do ficheiro de "conferências" tiver "KO" e a linha 2 tiver "OK" a linha 2 deve passar para a primeira linha do ficheiro "Facturas", de forma que não fiquem linhas vazias e os "OK" vão sendo carregados de seguida, e quando um "KO" passar para "OK" deve ir para a primeira linha vazia que encontrar, portanto a ordem dos ficheiros é diferente, mas o que interessa é passar, não interessa a ordem.

Não sei se fui clara a explicar, peço desculpa.


http://we.tl/JoUOgVSUDI

Obrigado pela ajuda!

CJCM

Bom dia,

Entretanto já consegui construir uma macro, no entanto está a dar-me um erro que não consigo perceber o porquê, assinalei a linha com <--------


Option Explicit

Sub Teste()


Dim Wsht As Worksheet, WbkCF As Workbook, WbkPF As Workbook, Path As String, WshtTA As Worksheet, WshtFR As Worksheet
Dim cell As Range, WshtCR As Worksheet, Rng As Range

Set WbkPF = Workbooks("Pag_Fornecedores_2015 - Template.xlsb")

With WbkPF
Set WshtFR = .Worksheets("Facturas-Requisições")
Set WshtTA = .Worksheets("Tabelas Auxiliares")
End With

With WshtTA
Path = .Range("G14")
If Right(Path, 1) <> "\" Then
Path = Path & "\"
Else
Path = Path
End If
End With


Set WbkCF = Workbooks.Open(Path & "Conferência de facturas - Template.xlsb", UpdateLinks:=True, ReadOnly:=True)

Debug.Print WbkCF.Name
' Desbloquear todas as worksheets

For Each Wsht In WbkPF.Worksheets
With Wsht
If .ProtectContents Then
.Unprotect Password:="--------" '<----------COLOCAR PASSWORD
End If
End With
Next Wsht


' copiar informação da worksheet "Conferências Req." do workbook "Conferência Facturas" para a worksheet "Facturas-Requisições" do workbook "Pag_Fornecedores_2015 - Template"
' sempre que esteja registado "OK" na coluna R da worksheet "Conferências Req." do workbook "Conferência Facturas"

Set WshtCR = WbkCF.Worksheets("Conferências Req.")

With WshtCR

For Each cell In .Range("s8:s" & .Range("s1048576").End(xlUp).Row)
If cell.Value = "OK" Then
With WshtFR
Set Rng = .Range("H:H").Find(what:=cell.Offset(0, -7), LookIn:=xlValues, lookat:=xlWhole)
If Rng Is Nothing Then
' adicionar prazo pagamento
' código abaixo copia a data da factura worksheet "Conferências Req." do workbook "Conferência Facturas" para a worksheet "Facturas-Requisições" do workbook "Pag_Fornecedores_2015 - Template"
cell.Offset(0, -7).Copy
.Cells(.Range("1048576").End(xlUp).Row + 1, .PasteSpecial xlPasteValues <-----------

' adicionar restante código para copiar restante informação de interesse

End If
End With
End If
Next cell

End With

End Sub


Obrigado

CJCM