vba-excel 101 a 120

•

Humanas / Sociais

0

Leandro Cadum

29/09/2020

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

Sub GeraRelatorio()
 
 Dim i As Integer, j As Integer, k As Integer, vnLinha As Integer, vnLinhaEtq As Integer, vnLinhaAux As Integer, vnSomaLinha As Integer
 
 Dim vnOpl As Integer, vnExisteC2 As Integer, vsEtq As String, vsOpl As String
 
 Dim vnTotalCiclo2 As Double, vnTotalCiclo1 As Double, vsTurnos2 As String, vsTurnos1 As String, vsComentarioT1 As String, vsComentarioT2 As String
 
 
 Sheets("relsolda").Range("A3:BW50000").ClearContents
 Sheets("relsolda").Range("A3:BW50000").ClearComments
 
 'Produto
 Sheets("relsolda").Cells(3, 2).Value = Sheets("prog diaria").Cells(2, 2).Value
 
 
 vnLinha = 3 ' Linha Planilha
 vnOpl = 1 ' Pastas OPL 3 até 9
 vnEtq = 1 ' Pastas ETQ 1 até 6
 i = 7 ' Lotes principais
 vnLinhaEtq = 11
 While i <= 16
 'Em quais planilhas pegar
 vnExisteC2 = 0
 vsEtq = "etq" & CStr(vnEtq)
 vsOpl = "OPL" & CStr(vnOpl)
 
 ' Verifica se o lote principal não é nulo
 If Not IsEmpty(Sheets(2).Cells(i, 1)) And Sheets(2).Cells(i, 1) <> "TOTAL:" Then
 'Percorre as tabelas estq
 vnLinhaEtq = 11
 vnExisteC2 = 0
 vnExisteC1 = 0
 vnSomaLinha = 0
 While vnLinhaEtq <= 61
 vnExisteC2 = 0
 vnExisteC1 = 0
 vnSomaLinha = 0
 
 'Verifica o totalizador de cada tabela
 If Sheets(vsEtq).Cells(vnLinhaEtq, 23).Value > 0 Then
 
 
 'Percorre dentro da tabela
 For j = vnLinhaEtq - 5 To vnLinhaEtq - 1
 vsTurnos2 = ""
 vnTotalCiclo2 = 0
 vsTurnos1 = ""
 vnTotalCiclo1 = 0
 vsComentarioT1 = ""
 vsComentarioT2 = ""
 
 
 'Verifica cavidade
 If Sheets(vsEtq).Cells(j, 24).Value > 0 Then
 'Ciclo 1
 vsTurnos1 = ""
 vnTotalCiclo1 = 0
 vsComentarioT1 = ""
 
 For k = 15 To 21 Step 3
 
 If Sheets(vsEtq).Cells(j, k).Value > 0 Then
 vnTotalCiclo1 = vnTotalCiclo1 + Sheets(vsEtq).Cells(j, k).Value
 
 If vsTurnos1 <> "" Then
 vsTurnos1 = vsTurnos1 & "*"
 vsComentarioT1 = vsComentarioT1 & vbCrLf
 End If
 vsComentarioT1 = vsComentarioT1 & "T" & Right(Sheets(vsEtq).Cells(vnLinhaEtq - 7, k - 1).Value, 1) & " = " & CStr(Round(Sheets(vsEtq).Cells(j, k).Value))
 vsTurnos1 = vsTurnos1 & Right(Sheets(vsEtq).Cells(vnLinhaEtq - 7, k - 1).Value, 1)
 
 End If
 Next k
 
 'Ciclo 2
 vsTurnos2 = ""
 vnTotalCiclo2 = 0
 vsComentarioT2 = ""
 For k = 16 To 22 Step 3
 
 If Sheets(vsEtq).Cells(j, k).Value > 0 Then
 vnTotalCiclo2 = vnTotalCiclo2 + Sheets(vsEtq).Cells(j, k).Value
 If vsTurnos2 <> "" Then
 vsTurnos2 = vsTurnos2 & "*"
 vsComentarioT2 = vsComentarioT2 & vbCrLf
 End If
 vsComentarioT2 = vsComentarioT2 & "T" & Right(Sheets(vsEtq).Cells(vnLinhaEtq - 7, k - 2).Value, 1) & " = " & CStr(Round(Sheets(vsEtq).Cells(j, k).Value))
 vsTurnos2 = vsTurnos2 & Right(Sheets(vsEtq).Cells(vnLinhaEtq - 7, k - 2).Value, 1)
 End If
 Next k
 
 'Inserindo os dados nas cavidades corretas (verificar tratamento futuramente. Fiz dessa forma por causa da cavidade 0)
 If vnTotalCiclo1 <> 0 Or vnTotalCiclo2 <> 0 Then
 
 If vnTotalCiclo1 <> 0 Then
 vnSomaLinha = 1
 End If
 
 If Sheets(vsEtq).Cells(j, 23).Text = "1 a 20" Then
 
 If vnTotalCiclo1 <> 0 Then
 Sheets("relsolda").Cells(vnLinha, 8).Value = vnTotalCiclo1
 Sheets("relsolda").Cells(vnLinha, 7).Value = vsTurnos1
 If InStr(1, vsTurnos1, "*") > 0 Then
 Sheets("relsolda").Cells(vnLinha, 7).AddComment
 Sheets("relsolda").Cells(vnLinha, 7).Comment.Visible = False
 Sheets("relsolda").Cells(vnLinha, 7).Comment.Text Text:=vsComentarioT1
 End If
 Sheets("relsolda").Cells(vnLinha, 6).Value = Sheets(vsEtq).Cells(vnLinhaEtq - 9, 14).Value
 Sheets("relsolda").Cells(vnLinha, 4).Value = Sheets(vsOpl).Cells(47, 1).Value
 Sheets("relsolda").Cells(vnLinha, 5).Value = Sheets(vsOpl).Cells(47, 4).Value
 Sheets("relsolda").Cells(vnLinha, 3).Value = Sheets(2).Cells(i, 1).Value
 Sheets("relsolda").Cells(vnLinha, 1).Value = Sheets(1).Cells(2, 5).Value
 vnSomaLinha = 1
 vnExisteC1 = 1
 End If
 
 If vnTotalCiclo2 <> 0 Then
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 8).Value = vnTotalCiclo2
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 7).Value = vsTurnos2
 If InStr(1, vsTurnos2, "*") > 0 Then
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 7).AddComment
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 7).Comment.Visible = False
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 7).Comment.Text Text:=vsComentarioT2
 End If
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 6).Value = Sheets(vsEtq).Cells(vnLinhaEtq - 9, 14).Value
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 4).Value = Sheets(vsOpl).Cells(48, 1).Value
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 5).Value = Sheets(vsOpl).Cells(48, 4).Value
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 3).Value = Sheets(2).Cells(i, 1).Value
Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 1).Value = Sheets(1).Cells(2, 5).Value
 vnExisteC2 = 1
 End If
 
 End If
 
 If Sheets(vsEtq).Cells(j, 23).Text = "21 a 40" Then
 If vnTotalCiclo1 <> 0 Then
 Sheets("relsolda").Cells(vnLinha, 18).Value = vnTotalCiclo1
 Sheets("relsolda").Cells(vnLinha, 17).Value = vsTurnos1
 If InStr(1, vsTurnos1, "*") > 0 Then
 Sheets("relsolda").Cells(vnLinha, 17).AddComment
 Sheets("relsolda").Cells(vnLinha, 17).Comment.Visible = False
 Sheets("relsolda").Cells(vnLinha, 17).Comment.Text Text:=vsComentarioT1
 End If
 Sheets("relsolda").Cells(vnLinha, 16).Value = Sheets(vsEtq).Cells(vnLinhaEtq - 9, 14).Value
 Sheets("relsolda").Cells(vnLinha, 4).Value = Sheets(vsOpl).Cells(47, 1).Value
 Sheets("relsolda").Cells(vnLinha, 5).Value = Sheets(vsOpl).Cells(47, 4).Value
 Sheets("relsolda").Cells(vnLinha, 3).Value = Sheets(2).Cells(i, 1).Value
 Sheets("relsolda").Cells(vnLinha, 1).Value = Sheets(1).Cells(2, 5).Value
 vnSomaLinha = 1
 vnExisteC1 = 1
 End If
 
 If vnTotalCiclo2 <> 0 Then
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 18).Value = vnTotalCiclo2
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 17).Value = vsTurnos2
 If InStr(1, vsTurnos2, "*") > 0 Then
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 17).AddComment
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 17).Comment.Visible = False
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 17).Comment.Text Text:=vsComentarioT2
 End If
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 16).Value = Sheets(vsEtq).Cells(vnLinhaEtq - 9, 14).Value
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 4).Value = Sheets(vsOpl).Cells(48, 1).Value
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 5).Value = Sheets(vsOpl).Cells(48, 4).Value
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 3).Value = Sheets(2).Cells(i, 1).Value
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 1).Value = Sheets(1).Cells(2, 5).Value
 vnExisteC2 = 1
 End If
 
 End If
 
 If Sheets(vsEtq).Cells(j, 23).Text = "41 a 60" Then
 
 If vnTotalCiclo1 <> 0 Then
 Sheets("relsolda").Cells(vnLinha, 28).Value = vnTotalCiclo1
 Sheets("relsolda").Cells(vnLinha, 27).Value = vsTurnos1
 If InStr(1, vsTurnos1, "*") > 0 Then
 Sheets("relsolda").Cells(vnLinha, 27).AddComment
 Sheets("relsolda").Cells(vnLinha, 27).Comment.Visible = False
 Sheets("relsolda").Cells(vnLinha, 27).Comment.Text Text:=vsComentarioT1
 End If
 Sheets("relsolda").Cells(vnLinha, 26).Value = Sheets(vsEtq).Cells(vnLinhaEtq - 9, 14).Value
 Sheets("relsolda").Cells(vnLinha, 4).Value = Sheets(vsOpl).Cells(47, 1).Value
 Sheets("relsolda").Cells(vnLinha, 5).Value = Sheets(vsOpl).Cells(47, 4).Value
 Sheets("relsolda").Cells(vnLinha, 3).Value = Sheets(2).Cells(i, 1).Value
 Sheets("relsolda").Cells(vnLinha, 1).Value = Sheets(1).Cells(2, 5).Value
 vnSomaLinha = 1
 vnExisteC1 = 1
 End If
 
 If vnTotalCiclo2 <> 0 Then
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 28).Value = vnTotalCiclo2
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 27).Value = vsTurnos2
 If InStr(1, vsTurnos2, "*") > 0 Then
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 27).AddComment
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 27).Comment.Visible = False
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 27).Comment.Text Text:=vsComentarioT2
 End If
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 26).Value = Sheets(vsEtq).Cells(vnLinhaEtq - 9, 14).Value
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 4).Value = Sheets(vsOpl).Cells(48, 1).Value
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 5).Value = Sheets(vsOpl).Cells(48, 4).Value
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 3).Value = Sheets(2).Cells(i, 1).Value
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 1).Value = Sheets(1).Cells(2, 5).Value
 vnExisteC2 = 1
 End If
 
 End If
 
 If Sheets(vsEtq).Cells(j, 23).Text = "61 a 80" Then
 If vnTotalCiclo1 <> 0 Then
 Sheets("relsolda").Cells(vnLinha, 38).Value = vnTotalCiclo1
 Sheets("relsolda").Cells(vnLinha, 37).Value = vsTurnos1
 If InStr(1, vsTurnos1, "*") > 0 Then
 Sheets("relsolda").Cells(vnLinha, 37).AddComment
 Sheets("relsolda").Cells(vnLinha, 37).Comment.Visible = False
 Sheets("relsolda").Cells(vnLinha, 37).Comment.Text Text:=vsComentarioT1
 End If
 Sheets("relsolda").Cells(vnLinha, 36).Value = Sheets(vsEtq).Cells(vnLinhaEtq - 9, 14).Value
 Sheets("relsolda").Cells(vnLinha, 4).Value = Sheets(vsOpl).Cells(47, 1).Value
 Sheets("relsolda").Cells(vnLinha, 5).Value = Sheets(vsOpl).Cells(47, 4).Value
 Sheets("relsolda").Cells(vnLinha,
3).Value = Sheets(2).Cells(i, 1).Value
 Sheets("relsolda").Cells(vnLinha, 1).Value = Sheets(1).Cells(2, 5).Value
 vnSomaLinha = 1
 vnExisteC1 = 1
 End If
 
 If vnTotalCiclo2 <> 0 Then
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 38).Value = vnTotalCiclo2
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 37).Value = vsTurnos2
 If InStr(1, vsTurnos2, "*") > 0 Then
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 37).AddComment
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 37).Comment.Visible = False
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 37).Comment.Text Text:=vsComentarioT2
 End If
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 36).Value = Sheets(vsEtq).Cells(vnLinhaEtq - 9, 14).Value
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 4).Value = Sheets(vsOpl).Cells(48, 1).Value
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 5).Value = Sheets(vsOpl).Cells(48, 4).Value
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 3).Value = Sheets(2).Cells(i, 1).Value
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 1).Value = Sheets(1).Cells(2, 5).Value
 vnExisteC2 = 1
 End If
 
 End If
 
 If Sheets(vsEtq).Cells(j, 23).Text = "81 a 100" Then
 If vnTotalCiclo1 <> 0 Then
 Sheets("relsolda").Cells(vnLinha, 48).Value = vnTotalCiclo1
 Sheets("relsolda").Cells(vnLinha, 47).Value = vsTurnos1
 If InStr(1, vsTurnos1, "*") > 0 Then
 Sheets("relsolda").Cells(vnLinha, 47).AddComment
 Sheets("relsolda").Cells(vnLinha, 47).Comment.Visible = False
 Sheets("relsolda").Cells(vnLinha, 47).Comment.Text Text:=vsComentarioT1
 End If
 Sheets("relsolda").Cells(vnLinha, 46).Value = Sheets(vsEtq).Cells(vnLinhaEtq - 9, 14).Value
 Sheets("relsolda").Cells(vnLinha, 4).Value = Sheets(vsOpl).Cells(47, 1).Value
 Sheets("relsolda").Cells(vnLinha, 5).Value = Sheets(vsOpl).Cells(47, 4).Value
 Sheets("relsolda").Cells(vnLinha, 3).Value = Sheets(2).Cells(i, 1).Value
 Sheets("relsolda").Cells(vnLinha, 1).Value = Sheets(1).Cells(2, 5).Value
 vnSomaLinha = 1
 vnExisteC1 = 1
 End If
 
 If vnTotalCiclo2 <> 0 Then
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 48).Value = vnTotalCiclo2
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 47).Value = vsTurnos2
 If InStr(1, vsTurnos2, "*") > 0 Then
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 47).AddComment
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 47).Comment.Visible = False
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 47).Comment.Text Text:=vsComentarioT2
 End If
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 46).Value = Sheets(vsEtq).Cells(vnLinhaEtq - 9, 14).Value
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 4).Value = Sheets(vsOpl).Cells(48, 1).Value
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 5).Value = Sheets(vsOpl).Cells(48, 4).Value
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 3).Value = Sheets(2).Cells(i, 1).Value
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 1).Value = Sheets(1).Cells(2, 5).Value
 vnExisteC2 = 1
 End If
 
 End If
 
 If Sheets(vsEtq).Cells(j, 23).Text = "101 a 120" Then
 If vnTotalCiclo1 <> 0 Then
 Sheets("relsolda").Cells(vnLinha, 58).Value = vnTotalCiclo1
 Sheets("relsolda").Cells(vnLinha, 57).Value = vsTurnos1
 If InStr(1, vsTurnos1, "*") > 0 Then
 Sheets("relsolda").Cells(vnLinha, 57).AddComment
 Sheets("relsolda").Cells(vnLinha, 57).Comment.Visible = False
 Sheets("relsolda").Cells(vnLinha, 57).Comment.Text Text:=vsComentarioT1
 End If
 Sheets("relsolda").Cells(vnLinha, 56).Value = Sheets(vsEtq).Cells(vnLinhaEtq - 9, 14).Value
 Sheets("relsolda").Cells(vnLinha, 4).Value = Sheets(vsOpl).Cells(47, 1).Value
 Sheets("relsolda").Cells(vnLinha, 5).Value = Sheets(vsOpl).Cells(47, 4).Value
 Sheets("relsolda").Cells(vnLinha, 3).Value = Sheets(2).Cells(i, 1).Value
 Sheets("relsolda").Cells(vnLinha, 1).Value = Sheets(1).Cells(2, 5).Value
 vnSomaLinha = 1
 vnExisteC1 = 1
 End If
 
 If vnTotalCiclo2 <> 0 Then
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 58).Value = vnTotalCiclo2
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 57).Value = vsTurnos2
 If InStr(1, vsTurnos2, "*") > 0 Then
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 57).AddComment
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 57).Comment.Visible = False
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 57).Comment.Text Text:=vsComentarioT2
 End If
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 56).Value = Sheets(vsEtq).Cells(vnLinhaEtq - 9, 14).Value
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 4).Value = Sheets(vsOpl).Cells(48, 1).Value
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 5).Value = Sheets(vsOpl).Cells(48, 4).Value
Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 3).Value = Sheets(2).Cells(i, 1).Value
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 1).Value = Sheets(1).Cells(2, 5).Value
 vnExisteC2 = 1
 End If
 
 End If
 
 If Sheets(vsEtq).Cells(j, 23).Text = "1 a 40 20mL" Then
 If vnTotalCiclo1 <> 0 Then
 Sheets("relsolda").Cells(vnLinha, 68).Value = vnTotalCiclo1
 Sheets("relsolda").Cells(vnLinha, 67).Value = vsTurnos1
 If InStr(1, vsTurnos1, "*") > 0 Then
 Sheets("relsolda").Cells(vnLinha, 67).AddComment
 Sheets("relsolda").Cells(vnLinha, 67).Comment.Visible = False
 Sheets("relsolda").Cells(vnLinha, 67).Comment.Text Text:=vsComentarioT1
 End If
 Sheets("relsolda").Cells(vnLinha, 66).Value = Sheets(vsEtq).Cells(vnLinhaEtq - 9, 14).Value
 Sheets("relsolda").Cells(vnLinha, 4).Value = Sheets(vsOpl).Cells(47, 1).Value
 Sheets("relsolda").Cells(vnLinha, 5).Value = Sheets(vsOpl).Cells(47, 4).Value
 Sheets("relsolda").Cells(vnLinha, 3).Value = Sheets(2).Cells(i, 1).Value
 Sheets("relsolda").Cells(vnLinha, 1).Value = Sheets(1).Cells(2, 5).Value
 vnSomaLinha = 1
 vnExisteC1 = 1
 End If
 
 If vnTotalCiclo2 <> 0 Then
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 68).Value = vnTotalCiclo2
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 67).Value = vsTurnos2
 If InStr(1, vsTurnos2, "*") > 0 Then
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 67).AddComment
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 67).Comment.Visible = False
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 67).Comment.Text Text:=vsComentarioT2
 End If
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 66).Value = Sheets(vsEtq).Cells(vnLinhaEtq - 9, 14).Value
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 4).Value = Sheets(vsOpl).Cells(48, 1).Value
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 5).Value = Sheets(vsOpl).Cells(48, 4).Value
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 3).Value = Sheets(2).Cells(i, 1).Value
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 1).Value = Sheets(1).Cells(2, 5).Value
 vnExisteC2 = 1
 End If
 
 End If
 
 If Sheets(vsEtq).Cells(j, 23).Text = "1 a 20 5mL" Then
 If vnTotalCiclo1 <> 0 Then
 Sheets("relsolda").Cells(vnLinha, 78).Value = vnTotalCiclo1
 Sheets("relsolda").Cells(vnLinha, 77).Value = vsTurnos1
 If InStr(1, vsTurnos1, "*") > 0 Then
 Sheets("relsolda").Cells(vnLinha, 77).AddComment
 Sheets("relsolda").Cells(vnLinha, 77).Comment.Visible = False
 Sheets("relsolda").Cells(vnLinha, 77).Comment.Text Text:=vsComentarioT1
 End If
 Sheets("relsolda").Cells(vnLinha, 76).Value = Sheets(vsEtq).Cells(vnLinhaEtq - 9, 14).Value
 Sheets("relsolda").Cells(vnLinha, 4).Value = Sheets(vsOpl).Cells(47, 1).Value
 Sheets("relsolda").Cells(vnLinha, 5).Value = Sheets(vsOpl).Cells(47, 4).Value
 Sheets("relsolda").Cells(vnLinha, 3).Value = Sheets(2).Cells(i, 1).Value
 Sheets("relsolda").Cells(vnLinha, 1).Value = Sheets(1).Cells(2, 5).Value
 vnSomaLinha = 1
 vnExisteC1 = 1
 End If
 
 If vnTotalCiclo2 <> 0 Then
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 78).Value = vnTotalCiclo2
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 77).Value = vsTurnos2
 If InStr(1, vsTurnos2, "*") > 0 Then
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 77).AddComment
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 77).Comment.Visible = False
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 77).Comment.Text Text:=vsComentarioT2
 End If
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 76).Value = Sheets(vsEtq).Cells(vnLinhaEtq - 9, 14).Value
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 4).Value = Sheets(vsOpl).Cells(48, 1).Value
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 5).Value = Sheets(vsOpl).Cells(48, 4).Value
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 3).Value = Sheets(2).Cells(i, 1).Value
 Sheets("relsolda").Cells(vnLinha + vnSomaLinha, 1).Value = Sheets(1).Cells(2, 5).Value
 vnExisteC2 = 1
 End If
 
 End If
 End If
 End If
 
 Next j
 
 If vnExisteC2 = 1 Then
 vnLinha = vnLinha + 1
 End If
 
 If vnExisteC1 = 1 Then
 vnLinha = vnLinha + 1
 End If
 End If
 
 vnLinhaEtq = vnLinhaEtq + 10
 Wend
 
 
 End If
 
 vnOpl = vnOpl + 1
 vnEtq = vnEtq + 1
 i = i + 1
 Wend
 
End Sub
Sub Limpar()
 Sheets("relsolda").Range("A3:BW50000").ClearContents
 Sheets("relsolda").Range("A3:BW50000").ClearComments
End Sub