Postada em 03/09/2009 21:01 hs
Caros,
Em um formulário possuo, além de vários text-box, grupos de frames que possuem 5 option buttons. Cada option Button desse corresponde a uma coluna na tabela.
Consigo selecionar um Option Button do primeiro frame, inserir na coluna na minha planilha de dados, um caracter qualquer. Ex: “X” ou “OK”.
Ex: No frame Fonte, ao marcar opção Inspeção Checklist Execução, inserir na planilha um “X”, e os outros option buttons podem ficar em branco!
Porém os outros frames, cada um com 5 option groups, retorna pra minha tabela valor 0 para todos campos da coluna. Como separo esses frames e seus option groups para me retornar caracteres como no primeiro frame?
Código:
'Rotina que atualiza dados dos text-boxs para planilha
Sub AtualizaPlanilha()
On Error Resume Next
Dim OptionOrigemQA As String
Dim OptionOrigemQC As String
If OptionButton_OrigemQA.Value = True Then
OptionOrigemQA = "X"
ElseIf OptionButton_OrigemQC.Value = True Then
OptionOrigemQC = "X"
End If
Dim OptionFInpCkExec As String
Dim OptionFInpCkRec As String
Dim OptionFInpSemCk As String
Dim OptionFAudRechec As String
If OptionButton_FInpCkExec.Value = True Then
OptionFInpCkExec = "X"
ElseIf OptionButton_FInpCkRec.Value = True Then
OptionFInpCkRec = "X"
ElseIf OptionButton_FInpSemCk.Value = True Then
OptionFInpSemCk = "X"
ElseIf OptionButton_FAudRechec.Value = True Then
OptionFAudRechec = "X"
End If
Dim OptionConNCMaior As Integer
Dim OptionConNCMenor As Integer
Dim OptionConsObs As Integer
Dim OptionConOpMel As Integer
Dim OptionConMelPratPF As Integer
If OptionButton_ConNCMaior.Value = True Then
OptionConNCMaior = "X"
ElseIf OptionButton_ConNCMenor.Value = True Then
OptionButton_ConNCMenor = "X"
ElseIf OptionButton_ConsObs.Value = True Then
OptionConsObs = "X"
ElseIf OptionButton_ConOpMel.Value = True Then
OptionConOpMel = "X"
ElseIf OptionButton_ConMelPratPF.Value = True Then
OptionConMelPratPF = "X"
End If
Dim OptionTC_CC As Integer
Dim OptionTP_PC As Integer
Dim OptionTC_MC As Integer
Dim OptionTC_EC As Integer
Dim OptionTC_SC As Integer
If OptionButton_TC_CC.Value = True Then
OptionTC_CC = "X"
ElseIf OptionButton_TP_PC.Value = True Then
OptionTP_PC = "X"
ElseIf OptionButton_TC_MC.Value = True Then
OptionTC_MC = "X"
ElseIf OptionButton_TC_EC.Value = True Then
OptionTC_EC = "X"
ElseIf OptionButton_TC_SC.Value = True Then
OptionTC_SC = "X"
End If
With RNCIdentif
.Cells(DadosLinha, 93).Value = EnderecoImagem
.Cells(DadosLinha, 1).Value = TextBox_NrNaoConf.Value
.Cells(DadosLinha, 2).Value = TextBox_DtAbertNC.Value
.Cells(DadosLinha, 3).Value = TextBox_IdentRelator.Value
.Cells(DadosLinha, 4).Value = TextBox_IDRelator.Value
.Cells(DadosLinha, 5).Value = TextBox_Empresa.Value
.Cells(DadosLinha, 24).Value = TextBox_SistemaEAP.Value
.Cells(DadosLinha, 25).Value = TextBox_SubSistEAP.Value
.Cells(DadosLinha, 26).Value = TextBox_Area.Value
.Cells(DadosLinha, 27).Value = TextBox_Trecho.Value
.Cells(DadosLinha, 28).Value = TextBox_EspecfET.Value
.Cells(DadosLinha, 29).Value = TextBox_CheckRecebCR.Value
.Cells(DadosLinha, 30).Value = TextBox_ChecExecCE.Value
.Cells(DadosLinha, 31).Value = TextBox_Descricao.Value
.Cells(DadosLinha, 6).Value = OptionOrigemQC
.Cells(DadosLinha, 7).Value = OptionOrigemQA
.Cells(DadosLinha, 9).Value = OptionFInpCkExec
.Cells(DadosLinha, 10).Value = OptionFInpCkRec
.Cells(DadosLinha, 11).Value = OptionFInpSemCk
.Cells(DadosLinha, 12).Value = OptionFAudRechec
.Cells(DadosLinha, 14).Value = OptionConNCMaior
.Cells(DadosLinha, 15).Value = OptionConNCMenor
.Cells(DadosLinha, 16).Value = OptionConsObs
.Cells(DadosLinha, 17).Value = OptionConOpMel
.Cells(DadosLinha, 18).Value = OptionConMelPratPF
.Cells(DadosLinha, 19).Value = OptionTC_CC
.Cells(DadosLinha, 20).Value = OptionTC_PC
.Cells(DadosLinha, 21).Value = OptionTC_MC
.Cells(DadosLinha, 22).Value = OptionTC_EC
.Cells(DadosLinha, 23).Value = OptionTC_SC
End With
End Sub
Caso interesse, posso enviar por e-mail o projeto para verificação.
Atenciosamente,
Francisco Xavier
|
