Guru do Excel e Power BI

Enviado: **26 Mar 2016 às 14:51**

Boa tarde Amigos.

Tenho 3 planilhas dentro de um arquivo:
painel do aprovador
BD aguardando aprovação
BD aprovado

O aprovador usa apenas a planilha "painel do aprovador"
Ao abrir o Painel, o aprovador deve visualizar uma solicitação de cada vez para aprovar. Ao aprovar (clicar no botão aprovar) a macro transfere os dados do "BD aguardando aprovação" para o "BD aprovado"
O problema é que não tem como saber quantas linhas tem cada solicitação, pois pode ter entre 1 e 10 itens cada solicitação.

Se puderem me ajudar fico muito grato!

Sub aprovar()
SOLICITACAO = InputBox("Digite número da solicitação a ser aprovada:", "Aprovar", activececell)
alteracoes = 0

DENOVO:
Set WW = Sheets("BD aguargando aprovacao").Columns("a:a").Find(SOLICITACAO, lookat:=xlWhole)
If WW Is Nothing And alteracoes = 0 Then
MsgBox "Solicitação " & SOLICITACAO & " não consta no sistema!", vbExclamation, "Erro"
Exit Sub
End If

If WW Is Nothing Then
MsgBox "Solicitação " & SOLICITACAO & " aprovada com sucesso!", vbInformation, "Erro"
Exit Sub
End If

L = WW.Row
Set W = Sheets("BD aprovado").Columns("a:a").Find("", lookat:=xlWhole)
W.Value = SOLICITACAO
W.Offset(0, 1).Value = Sheets("BD aguargando aprovacao").Range("B" & L).Value
W.Offset(0, 2).Value = Sheets("BD aguargando aprovacao").Range("C" & L).Value
W.Offset(0, 3).Value = Sheets("BD aguargando aprovacao").Range("D" & L).Value
WW.EntireRow.Delete
alteracoes = alteracoes + 1
GoTo DENOVO:

End Sub

Guru do Excel e Power BI

Macro para transferir dados de um banco de dados para outro

Macro para transferir dados de um banco de dados para outro

Re: Macro para transferir dados de um banco de dados para ou