ROBAOCIS

Boa tarde! Preciso de alguma maneira, criar uma forma de coletar determinadas informações da tela do navegador, quando determinado botão for pressionado. Acredito que daria certo criando uma extensão para o chrome. Preciso que essas informações sejam armazenadas em um banco de dados, online, ou arquivo sincronizado.... Me ajudem

@Matheus de Oliveira ReisVocê pede para eu configurar o roteador como repetidor de wifi; nesse caso meus computadores terão que se conectar via wifi, ou de alguma forma os cabos funcionaram como um repetidor?

Oi Galera, tudo bem? Eu estou com um probleminha aqui na empresa... Antes nossos computadores se conectavam via wifi a um só roteador. Desse modo era possível imprimir a partir de qualquer um. Porém, todos os computadores foram cabeados, o roteador foi trocado, e o "velho" foi conectado ao novo para aumentar a quantidade de portas. Eu gostaria de saber como configurar o computador conectado ao roteador antigo para imprimir na impressora, que está conectada ao roteador novo.

Olá! Alguém conhece algum programa para tradução de pdfs que preserve o layout do documento?

@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

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...

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

Ok, cliquei exibir código, como chamo as macros?

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...

Boa tarde! Preciso gravar duas macros para um mesmo Checkbox, uma para ser executada caso marque-o e outra caso desmarque-o. Como proceder ?

tenta usar algo com =INFORMAÇÃO("DIRETÓRIO"), talvez funcione... eu não entendi bem o seu problema

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

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!

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..

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.

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.

@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?

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