Dados do userform não aparecem na planilha.

Question

Pessoal,

     Elaborei um planilha no excel, com algumas macros e forms.

     Tenho uma planilha (aba) para cada departamento da empresa e os dados, depois de lançados, vão para um relatório principal de apresentação. Nesse relatório tenho todos os dados de todos os departamentos.

     No relatório principal não está aparecendo dados de alguns departamentos.

     Os dados só aparecem no relatório principal quando vou na sua planilha (aba) do departamento que não aparece no relatório e dou dois clicks na primeira célula da última linha preenchida.

    Alguém pode me ajudar nisso?

Segue os dados para melhor visualização:

---

Private Sub CBLANÇARDADOSENG°_Click()

With ActiveWindow

Application.DisplayFullScreen = True

    ActiveWindow.DisplayHeadings = False

    Application.DisplayFormulaBar = False

    ActiveWindow.DisplayHorizontalScrollBar = True

    ActiveWindow.DisplayVerticalScrollBar = True

    ActiveWindow.DisplayWorkbookTabs = False

    Application.DisplayStatusBar = False

End With

'Do While BPROGRESSOENG°.Value < BPROGRESSOENG°.Max

'BPROGRESSOENG°.Value = BPROGRESSOENG°.Value + 1

'Loop

'BPROGRESSOENG°.Value = 1

If Me.CBRNCENG = "" Then

MsgBox "NÃO DEIXE CAMPOS EM BRANCO. PREENCHA TODOS OS CAMPOS CORRETAMENTE", , "ATENÇÃO"

CBRNCENG.SetFocus

Else

Application.ScreenUpdating = False

'LANÇA OS DADOS NA PLANILHA DE REGISTROS

Sheets("ENGENHARIA").Select

Range("A60000").End(xlUp).Select

ActiveCell.Offset(1, 0).Select

ActiveCell = Me.CBRNCENG

ActiveCell.Offset(0, 1) = Me.TXTRETRABALHAR

ActiveCell.Offset(0, 2) = Me.TXTUSARCOMOESTÁ

ActiveCell.Offset(0, 3) = Me.TXTSUCATAR

ActiveCell.Offset(0, 4) = Me.TXTDEVOLVERAOFORNECEDOR

ActiveCell.Offset(0, 5) = Me.TXTOUTROS

ActiveCell.Offset(0, 6) = Me.TXTCORREÇÃOMATERIAL

ActiveCell.Offset(0, 7) = Me.CBOXORIGEMFORNECEDOR

ActiveCell.Offset(0, 8) = Me.CBOXCÓDIGODEFEITO

ActiveCell.Offset(0, 9) = Me.CBOXCORREÇÃO

ActiveCell.Offset(0, 10) = Me.TXTCUSTO

ActiveCell.Offset(0, 11) = Me.TXTRAZÃONC

ActiveCell.Offset(0, 12) = Me.CBOXNÍVEL

ActiveCell.Offset(0, 13) = Me.TXTDIAGRAMA

ActiveCell.Offset(0, 14) = Me.TXT5PQS

ActiveCell.Offset(0, 15) = Me.TXTFOTOS

ActiveCell.Offset(0, 16) = Me.TXTOUTRAS

ActiveCell.Offset(0, 17) = Me.TXTDEPARTAMENTOS

ActiveCell.Offset(0, 18) = Me.TXTEQUIPEENVOLVIDA

    Range("A3:O499").Select

    ActiveWorkbook.Worksheets("ENGENHARIA").Sort.SortFields.Clear

    ActiveWorkbook.Worksheets("ENGENHARIA").Sort.SortFields.Add Key:=Range("A3") _

        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

    With ActiveWorkbook.Worksheets("ENGENHARIA").Sort

        .SetRange Range("A3:O499")

        .Header = xlGuess

        .MatchCase = False

        .Orientation = xlTopToBottom

        .SortMethod = xlPinYin

        .Apply

    End With

Sheets("MENU RNC").Select

Unload Me

End If

End Sub

---

    Espero que a explicação naõ esteja muito confusa  .  .  .

No aguardo

Leonardo

Answer 1

Valeu Sir William Wallace, postei ontem simultaneamente com o Answers.

Mais até agora nada nos dois.

Leonardo.

Answer 2

vixe mano. no msdn vc vai achar coisa mais rápido. aki tem uns caras q manjam, mas posta lah pq pode ser mais rápido. vlw!