nick4xd

No seu caso, você impede que apenas a Folha (Planilha) seja impressa, No meu caso, quero que, ao imprimir a pasta de trabalho inteira (Todas as Folhas), determinadas folhas não sejam impressas. Sabe como posso fazer os seguintes comandos quando for solicitado a impressão, ou pressionado Ctrl+P: ThisWorkbook.Worksheets(Plan1).Visible = False ThisWorkbook.Worksheets(Plan2).Visible = False ThisWorkbook.Worksheets(Plan3).Visible = False Tentei colocar os comandos acima dentro de um: Private Sub Workbook_BeforePrint(Cancel As Boolean)End Sub Mas não deu.. Se alguém souber como oculto certas planilhas no momento que for pressionado o botão de impressão ou pelo atalho Ctrl+P, eu agradeceria..

Bom dia pessoal. Tenho um documento com várias planilhas, e gostaria que, ao imprimir este documento, todas as planilhas que estiverem protegidas com senha, não fosse impressa com as demais que não estão protegidas. É possível? Att, Yago Cypriano

Boa noite pessoal. tenho uma dúvida de como posso, através de um botão no formulário, inserir o valor do meu txtField em uma determinada célula de todas as planilhas de outro documento. Exemplo: Doc1: Plan1; Plan2; Plan3; PlanEspecífica Doc2: Formulário com Botão inserir Objetivo: Inserir dado de um txtField do Doc2, em todas as planilhas da Célula A1 do Doc1, exceto PlanEspecífica (A1 de Plan1; Plan2 e Plan3 = txtField) A intenção é fazer com que ele insira o dado em todas as planilhas de outro documento, independente de quantas planilhas existirem, ou seja, se em Doc1 eu criar a Plan4, o botão deverá, automaticamente, estar programado para isso Segue em anexo um exemplo bem simples. No PAPEL, tentei rascunhar algum código, se puderem ver se estava indo na orientação certa, me digam, talvez eu possa usar o próprio raciocínio para o projeto. Sub cmdInsert_Click()DIM wbDoc1 As WorkbookDIM wbDoc2 As WorkbookSet wbDoc1 = Workbook("Caminho do Doc1")Set wbDoc2 = ThisWorkbookWorkbook Open("Caminho do Doc1")PlanX = 1wbDoc1.ActivateSheets.Move(PlanX)wbDoc1.Worksheet(PlanX).[A1].Value = txtField.ValuePlanX = PlanX + 1LoopEnd Sub Algo assim, lembrando que não tive suporte do VBA para completar as funções, portanto, deve ter coisas incompletas ou com sintaxe incorreta. Exemplo.rar

Ok Osvaldo, deu certo. Mas tem mais um detalhe que gostaria de fazer: Além de listar todas a planilhas desejadas, gostaria de poder ter a opção de escolher no ComboBox, uma opção "Todos" Para que eu possa fazer alteração em todas elas. Por exemplo: No meu Doc2, seleciono a opção "Todos" no ComboBox, e, logo em seguida, um campo de texto será exibido (txtExemplo.Visible = True), que me permitirá editar a célula A1 de todas as planilhas do Doc1, exceto PlanEspecífica, ou seja, ao selecionar "Todos" no ComboBox do Doc2, e digitar um texto no campo de texto txtExemplo e clicar em Inserir, esse texto será inserido na célula A1 da "Plan1", "Plan2" e "Plan3" do Doc1 Entendeu mais ou menos o que quero fazer? Vou deixar em anexo o documento de exemplo mais uma vez, com um campo de texto no formulário. O exemplo já está quase pronto, creio que só falta editar a função do Botão cmdInserir para que seja feito a inserção do texto na célula A1 nas planilhas do Doc1, exceto no "PlanEspecífico"... Se puder me ajudar, ficarei grato! Att, Yago Cypriano Exemplo2.rar

Obrigado Osvaldo. Farei o teste hoje a noite, mas acho que vai dar certo. Fiz algumas tentativas, mas me faltavam algumas coisinhas, que você já colocou aí.

Olá pessoal, estou com uma dúvida no seguinte: Preciso listar todas as planilhas (exceto uma específica) de um documento X em uma ComboBox de um documento Y Exemplo: Tenho dois documentos Excel; Um se chama Doc1 e o outro se chama Doc2; No Doc1, existem quatro planilhas, a "Plan1", "Plan2" e "Plan3", "PlanEspecífica"; No Doc2, tenho uma ComboBox no meu formulário; Quero que essa ComboBox liste o nome de todas as Planilhas do Doc1 exceto o "PlanEspecífica"; No Doc2, eu já terei na célula A1, o caminho do Doc1, sendo necessário apenas, listar as Plans do Doc1 na ComboBox do Doc2; Segue em anexo um exemplo Obrigado! Att, Yago Exemplo.rar

