Strogonoff

Coloque o "Me. " antes do listbox 1 e cuidado... as variaveis linhafinal e linha estão declaradas como variant e não como integer você precisa declarar cada uma sem virgula dim linhafinal as integer dim x as integer

boa noite !!! Você precisará dessa macro que resolverá seus problemas para que ela funcione, a celula A1 terá que estar a palavra operador, caso contrário, é so ajutar o range segue a macro : Sub SeparaPausa() Dim W1 As Worksheet 'Declarando variável da primeira matriz Dim W2 As Worksheet 'Declarando variável da segunda matriz Dim iLinhaVendedor As Integer ' Variável que percorrerá as linhas dos vendedores Dim iUltimaLinha As Integer ' Ultima linha da planilha destino Dim bColunaMatriz As Byte ' varável que percorrer

Gabriel, boa tarde!!! a rotina que você postou é para a ultimha linha da planilha 2 da coluna A. Eu costumo usar essa rotina Private Sub CheckBox1_Click() CheckBox1.Value = False seu código aqui.... End Sub ou.. Private Sub CheckBox1_Click() call rotina() End Sub sub rotina() UserForm1.CheckBox1.Value = False (ou o nome do formulário) end sub outra dica: declare Dim Ws as Worksheet set Ws = Planilha2.. fica mais fácil para trabalhar para não ter que toda hora escrever planilha2.. espero ter ajuda

Ronil Boa tarde! Não entendi sua pergunta, você tem arquivos do Excel compartilhado ou arquivos diversos, se entendi ao certo, você precisa habilitar uma pasta no seu Pc para compartilhamento e bloquear o restante ( o que o Napster ou Soulseek fazia), acredito que ficará mais simples para você se estivermos falando de compartilhamento de pasta. se estivermos falando somente no excel, uma rotina simples para verificar o nome das planilhas dentro de uma pasta, ai você consegue ter um star para a rotina que você precisa. Sub VerificaPlanilhas() For Each Sheet In ActiveWork