Ir ao conteúdo
  • Cadastre-se

ROBAOCIS

Membros Juniores
  • Total de itens

    14
  • Registro em

  • Última visita

  • Qualificações

    N/D
  1. @Midori Ok, muito obrigado! Resolvido! adicionado 23 minutos depois @Midori Boa noite, dá certo quando a célula faz parte da mesma planilha do botão, quando eu tento Range("Plan2!B3") = 2, por exemplo dá erro.. adicionado 46 minutos depois Consegui do seguinte modo: Private Sub checkbox1_click() If CheckBox1.Value = True Then Worksheets("Plan2").Range("A1").Value = 2 Else Worksheets("Plan2").Range("A1").Value = 1 End If End Sub
  2. Deu certo! Muito obrigado mesmo! Só mais uma coisa, não sei se você percebeu que as macros servem para definir uma célula como 1 ou 2... Queria saber se não dá pra fazer isso direto do código do checkbox, sem criar macros...
  3. Desculpa incomodar de novo kkk, mas aí eu só escrevo o nome da macro? Eu não consigo entender essa linguagem do excel kk Sub TrocaOleo2() quando marcado e TrocaOleo0() quando desmarcado
  4. Ok, cliquei exibir código, como chamo as macros?
  5. Sub Macro2() End Sub Sub TrocaOleo2() ' ' TrocaOleo2 Macro ' ' Sheets("FIAT").Select ActiveCell.FormulaR1C1 = "2" Range("B4").Select Sheets("Planilha1").Select End Sub Sub TrocaOleo0() ' ' TrocaOleo0 Macro ' ' Sheets("FIAT").Select Range("B3").Select ActiveCell.FormulaR1C1 = "0" Range("B4").Select Sheets("Planilha1").Select End Sub Não entendi...Estão assim, as duas macros atribuídas ao checkbox...
  6. Boa tarde! Preciso gravar duas macros para um mesmo Checkbox, uma para ser executada caso marque-o e outra caso desmarque-o. Como proceder ?
  7. tenta usar algo com =INFORMAÇÃO("DIRETÓRIO"), talvez funcione... eu não entendi bem o seu problema
  8. Estou com essa planilha… Necessito criar uma formula na coluna status da tabela para que quando todas as parcelas estiverem “ok”, ou “”, ou com data >=hoje resulte em 2, e caso alguma das parcelas esteja com data <hoje resulte em 1. Pensei em fazer varias condicionais com “ou”, “e” e “se” mas de antemão penso que venha por ocorrer “argumentos excessivos”, além de não ficar estruturalmente bonito. Desde já obrigado! adicionado 6 minutos depois @Vics
  9. Boa tarde! É o seguinte: eu tô precisando criar uma extensão para o Chrome para conseguir enviar notas em PDF do meu sistema (acesso pelo navegador) para meus clientes.... Chega de papel! RS Porém eu não faço a mínima ideia de como fazê-lo e gostaria de orientação. Algumas informações que podem ser úteis: 1. O botão de impressão do programa abre a guia de impressão do Chrome e permite salvar o arquivo como PDF. 2. O whatsapp oferece a opção de cair direto no contato através do link "wa.me/(número do telefone)". A ideia é automatizar o processo. A extensão acrescentar um botão ao programa, ("Enviar Whatsapp", por exemplo). Daí copie o número que aparece na nota, gere o PDF, cole o número no wa.me e enviem... Por favor, socorro!
  10. Acho que gênios erram também haha.. Sinto muito por você . Desculpa perguntar, mas você trabalhava em que tipo de empresa mesmo? Enfim, segue a macro funcionando plenamente: Algumas coisas que você falou eu nem utilizei, então se você puder revisar, ver se não tem algum erro fico grato também..
  11. Cara você é simplesmente um gênio. Tá funcionando perfeito agora. Mais tarde posto o código pra ademais usuários que precisarem. Muito obrigado mesmo. Eu também curto o Excel mas não sou fanático e não sei nada sobre "programar no Excel", fui só mesclando as coisas que encontrava e que você me disse e deu certo. Muito grato, valeu.
  12. Oi, boa tarde. Tudo está funcionando perfeitamente, quase perfeitamente da seguinte forma, segue: Sub SalvarArquivo() ' ' Salvar em PDF e XLSM ' Dim MyDate Dim Clinte As String Dim Separador As String Dim Veículo As String Dim Placa As String Dim Data As String ' Cliente = Range("A7").Value 'ou onde estiver o nome do cliente. Separador = " - " Veiculo = Range("D8").Value Placa = Range("D9").Value Data = Range("D7").Text ChDir "C:\Users\USUARIO\Google Drive\ORÇAMENTOS" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Cliente + Separador + Veiculo + Separador + Placa + Separador + Data, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ True ActiveWorkbook.SaveAs Filename:=Cliente + Separador + Veiculo + Separador + Placa + Separador + Data, _ FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False ActiveWorkbook.Close End Sub Porém, surgiu um novo problema. Eu adicionei um botão que ativasse a macro com o nome salvar orçamento à planilha. Porém, a pasta que eu direcionei, é sincronizada, do google drive, pois preciso que esses orçamentos estejam em quatro computadores diferentes. Dá certo, porém se eu faço um documento em um computador, e edito em outro, o botão salva o arquivo no caminho do primeiro endereçado. Ex: Enfim, quero saber se existe uma forma de adicionar uma condicional que identifique qual computador está sendo utilizado, para direcionar ao caminho certo. Ou alguma forma de ficar tentando um dos quatro caminhos até salvar. Os diretórios são: C:\Users\PC\Google Drive\ORÇAMENTOS C:\Users\4X4\Google Drive\ORÇAMENTOS C:\Users\USUARIO\Google Drive\ORÇAMENTOS Obs: Se houver uma forma de mudar o nome da pasta do usuário creio que também dê certo, mas tentei renomear e não consegui.
  13. @Vics Bom dia, foi apresentado esse erro: adicionado 25 minutos depois -Atualização- Consegui fazer desta forma: Sub SalvarArquivo() ' ' Salvar em PDF e XLSM ' Dim MyDate Dim Clinte As String Dim Separador As String Dim Veículo As String Dim Placa As String ' Cliente = Range("A7").Value 'ou onde estiver o nome do cliente. Separador = " - " Veiculo = Range("D8").Value Placa = Range("D9").Value ChDir "C:\Users\USUARIO\Google Drive\ORÇAMENTOS" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Cliente + Separador + Veiculo + Separador + Placa, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ True ActiveWorkbook.SaveAs Filename:=Cliente + Separador + Veiculo + Separador + Placa, _ FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False ActiveWorkbook.Close End Sub Porém eu quero que o formato fique em xlsx mesmo, tem como você alterar pra mim?
  14. Boa tardee, estou com a macro a seguir que vou utilizar p salvar arquivos em pdf no excel e preciso acrescentar mais duas funçoes. Preciso de uma linha para especificar o local que esse arquivo será salvo, e que também seja salvo em formato Excel nesse mesmo direetório. Como consigo isso plssss Sub SalvarPDF() Dim MyDate Dim Clinte As String Dim Separador As String Dim Veículo As String Cliente = Range("A7").Value 'ou onde estiver o nome do cliente. Separador = " - " Veículu = Range("D8").Value ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Cliente + Separador + Arquivo, _ Quality:=xlQualityStandard, IncludeDocProperties:=True, _ IgnorePrintAreas:=False, OpenAfterPublish:=True ActiveWorkbook.Close End Sub

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

hardware-hacking.jpg

Aprenda a hackear dispositivos de hardware!

CLIQUE AQUI E CONFIRA AGORA MESMO!