LaerteB,

Bom dia!

Creio que para uma ajuda rápida e eficaz você deve anexar o arquivo aqui. Se for muito grande, faça um pequeno exemplo do mesmo (idêntico ao original), com apenas umas 3 ou 4 linhas, compacte com .ZIP e anexe aqui.

Boa Noite Wagner.

Só estou respondendo agora, pois estava em transito.. e quando olhei a sua resposta resolvi fazer um exemplo "simples" do meu projeto (o meu projeto é muito grande), mas parecido ao que está dando o "sumiço" das caixinhas dos CheckBoxes.
Não arrumei os códigos na listview1 para quando clicar mais de um item (senão ficaria com muitos códigos, fiz para ser enxuto aqui neste exemplo), desta maneira quando clicar no botão Add Itens irá acrescentar em duplicata os itens na listview2, mas isso é irrelevante aqui neste exemplo (no meu projeto está OK) blz.
E reparei que quando abre direto na page1 as caixinhas da listview1 estão lá, mas se abrir na page0 elas somem também.

Estou anexando o arquivo, espero que ajude a elucidar melhor este problema.

Obrigado, aguardando respostas..

Abraços LaerteB

LaerteB,

Bom dia!

Como estou meio sem tempo no momento, veja se o link abaixo te ajuda.

https://www.mrexcel.com/forum/excel-que ... ipage.html

Bom dia, Wagner.

Quero muito agradecer a sua resposta.

Então eu já citei este site (forum, sem mencionar a URL como você citou) na minha primeira mensagem sobre o problema (copiei as soluções com os códigos que estão neste tópico do mrexcel na minha primeira mensagem pode verificar), como tinha dito uma delas só "apagou" as listviews (este código pode ser usado para recarregar as listviews ao ativar uma página, tirando o problema da listview aparecendo em locais estranhos no carregamento do formulário, mas eu tenho outra solução para este problema que está no exemplo que fiz e que funciona muito bem também); em relação ao segundo código (que eu tinha dito na 1ª mensagem, não ter usado ainda) eu agora fiz um teste e funcionou em partes, vou explicar, as caixinhas apareceram, mas os itens que eu selecionei sumiram, as caixinhas ficaram vazias (a Label que informa quantos itens foram selecionados ainda continuam informando que estão selecionados ????).

Posso usar este código colocando uma msgbox para informar o usuário que não deve ser clicado fora dos locais indicados, mas gostaria de uma outra solução que não desapareça a seleção já marcada (as caixinhas que sumiam foram resolvidas com este código que estou informando novamente abaixo), vou aguardar mais para ver se alguém tem uma outra luz para isso também, pois tem um sistema que impede de selecionar mais de 1 Item por vez na 1ª ListView (para não haver duplicatas de itens na 2ª ListView).

Dim i As Integer

    For i = 1 To Me.ListView1.ListItems.Count
        With Me.ListView1
            .ListItems(i).Checked = False
        End With
    Next i

Agradeço muito Wagner ..

LaerteB.

LaertB,

Como disse, estou realmente sem muito tempo mas... me ocorreu uma ideia aqui com relação a essa questão da marcação das checkboxs. Você pode tentar colocar um código no evento que é acionado quando há uma mudança de uma página para a outra, que grave na planilha (em um local qualquer que pode até ser em células ocultas para não imprimir indevidamente) o estado de cada chekbox marcada. Então, ao ler novamente o listview, você ler o estado delas diretamente das células onde gravou esse estado e carrega esse estado nas mesmas de modo a refletir o estado correto das mesmas. Tente isso e veja se dá certo. É uma gambiarra mas... o importante é funcionar.

Wagner,

Interessante a sua sugestão , vou ver como posso fazer isso, sei que é uma gambiarra, mas se der certo será muito bem vinda ...

Agradeço, e logo que conseguir ou não aviso aqui.

LaerteB

LaerteB,

Pedimos, por gentileza, não utilizar as citações de inteiro teor das mensagens que lhe são encaminhadas. Elas são desnecessárias. As citações, quando estritamente necessárias ao entendimento da mensagem que você quer enviar, devem restringir-se apenas a pequenos trechos.

Wagner,

Opa desculpe , não vai ocorrer novamente.

Obrigado .
LaerteB

Bom dia, Wagner.

Estou tendo um bug mental , preciso de uma ajudinha .. primeiro consegui fazer aquela gambiarra de quando os checkbox
forem marcados gravem na Plan2 somente as linhas selecionadas, só que ele verifica a 1ª linha marcada (que ficam gravadas na plan2,
será temporário); desta forma ele consegue marcar na checkbox da 2ª listview somente a 1ª linha que está registrada na plan2 e
as seguintes linhas gravadas na plan2 ele não está lendo ...

Este é o código para verificar e marcar a checkbox que está gravado na Plan2:

   Dim r, k As Integer
   Dim lin As Long
  
   Plan2.Select
   Plan2.Range("A2").Select

   lin = 2
        
    For r = 1 To Me.ListView2.ListItems.Count
        
        With Me.ListView2
        
        Do Until Sheets("Plan2").Cells(lin, 1) = ""
            
         If .ListItems(r).ListSubItems(6).Text = Sheets("Plan2").Cells(lin, 6) Then
        
                    .ListItems(r).Selected = True
                     .ListItems(r).Checked = True
                    
              End If
            lin = lin + 1
        Loop
        End With
    Next r

Estamos bem perto da solução né.. espero que consigamos com essa gambiarra..

LaerteB

Boa tarde, pessoal!!

Se alguém tiver uma dica ou sugestão de como posso acertar o meu código acima descrito, pode ficar a vontade ...

Estou esperando... preciso resolver o mais breve possível.. continuo vendo outras formas de solução, mas ainda nenhuma
se encaixa no contexto ...

Obrigado.

LaerteB

Bom dia, Pessoal!

Consegui resolver o problema (com esta gambiarra), tirei o código exemplo deste mesmo Forum Planilhando
do nosso amigo "Mauro Coutinho" e modifiquei para este código abaixo.

Agora as caixinhas (com os códigos anteriores que mencionei) não somem e voltam ao estado
original de quando foram selecionadas .

Só uma coisa, para os que irão utilizar estes códigos, não esquecer de acertar também a
ListView1, aqui só estou passando como funciona com estes códigos na ListView2.. OK.

Abaixo o código "Salvador" rsrs.. :

  Dim idbox As Range
  Dim linUlt As Long
  Dim sidbox
  Dim r
 
  ' definimos a aba
  Dim work As Worksheet
  Set work = Worksheets("Plan2")

  ' verificação da ultima linha preenchida
   linUtil = work.Cells(Rows.Count, "F").End(xlUp).Row

   Set idbox = work.Range("F2:F" & linUtil)

   For Each sidbox In idbox

    For r = 1 To ListView2.ListItems.Count

        If ListView2.ListItems(r).ListSubItems(6).Text = sidbox Then
           ListView2.ListItems(r).Checked = True

        End If

    Next r

      Next sidbox

Agradeço a todos que tentaram me ajudar , muito obrigado e se não fosse a dica do "Wagner" e o exemplo do "Mauro Coutinho" do Planilhando estaria tentando ...

Valeu mesmo a todos .

Abraços

LaerteB