TrabalhosGratuitos.com - Trabalhos, Monografias, Artigos, Exames, Resumos de livros, Dissertações
Pesquisar

EP3 - FEA - 2015

Por:   •  19/8/2015  •  Abstract  •  1.441 Palavras (6 Páginas)  •  162 Visualizações

Página 1 de 6

Const colA = 1

Const colB = 2

Const colC = 3

Const linA = 1

Const linB = 2

Const linC = 3

Function ProximaLinha(stg As String, lin As Integer) As Integer 'função proximalinha

Dim verify As Boolean

lin = lin + 1

verify = False

While Worksheets("Fornecedores").Cells(lin, colB) <> stg And verify = False

lin = lin + 1

If Worksheets("Fornecedores").Cells(lin, colB) = Empty Then

verify = True

End If

Wend

ProximaLinha = lin

If Worksheets("Fornecedores").Cells(lin, colB) = Empty Then

ProximaLinha = -1

End If

End Function

Function ALojaEh(lin As Integer) As String 'função alojaeh

Dim linaux2 As Integer

linaux2 = lin

While Worksheets("Fornecedores").Cells(linaux2, colA) = 0

linaux2 = linaux2 - 1

Wend

ALojaEh = Worksheets("Fornecedores").Cells(linaux2, colA)

End Function

Sub CriaTabRasc(produto As String) 'macro que cria a tabela rascunho

Dim lin As Integer

Dim ilin As Integer

lin = 1

ilin = 1

While lin > 0 'construção do rascunho

lin = ProximaLinha(produto, lin)

If lin > 0 Then

Worksheets("Rascunho").Cells(ilin, colB) = Worksheets("Fornecedores").Cells(lin, colC)

Worksheets("Rascunho").Cells(ilin, colA) = ALojaEh(lin)

End If

ilin = ilin + 1

Wend

End Sub

Sub ComplCol(col As Integer) 'macro que completa as colunas dos produtos faltantes

Dim lin As Integer

Dim Nforn As Integer

Dim linF As Integer

Dim colF As Integer

Dim linPF As Integer

Dim colPF As Integer

Dim linR As Integer

Dim colR As Integer

Dim linmaior As Integer

linmaior = 1

lin = 1

Nforn = 0

pedido = Worksheets("Rascunho").Cells(linB, col)

soma = 0

teste = False

colPF = colB

While (Worksheets("Rascunho").Cells(lin, colB)) <> 0 'conta o numero de fornecedores

lin = lin + 1

Nforn = Nforn + 1

Wend

linR = 1

linPF = 3

colPF = 2

linmaior = linR

soma = 0

cont = 1

teste = False

linR = 1

If Nforn = 0 Then

Worksheets("Produtos Faltantes").Cells(linC, col) = "SEM FORNECEDORES"

Else

While soma < Worksheets("Produtos Faltantes").Cells(linB, col) And teste = False

While Worksheets("Rascunho").Cells(linR, colB) <> 0 'define quais os maiores fornecedores

If Worksheets("Rascunho").Cells(linmaior, colB) < Worksheets("Rascunho").Cells(linR + 1, colB) Then

linmaior = linR + 1

End If

linR = linR + 1

Wend

soma = soma + Worksheets("Rascunho").Cells(linmaior, colB)

Worksheets("Produtos Faltantes").Cells(linPF, col) = Worksheets("Rascunho").Cells(linmaior, colA)

...

Baixar como (para membros premium)  txt (4.9 Kb)   pdf (45.8 Kb)   docx (13.3 Kb)  
Continuar por mais 5 páginas »
Disponível apenas no TrabalhosGratuitos.com