Ir para conteúdo

Pesquisar na Comunidade

Mostrando resultados para as tags ''vba''.



Mais opções de pesquisa

  • Pesquisar por Tags

    Digite tags separadas por vírgulas
  • Pesquisar por Autor

Tipo de Conteúdo


Fóruns

  • WINDOWS
    • Windows 10: INSTALAÇÃO, ATIVAÇÃO, REDE E DRIVERS
    • Windows 10: GERAL
    • Windows 10: SEGURANÇA
    • Windows 10: DESEMPENHO
    • Windows 10: TUTORIAIS, GUIAS E DICAS
    • Windows 8.1 e anteriores: GERAL
    • Windows 8.1 e anteriores: TUTORIAIS
    • Windows Server
    • Microsoft Office
  • Remoção de vírus e malware pelo Mr.Million
    • Remoção de vírus e malware
    • Tópicos Resolvidos
    • Tópicos Arquivados
  • Vídeos e Cursos do BABOO
    • Espaço do Baboo
    • Vídeos do BABOO
    • Cursos Online
    • Windows Lento e Inseguro NUNCA MAIS!
  • Arquivo
    • Tópicos Antigos
  • BABOO
    • Notícias do site BABOO
    • Comentários, infos e novidades

Encontrar resultados em...

Encontrar resultados que...


Data de Criação

  • Início

    FIM


Data de Atualização

  • Início

    FIM


Filtrar pelo número de...

Data de Registro

  • Início

    FIM


Grupo


URL do site ou blog


LinkedIn


Facebook


Twitter


Google+


Skype


Idade


Nível de conhecimento de Windows


Nível de conhecimento de Segurança Digital


Sistema operacional que vc utiliza no dia-a-dia