Desenvolvi outro método para a cura. Em uma caixa de sapato, coloque a placa em uma das extremidades, por dentro da caixa, e, na outra extremidade da tampa, faça um corte com o formato do bico do secador. Faça alguns furos laterais para vazão do ar. Feche a caixa e ligue o secador neste furo feito na tampa, a impressão será de que uma estufa esteja sendo formado. Por isso a necessidade de furos laterais, para ter pontos de saída deste fluxo de ar quente. Muito legal sua ideia, testarei um dia. Obrigado

E como posso puxa-las nas minhas sub-rotinas?

Olá pessoal! Gostaria de saber como posso declarar certas coisas que podem ser acessadas por qualquer Sub que tiver em meu código. Todas as subs que crio tem que ter isso: Dim ws As Worksheet, nomeplan As String Dim BD As String Dim wsOrigem As Worksheet Dim wsDestino As Worksheet E gostaria de poder deixar isso em algum lugar, e nas subs, usar de alguma forma para puxar esses dados, para evitar repetições. Gostaria de saber também, dicas para minimizar códigos em VBA No DreamWeaver, existia uma possibilidade de "Agrupar linhas de código" o que me ajudaria muito no VBA, por exemplo, agrupar as SUBS, diminuindo muito a quantidade de linhas visíveis, e quando eu quiser editar algo, expandirei somente a SUB que eu desejo alterar. Mas o mais interessante por enquanto, seria a dúvida inicial, se alguém souber eu agradeço.. Att, Yago

Me refiro ao vídeo da bobina de tesla.

Mas um choque desse apenas empurra uma pessoa pra bem longe. Se não me engano, a corrente é o fator letal e nesse caso, a corrente deve ser quase nula

Os conjuntos podem mudar sim. O ideal seria só um aviso. Pensei no seguinte: As alterações de um conjunto e outro é manual, portanto, caso um conjunto seja alterado, o usuário deve salvar a edição, clicando em um botão. Esse botão é responsável por inserir um valor X na célula A1 (ex) e dessa forma, só vou ter que comparar se A1 tem esse valor X, se tiver, uma msgbox mealertará e perguntará se eu quero quitar essa mensage, limpando A1. Tem uma forma melhor?

Boa tarde a todos! Tenho em um documento excel, uma planilha com dois conjuntos de células ConjuntoA --> A1:N24 e ConjuntoB --> A26:N49 Elas são idênticas, porém, quando elas não forem idênticas, necessito partir para uma função if Algo do tipo: If Sheets("Plan1").Cells("A1:N24") = Sheets("Plan 2").Cells("A26:N49") Then MsgBox "Conjunto A é igual ao Conjunto B" Else: MsgBox "Conjunto A é diferento do Conjunto B" End If Acontece que 'Sheets("Plan1").Cells("A1:N24") = Sheets("Plan 2").Cells("A26:N49")' é um argumento inválido,mas teria que ser algo semelhante, que comparassem esses dois conjuntos. O que pode ter de diferente entre um conjunto e outro que acionaria a função if são: - Textos diferentes (No anexo, há um texto diferente, destacado em vermelho) - Preenchimento da célula diferente (Ex: Cor da Célula C22 do ConjuntoA é sem preenchimento e da C47 do ConjuntoB é Amarelo) Enfim, pode parecer um pouco complicado, mas é basicamente como comparar duas células, o problema é que se tratam de várias células (Já nomeadas de "ConjuntoA" e "ConjuntoB"). Lembrando que tudo isso é em VBA, ou seja, quero analisar se existe diferênças entre os conjuntos, para então, ao iniciar meu formulário, faça a função IF que mencionei no começo. Tem um anexo de um exemplo com mais detalhes, se acessarem o vba deste anexo, e tentar executar, verão o erro. Grato! Att, Yago Cypriano Verificar Conjunto de Células.zip

Mas para que fique claro o que eu fiz: Ao pressionar um botão, ele insere um valor na célula A1 de uma nova planilha que criei, que se chama banco de dados. Ao iniciar o formulário, ele verifica qual é o valor da célula A1 do banco de dados e atribui uma função if Como eu disse, a sua resposta me serviu, mas não posso usar a mesma planilha para verificar o valor da célula, portanto criei um novo (banco de dados) Acontece que esse banco de dados é uma planilha que não deve ser impressa junto com a planilha Comando, por isso que eu quis saber como deixar uma planilha ausente na impressão. Obrigado. PS: o nome do tópico acabou não condizendo com minha dúvida.

Sem problemas. A dúvida já foi respondida. Como disse no post #3

Na verdade, ao clicar em um botão, ele cria várias planilhas com conteúdos diferentes, portanto, a melhor forma que encontrei para determinar se tal botão foi pressionado, foi fazê-lo criar uma variável pra identificar qual botão foi pressionado. Desta forma, eu saberia sempre qual foi o último botão pressionado. Fiz da mesma forma que me passaste, porém, a variável acabou sendo atribuída na célula BI6 da planilha Banco de Dados que será responsável por me informar qual foi o último botão pressionado, dependendo do valor da mesma. Só que a planilha banco de dados necessita estar ausente na impressão do documento.

