FMattos

Verifique se os computadores estão com acesso à rede. Normalmente ocorre em maquinas que pertencem a domínios e estão sem acesso a eles. Caso tenham acesso à rede mas não conseguem logar, tente tirar do domínio, reiniciar e por novamente.

boa tarde. Estou tendo dificuldade para acessar meu servidor por fora da minha rede. Já fiz todas as configurações para acesso remoto e consigo fazer utilizando o acesso remoto do proprio windows. coloco meu ip interno e ele solicita login e senha, ao digitar funciona de boa. configurei com o No Ip para acessar dd fora e ele até encontra o servidor, também pedindo login e senha. Aí é que encontro o problema. Ao digitar login e senha (informando o dominio, ex: servidor\renato) ele reconhece meu login e me mostra o nome completo (servidor Renato Mattos) mas não completa o login. não sei o que fazer, já que ele reconhece o servidor e o usuário que estou tentando logar mas não conclui o acesso. este usuário já está no grupo com permissão de acesso e é administrador. obs: O servidor é de casa, não está dentro de nenhuma rede privada ou coisa do tipo. (peço desculpa pela zona no post, mas estou fazendo pelo celular)

@Basole , bom dia! O "layout de chamados" é basicamente a planta da empresa, tenho a posição exata de cada computador. O que quero é identificar em qual destes computadores estou sendo chamado, mudando a cor dele no layout. ex: O operador "Contoso" precisa de ajuda, então ele vai procurar o nome dele na lista do userform, depois de selecionado, o computador dele vai aparecer de outra cor no layout, assim saberei exatamente onde ir.

Bom dia! Estou tentando fazer um "layout de chamados" em userform. A ideia é que dentro do userform seja exibida uma caixa de seleção (não decidi se nome do colaborador,nome da máquina...) e abaixo a imagem normal do meu layout. Quando o colaborador selecionar seu nome ou da máquina, a imagem do layout deve ser substituída por outra parecida, onde apenas a máquina dele dentro do Layout tenha outra cor (quero desta forma pois não tenho como conhecer todos os colaboradores pelos nomes, então com o layout indicando onde estou sendo chamado me facilita). Colocarei abaixo do layout um botão de comando, que deve alterar esta nova imagem pela original (Layout limpo) quando eu finalizar o atendimento. Eu teria que colocar quase 200 imagens para ter cada uma das estações destacada, mas acho que no final valerá a pena. * Se for possível colocar a planilha do layout dentro do userform seguindo formatação condicional para mudar de cor ou algo do tipo para evitar o uso de imagem será ainda melhor. Pensei talvez em colocar planilhas com regras direcionando para a minha (ao clicar em algum botão na sua planilha, aparece no meu layout quem clicou), mas acho que daria mais trabalho, se realmente for possível. imagino que tenha muitas falhas nesse plano, mas tento corrigir aos poucos. adicionado 10 minutos depois A questão é: Não sei como fazer para as imagens serem trocadas de acordo com a seleção nem colocar a planilha dentro do userform (com ou sem regra de formatação condicional). Podem me ajudar com qualquer uma das opções? **Estou aberto a sugestões

Bom dia! Gostaria de sabe se é possível utilizar tomadas USB para além de carregar a bateria de dispositivos. Não tenho nenhum projeto em mente, gostaria apenas de dar alguma utilidade a mais para as tomadas. Pretendo trocar de toda a casa. Pensei em duas possibilidades: * Transferir dados como um usb normal ao conectar o celular em qualquer tomada USB da casa. * Passar internet para celulares e tablet através desta tomada, mas ligada ao meu roteador, não ao computador. A segunda ideia não faz muito sentido já que temos WIFI, mas talvez possa ter algum dispositivo com entrada USB e sem wifi que poderia fazer uso disso. A primeira ideia me facilitaria para transferir arquivos para os celulares da casa, já que ninguém mais teria que vir até meu quarto para pedir alguma coisa ou para passar musica e filme para a TV na sala, que não é smart e tem apenas USB. ***Se houver alguma outra coisa que eu possa fazer com essas tomadas USB, podem dar sugestões.

