Senhores,
Estou otimizando uma planilha e necessito de ajuda.
Tenho uma aba "CONTROLE" que é atualizada com os dados de outras duas "PMP" e "LOCALIZAÇÂO" quando "clico" no botão atualizar ele atualiza somente os dados vindo do "PMP" e não da "LOCALIZAÇÂO". Abaixo o que escrevi, perdoe a má arrumação.
Private Sub CommandButton1_Click()
lin = 3
linha = 8
Do Until Sheets("PMP").Cells(lin, 1) = ""
If Sheets("PMP").Cells(lin, 1) <> "" Then
Sheets("CONTROLE").Cells(linha, 1) = Sheets("PMP").Cells(lin, 1)
Sheets("CONTROLE").Cells(linha, 2) = Sheets("PMP").Cells(lin, 2)
Sheets("CONTROLE").Cells(linha, 4) = Sheets("PMP").Cells(lin, 5)
Sheets("CONTROLE").Cells(linha, 5) = Sheets("PMP").Cells(lin, 11)
Sheets("CONTROLE").Cells(linha, 6) = Sheets("PMP").Cells(lin, 13)
Sheets("CONTROLE").Cells(linha, 7) = Sheets("PMP").Cells(lin, 10)
Sheets("CONTROLE").Cells(linha, 8) = Sheets("PMP").Cells(lin, 14)
Sheets("CONTROLE").Cells(linha, 9) = Sheets("PMP").Cells(lin, 16)
linha = linha + 1
End If
lin = lin + 1
Loop
J = 4
H = 8
Do Until Sheets("LOCALIZAÇÃO").Cells(J, 14) = ""
If Sheets("LOCALIZAÇÃO").Cells(J, 14) = Sheets("CONTROLE").Cells(H, 1) Then
Sheets("CONTROLE").Cells(H, 3) = Sheets("LOCALIZAÇÃO").Cells(J, 13)
H = H + 1
End If
J = J + 1
Loop
End Sub
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 04/02/2014 9:07 am