Obrigado Osvaldo Não era exatamente isso que eu procurava, mas usei quase o mesmo conceito. Me referi em usar variáveis, justamente porque nem sempre, o valor da célula A1 seria "Comando A", e o botão "Comando A" faria essa simples função. O que fiz foi adaptar esse conceito em uma nova planilha, fixa, que seria o meu banco de dados, ou banco de variáveis. O problema é que essa planilha não pode ser impressa junto. Como eu faria para ocultar ela mas mesmo assim, continuar ativa nas macros? Obrigado Att, Yago Cypriano

Bom dia a todos. Gostaria que em meu formulário, fosse possível, ao pressionar um botão, uma variável seja salva para que, mesmo que este formulário seja encerrada e aberta novamente, a variável ainda esteja lá. Por exemplo: Tenho um formulário com 4 botões Dois deles são "Comando A" e "Comando B" Ao pressionar estes botões, acontece o que está escrito no seguinte código: Private Sub cmdA_Click()Range("A1").SelectActiveCell.FormulaR1C1 = "Comando A"cmdA.ForeColor = RGB(255, 0, 0)End SubPrivate Sub cmdB_Click()Range("B1").SelectActiveCell.FormulaR1C1 = "Comando B"cmdB.ForeColor = RGB(0, 255, 0)End Sub Ou seja, clicando nestes botões, além de interagirem com suas células, elas alteram a propriedade "COR" do texto delas. Acontece que, se eu fechar o formulário e abrir novamente, a "COR" do texto, não estará igual da última vez. Portanto, minha necessidade esta em manter as propriedades atuais do formulário, sem que o mesmo resete quando é encerrado e aberto novamente. Estarei deixando este arquivo de exemplo para quem se interessar. Grato! Att, Yago Cypriano Variáveis.rar

Já resolvi meu problema! Segue em anexo quem estiver com a mesma dúvida. Código todo comentado Inserção de Imgs.rar

Boa tarde, Gostaria de um formulário que fosse possível, procurar imagens no PC, e inserisse numa determinada célula de uma determinada planilha com tamanhos já padronizados no programa. Segue em anexo, um formulário de exemplo, porém, sem função, já que, ausenta de códigos. Grato! Att, Yago Cypriano Inserção de Imgs.rar

Ótimo Perfeito.. Mais uma vez, obrigado Osvaldo, tem sido de grande ajuda. Outro tópico resolvido! Grato, Yago Cypriano

Hum.. Perfeito Osvaldo. Em todo tipo de concatenação é assim que devo usar? PS: Aproveitando o embalo, teria como fazer uma verificação simples antes de executar uma macro? Como por exemplo: If Sheets("Plan1") Existir Then .... End If

Olá pessoal, Em meu formulário VBA, quero habilitar um botão chamado "Salvar Documento" que faça o seguinte: - Salve como - Diretório pré-estabelecido (na própria programação) - E que o nome do arquivo a ser salvo, já esteja pré-definido, sendo ele, uma variável que depende do valor de determinada célula ActiveWorkbook.SaveAs Filename:="D:\Documentos\Excel\[A1].xlsm", FileFormat _ :=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False Onde [A1] seria o valor da célula A1 Segue em anexo o exemplo que fiz para este caso. Penso que seria necessário usar a concatenação, mas não consegui. Agradeço qualquer ajuda que me for passada Att, Yago Cypriano Teste.rar

Obrigado novamente Osvaldo, o primeiro código já me foi útil, faltou só esse .Text mesmo. Obrigado e tópico resolvido

Olá pessoal, fiz um formulário VBA para Inserir o valor selecionado na ComboBox deste formulário em uma célula X de uma planilha. Segue em anexo, um exemplo com o formulário já pronto, porém, não sei qual é a função que devo atribuir ao botão "Inserir Empresa" para que o mesmo, faça a inserção da empresa selecionada no ComboBox na célula B4 da Plan1 Tentei o seguinte: Plan1.Range("B4").Select Plan1.Range("B4").Value = cdEmpresa Mas não funciona... Segue aqui, o código de todo o formulário, para quem não pretende baixar o exemplo em anexo: Private Sub cmdInserir_Click() Plan1.Range("B4").Select Plan1.Range("B4").Value = cdEmpresaEnd SubPrivate Sub UserForm_Initialize() lin = 2 Do Until Plan2.Cells(lin, 1) = "" cdEmpresa.AddItem Plan2.Cells(lin, 1) lin = lin + 1 LoopEnd Sub Agradeço qualquer ajuda que me for passada. Att, Yago Cypriano Exemplo.rar