Foram encontradas 11 postagens

  1. Placa-mãe com BIOS Positivo POS-PIH81DL Versão 0106 Data 30/03/2015. Qual a marca e o modelo exato dessa placa-mãe? Pois sabemos que a Positivo não fabrica placa-mãe. Gostaria de atualizar a BIOS dela pois pela data está bem desatualizada.
  2. Boa tarde colegas, gostaria da ajuda de vcs para resolver algo que considero que seja uma falha no excel. Pq quando protejo a planilha, um ser pode simplesmente copiar e colar nas células não-bloqueadas, perdendo toda a formatação e a formatação condicional (não há um campo para proteger a formatação condicional, mesmo nas opções onde marcamos as permissões de usuário e coloquemos senha). Gostaria de um código não para impedir de copiar e colar, mas que permitisse apenas colar especial valores, que aí a formatação e condicional se manteriam. Procurei na internet e o único que resolveu (quase) foi esse: Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) On Error Resume Next Target.PasteSpecial xlPasteValues Application.CutCopyMode = True End Sub O único defeito dele é que ele cola simplesmente ao clicarmos na célula, e não pela tecla de atalho. Tipo, num excel A, copio uns valores. Quando clico numa célula do excel B, ele automaticamente cola, não espera nem mesmo eu dar ctrl+v. Gostaria que colasse só quando eu dar ctrl+v. Tem como arrumar isso?
  3. César Seizo

    Dificuldade Função AND no CommandButton

    Galera, boa noite! Criei uma rotina VBA para um CommandButton, em que ele cumpre alguns critérios. Funciona perfeitamente até o momento a função AND, em que caso dois OptionButtons estejam selecionados, deve-se esconder uma série de linhas e mostrar outras. Não acusa erro algum, entretanto simplesmente não funciona, poderiam me dar um norte? Estou inserindo o código abaixo: Private Sub CommandButton1_Click() If IsEmpty(Range("I22")) = True Or IsEmpty(Range("O22")) = True Then MsgBox "Preencha os campos em amarelo!", vbCritical, "Cotador D&O" ElseIf OptionButton2.Value = True Or OptionButton7.Value = True Or OptionButton9.Value = True Or OptionButton11.Value = True Then MsgBox "Há requisitos que não foram cumpridos para cotação na ponta, favor enviar ao time de subscrição!", vbCritical, "Cotador D&O" ElseIf OptionButton4.Value = True Or OptionButton5.Value = True Then Rows("27:29").EntireRow.Hidden = True Rows("32:34").EntireRow.Hidden = True Rows("30:31").EntireRow.Hidden = False ElseIf OptionButton3.Value = False And OptionButton6.Value = False Then Rows("27:29").EntireRow.Hidden = True Rows("30:32").EntireRow.Hidden = True Rows("33:34").EntireRow.Hidden = False Else Rows("27:29").EntireRow.Hidden = False Rows("30:34").EntireRow.Hidden = True End If End Sub Abs,
  4. César Seizo

    VBA de exibir/ocultar linhas não funciona.

    Boa noite! Tenho uma linha de programação do VBA que condiciona exibir ou ocultar algumas linhas de acordo com o valor de quatro células mescladas. Utilizei a seguinte sintaxe, entretanto não tive resultado algum, embora tenha usado anteriormente em outra planilha: Private Sub Tipo_Apolice() If Range("F37").Value = "" Then Rows("38:42").EntireRow.Hidden = True End If If Range("F37").Value = "Apólice Anual" Then Rows("38:40").EntireRow.Hidden = True Rows("41").EntireRow.Hidden = False Rows("42").EntireRow.Hidden = False End If If Range("F37").Value = "Contrato Específico" Then Rows("38:42").EntireRow.Hidden = False End If End Sub Sabem me dizer onde estou errando? Para dar mais detalhes, o conteúdo da célula "F37" (Apólice Anual ou Contrato Específico) é informado por meio de uma lista dropdown (Validação de Dados). Além disso, o range inicia-se na F37 e vai até a I37. Obrigado!
  5. Luiz Antonio Gar

    Abrir e Copiar dados

    Boa noite, Sou novo na área de VBA, estou com pequeno problema. Tenho um planilha (Vendas) que manipulo varias informações, no sistema gera um base na qual utilizo para alimentar minha planilha principal. Mas este sistema gera um arquivo em extensão .EXCEL e com algumas variáveis. 1 - Gera com nome variáveis 2- Gera arquivo em 30 em 30 min. Resumindo preciso de um código que identifique o ultimo arquivo salvo pelo sistema, e consiga abrir um arquivo que não é padrão para o Excel. No meu código eu consigo identifica o ultimo arquivo salvo, mas qdo vai abrir da erro. Segue meu código e o arquivo gerado. Sub AbreMaisRecente2() Const Diret As String = "C:\Users\luiz.silva\Desktop\Cadastro\Janeiro" Set arqSys = New FileSystemObject Set minhaPasta = arqSys.GetFolder(Diret) dataArq = DateSerial(1900, 1, 1) For Each objArq In minhaPasta.Files If objArq.DateLastModified > dataArq Then dataArq = objArq.DateLastModified nomeArq = objArq.Name 'nomeAba = ActiveSheet.FullName End If Next objArq 'Abrir a ultima planilha salva. Workbooks.Open nomeArq 'Especifica o nome e a aba do arquivo de origem, que deseja copiar os dados. Set wsOrigem = Workbooks(nomeArq).ThisWorkbook.Sheets("Relatorio1") 'Especifica a aba no arquivo de destino, que deseja colar os dados. Set wsDestino = ThisWorkbook.Sheets("vr") Set arqSys = Nothing Set minhaPasta = Nothing 'Realiza o procedimento de copiar e colar os dados, no intervalo que desejar. 'Neste caso está sendo copiado todos os dados da planilha, exceto a primeira linha. With wsOrigem Range("A2").Select Range(Selection, Selection.End(xlDown)).Select Range("A2:AC20000").Select Selection.Copy Windows(nomeArq).Activate Range("A2").Select Range("A2:E1000").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End With 'Especifica o nome da planilha de origem e fecha. Workbooks().Close ActiveWorkbook.Save End Sub
  6. Adriel Alves

    Criar Pasta e salvar em PDF

    Preciso muito de uma ajuda. Tenho uma planilha com mais de 20 Abas que é uma Fatura de cobrança. Na linha I5 é o nome da fatura que quero salvar. “Fatura 1234 – Protocolo 1”. Ai tenho que mandar imprimir em formato Pdf e salvar em um diretório X: (ai eu escolho qual pasta que quero salvar em pdf. Repito este processo para todas as abas, porque nem sempre tem fatura pra salvar. Só entro nas abas onde tem pedido. Quero automatizar de forma que: a macro me pergunte “Onde deseja salvar a fatura?” Ai defino o lugar – A macro cria a pasta com o nome “DIA/MÊS/ANO” (Ex: 04/10/2018) em pdf com o nome da célular I5 e finalize com a mensagem “Fatura 1234 salva com sucesso(ai indica o caminho que foi criado)”. Feito isto, meu trabalho será entrar em cada aba e rodar a macro onde tem pedido. Obrigado.
  7. ademilsonPires

    multiplicar na mesma célula

    galera como faço pra multiplicar uma célula pela outra e apresentar o resultado em uma dessas celulas ti po assim: A1 X B2 = E MOSTRAR O RESULTADO EM B2( tipo se o valor de A1=2 e se eu inserir 3 em B2 o resultado 6 será mostrado na propria célula B2)
  8. John Player Special

    vba - erro 429

    pessoal, estou usando o vba pra tentar manipular dados (copia e cola) numa janela de outro programa, vide foto. nao sei como começar, a principio criei um pequeno codigo, mas ja deu erro Sub teste2() Dim Sessions As Object Dim System As Object Set System = CreateObject("Terminal 3270 - A - AWVL6661") Set Sessions = System.Sessions End Sub mas ja deu um erro na linha 4: "Run-time error 429. ActiveX component cant create object" eu nao entendo direito disso, nao sei se o nome de objeto eh assim mesmo que usa, ou tem outra forma de saber o nome pra parametro.
  9. Galera.. Baixei uns filmes na net e quando tento assitir, quer seja em BSPlayer, em Real Media ou em Win Media, a imagem fica numa tremedeira louca. Já baixei tudo que é codec, inclusive o para rmvb...
  10. Daniel Petrin Bertini

    Criar linhas com base na range

    Olá, Preciso criar linhas, com base nas células. A macro para criar linhas é esta, mas ela cria com base em pontos X e Y. Preciso fazer ela criar com base em células (pode ser no centro, no canto, qqer lugar.. OU encontrar os pontos das células e transferir pra macro. ActiveSheet.Shapes.AddConnector(msoConnectorStraight, 0, 0, 112, 112).Select No exemplo da imagem abaixo: A1 até B6.
  11. ola feras do excel. venho novamente até vós pedir uma ajuda. essa ao meu ver é do nivel hard. tenho dois formularios o primeiro tem cinco textbox o segundo é um numpad com os botões do zero a nove, a virgula , o enter e um textbox que serve de visor onde posso ver os valores enquanto vou digitando. se no primeiro formulario eu clico no textbox1 ele vai ativar o formulario numpad. onde vou digitar o valor. ao dar enter ou fechar o numpad preciso que o valor seja inserido no textbox1. se no primeiro formulario eu clico no textbox2 ele vai ativar o formulario numpad. onde vou digitar o valor. ao dar enter ou fechar o numpad preciso que o valor seja inserido no textbox2. resumindo preciso encontrar uma maneira do formulario 2 saber qual textbox eu cliquei para inserir o valor ai. qualquer ajuda é bem vinda... gracias
×