Paulo_001,
Me esclareça uma dúvida :
Os dados devem ser lançados na planilha SAÍDAS apenas quando se clica em transferir ou deve ser feito durante a inserção de dados no formulário?
Explico :
Notei que no evento do botão ADICIONAR A LISTA, os dados são inseridos tanto na planilha APOIO quanto na planilha SAIDAS, porém na planilha SAIDAS algumas células da última linha são ignoradas, veja o código abaixo :
iRow = Sheets("Apoio").Cells(Cells.Rows.Count, "A").End(xlUp).Row + 1
With Sheets("Apoio")
.Cells(iRow, 1).Value = VBA.Format(Date, "mm/dd/yy")
.Cells(iRow, 2).Value = Me.ComboBoxCodigo.Value
.Cells(iRow, 3).Value = Me.ComboBoxDescrição.Value
.Cells(iRow, 4).Value = Me.TextBoxUnidade.Value
'.Cells(iRow, 4).Value = Me.TextBox1.Value
.Cells(iRow, 5).Value = Me.TextBoxqtd.Value
.Cells(iRow, 6).Value = Me.ComboBoxRequisitante.Value
If OptionButton1 = True Then
.Cells(iRow, 7).Value = "SAÍDA OP"
End If
If OptionButton2 = True Then
.Cells(iRow, 7).Value = "TRANFERÊNCIA"
End If
If OptionButton3 = True Then
.Cells(iRow, 7).Value = "PERDA"
End If
'.Cells(iRow, 8).Value = Me.TextBoxDepartamento.Value
End With
'lanças os itens requisitados na planilha saída
iRowSaida = Sheets("Saidas").Cells(Cells.Rows.Count, "A").End(xlUp).Row + 1
With Sheets("Saidas")
.Cells(iRowSaida, 1).Value = Format(Now, "dd/mm/yyyy")
.Cells(iRowSaida, 3).Value = Me.ComboBoxCodigo.Value
.Cells(iRowSaida, 5).Value = Me.TextBoxqtd.Value
.Cells(iRowSaida, 6).Value = Me.ComboBoxDescrição.Value
.Cells(iRowSaida, 7).Value = Me.TextBoxUnidade.Value
.Cells(iRowSaida, 8).Value = Me.ComboBoxRequisitante.Value
If OptionButton1 = True Then
.Cells(iRowSaida, 9).Value = "SAÍDA OP"
End If
If OptionButton2 = True Then
.Cells(iRowSaida, 9).Value = "TRANFERÊNCIA"
End If
If OptionButton3 = True Then
.Cells(iRowSaida, 9).Value = "PERDA"
End If
If OptionButton2 = True Then
.Cells(iRowSaida, 10).Value = Me.ComboBoxArmazen.Value
Else
.Cells(iRowSaida, 10).Value = "x"
End If
'.Cells(iRowSaida, 9).Value = UCase(Me.TextBoxLocalEntrega.Value)
End With
Note que ao inserir dados na planilha APOIO todos células são preenchidas corretamente e na planilha SAIDAS as células 2 e 4 são omitidas. Repare também que ao clicar em TRANSFERIR os dados da planilha APOIO são copiados, mas já existem os dados com campos em branco na planilha SAIDAS. Por isso os dados ficam desordenados, porém está tudo correto.
Aguardo retorno.
Abs
Espero ter ajudado.
Abs.
Saulo Robles
Postado : 05/01/2016 10:44 am