MACRO EXCEL
Trabalho Universitário: MACRO EXCEL. Pesquise 860.000+ trabalhos acadêmicosPor: BIM07 • 16/11/2014 • 2.827 Palavras (12 Páginas) • 250 Visualizações
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
...