JoséA

Veja exemplos de classificação nos controles ComboBox, ListBox e ListView Classificando nos Controles

Seja bem vindo ao fórum. Mostra o seu arquivo.

<_< Na verdade o exemplo que postas-tes não está funcionando, necessitaria de um certo tempo para verificar...

Seja bem vinda ao fórum Ana!! :D Certamente o ideal seria que você mostrasse o seu arquivo. :rolleyes: Mas, a princípio o ideal seria que lançasse-ses os dados do controle ListView diretamente em uma planilha para impressão.

Veja se esse exemplo atende: Calculo Idade

:angry: Impossível e a senha??

Penso que é isso que procuras: Private Sub UserForm_Initialize() Dim OCOLLECTION As New Collection Dim VARVALUE As Variant Dim I, ULTLINHA As Long ULTLINHA = Plan1.Range("A65536").End(xlUp).Row On Error Resume Next For Each VARVALUE In Plan1.Range("A2:A" & ULTLINHA) OCOLLECTION.Add VARVALUE, VARVALUE Next For I = 1 To OCOLLECTION.Count ComboBox1.AddItem OCOLLECTION.Item(I) Next End Sub

Mostra o seu arquivo, para verificarmos se está ao nosso alcance... :rolleyes:

Coloque como 1ª e última linha do seu código, respectivamente: Plan1.Unprotect "SuaSenha" 'seu procedimento Plan1.Protect "SuaSenha"

Sub FiltroAvançado() Application.EnableEvents = False Dim lastRow As Long Dim lastResultRow As Long Dim X As Long ' Verifica qual a ultima célula preenchida lastRow = Plan1.Cells(Rows.Count, 1).End(xlUp).Row ' Apaga valores anteriores Plan2.Range("A2:C65536").ClearContents lastResultRow = 2 'linha resultado ' Ciclo em todas as linhas For X = 2 To lastRow '1 Linha dados pequisa ' verifica se o valor é igual ao da pesquisa If Plan1.Cells(X, 1).Value = "ESCOLA A" Then '1 coluna pequisa ' Copia os valores Plan2.Cells(lastResultRow, 1).Value = Plan1.Cells(X, 1).Value Plan2.Cells(lastResultRow, 2).Value = Plan1.Cells(X, 2).Value Plan2.Cells(lastResultRow, 3).Value = Plan1.Cells(X, 3).Value lastResultRow = lastResultRow + 1 End If Next Application.EnableEvents = True End Sub

Deverias informar como resolvestes...

Private Sub UserForm_Initialize() Dim lastRow As Long Dim i As Integer cmb_mat_situ.Clear ' Verifica qual a ultima linha preenchida lastRow = Plan3.Range("A65000").End(xlUp).Row 'adiciona dados For i = 2 To lastRow Me.cmb_mat_situ.AddItem Plan3.Range("A" & i) Next End Sub

Estando ao nosso alcance disponha.

Veja uma referência: Ultrapassando os limites da função SE

Como ficou o que já está funcionando?? :wacko:

Mostre o que tens pronto...

Tente assim: Sub Invisivel() Plan1.Shapes("Drop-down 1").Visible = msoFalse End Sub Sub Visivel() Plan1.Shapes("Drop-down 1").Visible = msoCTrue End Sub

Enfim, a melhor maneira seria lançar os dados em uma planilha e imprimir. :rolleyes:

Com seu arquivo em mãos facilitaria o trabalho.

Disponha seu arquivo para melhor visualização. :wub:

Para melhor compreensão disponha seu arquivo.

Seria uma saída. Outra seria dispor o arquivo. :rolleyes:

Fico feliz que, de uma certa forma, tenha ajudado. Quanto ao Guilherme, confira o Link http://www.juliobattisti.com.br/forum/foru...s.asp?TID=20676

Segue um exemplo, acredito que seja isso: http://www.4shared.com/file/159456613/ec63...ENDIDOS_1_.html Os dados não são inseridos diretamente no ListBox, utilizo as planilhas em um verdadeiro 'ping pong' de dados. Abraços ao Guilherme, José (vb do fórum do Júlio Battisti) :) :rolleyes:

Bom dia!! O exemplo posto, no mais tardar, amanhã. O Guilherme seria um participante do fórum do Júlio Battisti, dentre outros, do qual também participo. É que vejo, alguns tópicos dele parecidos com os seus e imagino que sejam colegas de trabalho. :rolleyes: