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

MACRO EXCEL

Trabalho Universitário: MACRO EXCEL. Pesquise 861.000+ trabalhos acadêmicos

Por:   •  16/11/2014  •  2.827 Palavras (12 Páginas)  •  268 Visualizações

Página 1 de 12

Sub COPIA_INGREDIENTE()

'

' COPIA_INGREDIENTE Macro

'

'

Sheets("APLICATIVO").Range("F12:G18").Select

Selection.Copy

Sheets("BANCO").Select

Range("H103:I109").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Application.CutCopyMode = False

Sheets("BANCO").Range("A1").Select

Sheets("APLICATIVO").Select

Range("J12").Select

ActiveWorkbook.Save

End Sub

'---------------------------------------------------------------------------------------------------'

'---------------------------COPIAR INGREDIENTE v -----------------------------------------------------'

Sub COPIA_INGRE2()

LINH = 168

Do Until Sheets("BANCO").Cells(LINH, 9) = ""

LINH = LINH + 1

Loop

If Sheets("BANCO").Range("h103") = "v" Then

Sheets("BANCO").Cells(LINH, 9) = Sheets("BANCO").Range("i103").Value

Sheets("BANCO").Cells(LINH, 10) = Sheets("BANCO").Range("j103").Value

Else

End If

Do Until Sheets("BANCO").Cells(LINH, 9) = ""

LINH = LINH + 1

Loop

If Sheets("BANCO").Range("h104") = "v" Then

Sheets("BANCO").Cells(LINH, 9) = Sheets("BANCO").Range("i104").Value

Sheets("BANCO").Cells(LINH, 10) = Sheets("BANCO").Range("j104").Value

Else

End If

Do Until Sheets("BANCO").Cells(LINH, 9) = ""

LINH = LINH + 1

Loop

If Sheets("BANCO").Range("h105") = "v" Then

Sheets("BANCO").Cells(LINH, 9) = Sheets("BANCO").Range("i105").Value

Sheets("BANCO").Cells(LINH, 10) = Sheets("BANCO").Range("j105").Value

Else

End If

Do Until Sheets("BANCO").Cells(LINH, 9) = ""

LINH = LINH + 1

Loop

If Sheets("BANCO").Range("h106") = "v" Then

Sheets("BANCO").Cells(LINH, 9) = Sheets("BANCO").Range("i106").Value

Sheets("BANCO").Cells(LINH, 10) = Sheets("BANCO").Range("j106").Value

Else

End If

Sub COPIA_INGREDIENTE()

'

' COPIA_INGREDIENTE Macro

'

'

Sheets("APLICATIVO").Range("F12:G18").Select

Selection.Copy

Sheets("BANCO").Select

Range("H103:I109").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Application.CutCopyMode = False

Sheets("BANCO").Range("A1").Select

Sheets("APLICATIVO").Select

Range("J12").Select

ActiveWorkbook.Save

End Sub

'---------------------------------------------------------------------------------------------------'

'---------------------------COPIAR INGREDIENTE v -----------------------------------------------------'

Sub COPIA_INGRE2()

LINH = 168

Do Until Sheets("BANCO").Cells(LINH, 9) = ""

LINH = LINH + 1

Loop

If Sheets("BANCO").Range("h103") = "v" Then

Sheets("BANCO").Cells(LINH, 9) = Sheets("BANCO").Range("i103").Value

Sheets("BANCO").Cells(LINH, 10) = Sheets("BANCO").Range("j103").Value

Else

End If

Do

...

Baixar como (para membros premium)  txt (32.3 Kb)  
Continuar por mais 11 páginas »
Disponível apenas no TrabalhosGratuitos.com