Obrigado!! *Não consigo fechar o tópico.

@Basole , sim, o layout é uma planilha que fica no servidor. É a penas esta planilha mesmo e é atualizada por um de cada vez.

Bom dia! Gostaria de saber se é possível fazer o excel enviar um email para determinada pessoa após algum tempo sem que a pessoa faça alguma alteração na planilha. Para explicar melhor a situação: Tenho um layout de um CallCenter com informação de PAs, quem utiliza, SO... Este layout fica salvo no servidor, onde todos tem acesso e DEVEM alterar sempre que alguma mudança ocorrer em seu respectivo setor. O problema é que as alterações no local ocorrem mas esquecem de alterar o layout. Então quero definir que alguma alteração seja feita pelo menos uma vez por semana, e se alguém não alterar o layout, que seja enviado um email automático para esta pessoa para lembrar de atualizar.

Srs, bom dia! Estou tentando encontrar uma macro para salvar anexos de emails recebidos em pastas separadas. Consegui um no forum MSDN que cria a pasta com o email de quem envia a mensagem e salva os anexos dentro. Como trabalhamos com diversas pessoas enviando email e apenas uma conta para receber, a ideia é que todo email seja salvo em uma pasta para que todos tenham acesso. A maioria dos emails que recebemos são respostas, então quero que a macro pegue a assinatura do email original e crie uma pasta com este nome e salve os anexos dentro. Seria possível? Exemplo: enviei email para financeiro@hotmail.com, na minha assinatura vai meu nome, então quando o financeiro me responder, quero que a macro crie uma pasta com meu nome e salve a mensagem dentro desta pasta. abaixo a macro que peguei na MSDN (Reduzi a macro por não ter necessidade de filtrar mais formatos). Acho que alterando a parte verde da macro funciona, mas não faço ideia do que usar. Public Sub ProcessarAnexo(Email As MailItem) Dim DirAnexo1 As String Dim strRem As String Dim MailID As String Dim Lido As Boolean Dim Mail As Outlook.MailItem DirAnexo1 = "C:\MSG" MailID = Email.EntryID Set Mail = Application.Session.GetItemFromID(MailID) strRem = Mail.SenderEmailAddress For Each Anexo In Mail.Attachments If Right(Anexo.FileName, 3) = "msg" Then If Dir(DirAnexo1 & "\" & strRem, vbDirectory) = "" Then MkDir DirAnexo1 & "\" & strRem Anexo.SaveAsFile DirAnexo1 & "\" & strRem & "\" & Format(Mail.CreationTime, "yyyymmdd-hhnnss-") & Anexo.FileName Else Anexo.SaveAsFile DirAnexo1 & "\" & strRem & "\" & Format(Mail.CreationTime, "yyyymmdd-hhnnss-") & Anexo.FileName End If End If Mail.UnRead = False Next Set Mail = Nothing End Sub

Caros, Poucos dias atrás um amigo comprou a placa informada no titulo. Agora ele comprou um notebook e ta querendo me passar a placa. Quando criei um post perguntando sobre ela informaram que era fraca. Gostaria de saber se consigo rodar ao menos GTA SA no full com ela. Sei que é fraca, mas o jogo é antigo e tenho esperança que rode. Não pretendo comprar uma placa melhor porque não tenho quase tempo pra jogar, então rodar um GTA já seria de bom tamanho. Vai trabalhar em conjunto com CPU Athlon II X2 3.2GHz e 6GB de RAM.

@Basole deu um erro no "Arrb" igual ao "Cnn" , então fiz da mesma forma que você passou para corrigir cnn. agora ele não consegue executar "salas.show" , sendo salas meu userform. Acha que seria melhor refazer todo o modulo? tambem tenho a opção de pegar o modelo antigo da planilha, que funciona nestas máquinas e tentar fazer as mesmas alterações nas funções dela como fiz na atual.

@Basole Novamente erro no sql no modulo. Sub Abrir() Set Rs = New ADODB.Recordset Sql = "Select * FROM Chat where Sala=" & sala Rs.Open Sql, miConexion, 3, 3, adCmdText On Error Resume Next Do While Rs.EOF = False If Rs.Fields(4) = True Then Call imagen_ap: GoTo siguiente arrb = 0 If Chat.Frame1.Controls.Count = 0 Then arrb = 0 Else If Len(Application.UserName) > Len(Rs.Fields(1)) Then largo = Len(Application.UserName) Else _ largo = Len(Rs.Fields(1)) If largo >= 140 Then largo = 430 - largo Else: largo = 300 - largo For Each burb In Chat.Frame1.Controls arrb = arrb + burb.Height If burb.Left = 168 Then arrb = arrb - burb.Height Next arrb = arrb + 2 * Chat.Frame1.Controls.Count End If Set fd = Chat.Frame1.Controls.Add("forms.Label.1") fd.Top = arrb fd.SpecialEffect = 3 If Rs.Fields(2) = UCase(Application.UserName) Then fd.BackColor = &HC0FFC0 Else _ fd.BackColor = vbWhite fd.Caption = UCase(Rs.Fields(2)) & ":" & vbCrLf & Rs.Fields(1) & vbCrLf & Format(Rs.Fields(3), "hh:mm") fd.Width = fd.Width + largo fd.AutoSize = True If arrb > 210 Then With Chat.Frame1 .ScrollHeight = fd.Top + fd.Height .ScrollTop = fd.Top 'Check If Minimize was pressed and if so, Hide the form instead If Chat.Width <> 334.5 And Chat.Height <> 350.25 Then If VBA.Minute(Rs.Fields(3)) = VBA.Minute(VBA.Now) Then Call Msg(Rs.Fields(2) & " : " & Rs.Fields(1)) End If End With End If siguiente: Rs.MoveNext Loop End Sub A Janela do chat chega a abrir, mas fecha em menos de 2 segundos e apresenta erro.

@Basole agora não ocorre mais erro no sql, mas apareceu em outro lugar. Variavel não definida. O erro SQL ocorria no userform, este novo ocorre no modulo. Sub Conecta() If miConexion.State = 1 Then miConexion.Close ruta = ThisWorkbook.Path 'exemplo de Rede : 'ruta = "\\10.10.200.254\Users\Public\Documents" '------------------------------------------------------------------------------------ Set Cnn = New ADODB.Connection With miConexion .Provider = "Microsoft.ACE.OLEDB.12.0" .ConnectionString = "Data Source=" & ruta & "\Chat.accdb" .Open End With End Sub Amarelo é onde fica selecionado dizendo que a variavel não foi definida, mas ao dar ok na janela de erro, é selecionado automaticamente a parte de azul.

@Basole eu pensei nisso e verifiquei, todas tem o access. Pesquisando no google encontrei gente com este problema e pediram pra verificar "Microsoft Missing SOAP", mas aqui não tem isso. adicionado 13 minutos depois Pensei em mexer novamente no chat, mas parando pra pensar percebi que se funciona perfeito em algumas máquinas, o problema não é nele. preciso ajustar alguma coisa nas máquinas.

Caros, boa tarde! Estou com um problema para executar uma planilha (chat) em algumas máquinas. Nestas máquinas que dão erro "Can't find library or project", sempre aponta para: Private Sub listar() ListBox1.Clear Call Conecta Set Rs = New ADODB.Recordset Sql = "Select * FROM Salas" Rs.Open Sql, miConexion, 3, 3, adCmdText ListBox1.ColumnWidths = "50;50" Do While Rs.EOF = False ListBox1.AddItem ListBox1.List(x, 0) = Rs.Fields(0) If Not Rs.Fields(1) = "" Then _ ListBox1.List(x, 1) = "Sim" Else ListBox1.List(x, 1) = "Não" x = x + 1 Rs.MoveNext Loop Rs.Close End Sub Outra edição da mesma planilha funciona normalmente nestas máquinas. Editei algumas coisas de uma para outra, mas este trecho em especial é idêntico. (marquei "sql" de amarelo porque é desta forma que aparece quando dá erro). Alguma ideia de como resolver isto?