paulocezarpicos

Márcio, Você tem razão, era isso que estava dificultando mesmo. Gostaria que você me ajudasse em outra coisa. Me desculpe a minha incompetência, mas tentei de todas as maneiras alterar a formula abaixo pra apagar três as três colunas e não somente uma coluna como você fez e não consegui. Veja a formula abaixo: Private Sub cmd_exit_Click() Cells(lClient, 5).Select ( Eu queria que apagasse as colunas: 3, 4, 5) Selection.ClearContents Unload Me End Sub Faça isso pra mim, por favor. Paulo Cézar.

Márcio, Primeiro muito obrigado por atender minha postagem. Você atendeu 99%. Quando começo a inserção dos dados na coluna "C", toda a linha fica laranja, até ser preenchida a coluna "N", isto é, a obra ser concluída. Só que quando clico em sair (no frm_tradecontrols) apaga o alaranjado da coluna "E" e a célula fica protegida. Fora isso ficou beleza, supipa. Um abraço, Paulo Cezar.

Amigos, Tô precisando de vocês de novo. Queria incrementar numa planilha uma coisa que pra mim é um tanto quanto complexa. Temos uma planilha de controle de ofícios recebidos e eu queria que quando o usuário (uso a planilha em rede) inserir o nome do cliente na coluna "E" aparecesse uma caixa de diálogo dizendo que o nome de JOÃO DE JOSÉ DE SOUSA já tem tantas solicitações sem atendimento e perguntasse se deseja continuar ou não (consultando na coluna M os registros pendentes). Já tentei adaptar alguns códigos que encontrei na net, mas nada dá certo. Se vocês puderem me ajudar, ficaria grato. De já meus agradecimentos. Obs.: Planilha em anexo. Correspondencias 2018.zip

Patropi, Gostei do post, mas como fazer isso num form, tem como??? Paulo Cezar.

Galera, Precisa justamente desse letreiro. Será se alguem pode postar de novo???

Caros amigos, Boa tarde. Estou há vários dias queimando pestana e não consigo resolver uma parada aqui.É o seguinte, tenho um UserForm "inserir Dados" e nele tenho 3 ComboBox e 2 TextBox. Gostaria que ao clicar no Button "Enviar p/ planilha, a formula comparasse o conteúdo do Combobox1 "NOME" e o conteúdo do TextBox "DATA SAIDA" com a coluna A (NOME) e com a coluna D (DATAS) da planilha BDDADOS e apontasse a duplicidade, se houver. De já meus agradecimentos. Obs.: Planilha em anexo. ENVIO DE DIÁRIAS - v4.zip

Galera, Tô há vários dias tentando alterar umas formulas numa planilha (em anexo) que tenho e não estou conseguindo, se vocês me ajudassem ficaria enormemente agradecido. As alterações são as seguintes: 1 - Ao clicar no Button "Imprimir p/ Envio" ele imprime a planilha prestações e cria outra planilha com o mesmo conteúdo; ==> Eu queria que imprimisse a planilha prestações e transportasse os dados para a planilha BDDADOS, limpando a planilha prestações; 2 - Ao clicar no Button "Localizar p/ nº da Prestação" ele abre uma caixa de diálogo pedindo o nº da prestação e pesquisa em todas as planilhas criadas e diz que dia foi enviada a referida diária; ==> Eu queria que a mesma caixa de diálogo solicitasse o nome do funcionário e listasse na planilha prestações todas as diárias existente na planilha BDDADOS. De já meus agradecimentos a quem me ajudar, Paulo Cezar. ENVIO DE DIÁRIAS(MODELO 2017).zip

CasaDoHardware, não sei se entendi a pergunta, mas, a rotina é "gravar_e_PDF()"

Caros amigos do fórum, Tô com um probleminha que com certeza vocês tiram de letra. É o seguinte, quando executo a macro diretamente ela funciona beleza, mas, quando uso a função CALL dá um erro. Se alguém puder me ajudar ficaria grato. Arquivo em anexo, De já agradecido, Paulo Cezar. Desligamentos Programados.zip

Senhores do Clube do Haardware, Agradeço a todos que tentaram me ajudar. Consegui com muito sofrimento desenrolar o código acima citado, mais uma vez muito obrigado a todos.

Caro Philipp Moreira, Agradecido por se dá ao trabalho de me auxiliar nesse trabalho. Só que tem um detalhe, na coluna "K" não tem nada e a coluna onde cita a UA PICOS é na coluna "F". Faça uma nova leitura pra ver se melhora. Mais uma vez, agradaecido Paulo Cezar.

Boa Tarde amigos do Clube do Hardware, Peço por favor que alguém comente esse código abaixo, estou precisando aplica-lo em outro projeto e não estou conseguindo. Segue código: Sub InsereNomesUAPICOS() Dim LR As Long, k As Long, m As Long, x As Long LR = Sheets("geral").Cells(Rows.Count, "L").End(xlUp).Row Sheets("Recebimento (2)").Range("B10:D27").ClearContents For m = 12 To 13 For k = 10 To LR If Application.CountIf(Sheets("Recebimento (2)").Columns(2), Sheets("geral").Cells(k, m)) < 1 _ And Sheets("geral").Cells(k, 3) = Date And Sheets("Geral").Cells(k, 6) = "UA PICOS" Then Sheets("Recebimento (2)").Cells(x + 10, 2) = Sheets("geral").Cells(k, m) x = x + 1 End If Next k Next m End Sub Para facilitar, estou enviando em anexo o arquivo. De já meus agradecimentos, Paulo Cezar. Desligamentos Programados nº 060-2017.zip

Galera, Estou precisando da ajuda de vocês. Estou usando uma planilha que envia um arquivo via email direto do EXCEL, só que quando estou usando uma maquina nova (DELL), Office 2016, funciona beleza, mas quando tento usar a mesma planilha numa maquina antiga (HP) aparece o seguinte erro: ERRO EM TEMPO DE EXECUÇÃO '-2147220973(80040213)': FALHA NA CONEXÃO DO TRANSPORTE COM SERVIDOR. Agradeceria muito se alguém me desse uma luz. Obs.: planilha em anexo. Paulo Cezar. A seguir a formula que estou usando: Function EnviaEmail() ' Progress Blips ' Dim intIndex As Integer Dim sngPercent As Single Dim intMax As Integer intMax = 60 For intIndex = 1 To intMax sngPercent = intIndex / intMax ProgressStyle5 sngPercent ProgressStyle6 sngPercent DoEvents Sleep 60 Next Dim iMsg, iConf, Flds, nome, schema, SendEmailGmail nome = [D1].Value & ".pdf" 'Seta as variáveis, lembrando que o objeto Microsoft CDO deverá estar habilitado em Ferramentas->Referências->Microsoft CDO for Windows 2000 Library Set iMsg = CreateObject("CDO.Message") Set iConf = CreateObject("CDO.Configuration") Set Flds = iConf.Fields 'Configura o componente de envio de email schema = "http://schemas.microsoft.com/cdo/configuration/" Flds.item(schema & "sendusing") = 2 'Configura o smtp Flds.item(schema & "smtpserver") = "smtp.gmail.com" 'Configura a porta de envio de email Flds.item(schema & "smtpserverport") = 465 Flds.item(schema & "smtpauthenticate") = 1 'Configura o email do remetente Flds.item(schema & "sendusername") = "[email protected]" 'Configura a senha do email remetente Flds.item(schema & "sendpassword") = "picos123" Flds.item(schema & "smtpusessl") = 1 Flds.Update With iMsg 'Email do destinatário .To = Sheets("Dados").Range("G3").Value 'EMAIL DO DESTINATÁRIO 'Seu email .From = "[email protected]" 'Título do email .Subject = "Envio de TRAFOS QUEIMADOS " & Sheets("formulario").Range("T74").Value & " - " & Sheets("formulario").Range("T75").Value 'Mensagem do e-mail, você pode enviar formatado em HTML .HTMLBody = "Paulo Cézar, em anexo estamos enviando FICHA de TRAFO QUEIMADO de " & Sheets("formulario").Range("T74").Value & " - " & Sheets("formulario").Range("T75").Value 'Seu nome ou apelido .Sender = "Teste" 'Nome da sua organização .Organization = "Empresa Teste" 'email de responder para .ReplyTo = "[email protected]" 'Anexo a ser enviado na mensagem .AddAttachment ("c:\TRAFOS SUBSTITUIDOS\TRAFOS\" & Sheets("Formulario").Range("T74").Value & ".pdf") 'Passa a configuração para o objeto CDO Set .Configuration = iConf 'Envia o email SendEmailGmail = .Send End With 'Limpa as variáveis Set iMsg = Nothing Set iConf = Nothing Set Flds = Nothing Sheets("Banco de Dados").Select End Function Cadastramento e Envio de TRAFOS Substituidos.zip

Obrigado galera, consegui resolver por aqui mesmo.

Meus Professores, Me ajudem. Estou há vários dias tentando terminar essa planilha e não consigo. É o seguinte: queria que ao dá um duplo click na linha do listbox1, constante no userform2, preenchesse o userform1. Outra coisa, estou achando que a contagem das linhas no listbox1 está meia doida, não está contando certo. Ficaria grato se vocês me ajudassem. De já meus agradecimentos, Paulo Cezar. Obs.: Planilha em anexo. Cadastramento de TRAFOS Substituidos - ListBox -05-maio.zip

CasaDoHardware, Ficou beleza. Não sei o que foi que alterei não, mas, peço desculpa e te agradeço mais uma vez. Paz e bem, Paulo Cezar.

CasaDoHardware, Ó eu aqui de novo. A planilha tá imprimindo uns funcionários e outros não. Se´marco 6 funcionários só imprime 3, se marco o checkbox1 que é pra imprimir as fichas de todos os funcionários (73) só imprime 37. Não sei se foi as alterações que fiz, acredito que não, pois as alterações que fiz não conflita com sua formula. As alterações que fiz foram: proteger a planilha "Relação" (ocorre o mesmo erro desprotegida), criei duas formulas que ordena em ordem alfabética as planilhas "Relação" e a planilha que criei "Feriados", que também não vai influenciar em nada na sua formula. Estou mandando em anexo a planilha pra você ver. A senha da planilha é o algarismo zero (0). Agradecido, Paulo Cezar. CONTROLE INDIVIDUAL DE FREQUENCIA - 2017- 4.zip

CasaDoHardware, Perfeito, no grau, era o eu estava precisando. Que DEUS te abençoe e te dê mais inteligencia ainda para ajudar as pessoas, que como eu não estudei o suficiente. Um grande abraço, Paulo Cezar.

CasaDoHardware, Está quase perfeita, pra isso acontecer só precisamos fazer as seguintes alterações: - Quando não marco nenhum funcionário na coluna "F", está imprimindo as planilhas de todos os funcionários, só que os campos com dados em branco; - Eu queria que a planilha "Ponto" ficasse sempre oculta. Quando eu quisesse reexibir usaria o ícone existente no lado direito superior, junto com o ícone da impressora (pra reexibir eu consigo fazer); - Quanto as mensagens não estão aparecendo, pelo contrario, se não marco os checkbox's está imprimindo todas as plnailhas ao invés de aparecer a mensagem: "você não marcou nenhuma opção"; Se marco o checkbox2 sem marcar nenhuma opção na coluna "F", está imprimindo todas as planilhas em branco ao invés de aparecer uma mensagem: "Você não marcou nenhum funcionário"; - E os feriados que você disse que é moleza. Pronto, ficaria perfeita. Fico no aguardo. Que DEUS te abençoe por essa grande ajuda que você está me dando. Um abraço, Paulo Cezar.

CasaDoHardware, Não vi a planilha ainda ( celular). Os campos que serão preenchidos são os campos constantes na planilha "Relação". Quanto a coluna data, tem que tá preenchida e com os seus respectivos sábados, domingos e feriados. Os funcionários preencherão manualmente só os horários. Agradecido, Paulo Cézar.

CasaDoHardware, Não é desprezo pelo excel e sim ignorância, me ajude, por favor. Sim vou imprimir as planilhas pra que seja escrito os horários todos os dias, são comprovantes de frequência. Só a título de informação, na planilha "Relação", na coluna "F" vou marcar um "X" no nome e assim imprimirá a planilha correspondente. Perceba que tem um form com dois checkbox, se tiver uma mensagem quando os dois checkbox's estiverem desmarcados e outra mensagem quando o checkbox2 tiver marcado e não tiver nenhum "X" marcado na coluna "F", eu ficaria muitíssimo grato. Obs1.: Planilha em anexo; Obs2.: Se você comentar a formula minha gratidão será multiplicada por dez. Ficarei no aguardo, Paulo Cezar. CONTROLE INDIVIDUAL DE FREQUENCIA - 2017-3.zip

Edson, Venho aqui humildemente admitir que não utilizei sua fórmula (planilha) devido a sua complexidade e assim sendo não pude fazer nenhuma alteração. Mas, se você não ficou chateado comigo e quiser me ajudar , gostaria que visse essa formula e me dissesse onde estou errando e ficaria muitíssimo grato pela sua compreensão e colaboração. Formula abaixo: Private Sub CommandButton1_Click() Dim I As Long For I = 1 To 2 If UserForm2.Controls("CheckBox" & I) Then GoTo Mjump Next I MsgBox "VAL, MARQUE UMA OPÇÃO !!!!!!": Unload Me: Exit Sub Mjump: If CheckBox1 = True Then (imprime todas as planilhas) Call ImprimirPlanilhas If CheckBox2 = True Then (imprime somente as planilhas marcadas) If Sheets("Relação").[F10] <> "" Then Sheets("ALEXANDRE").PageSetup.PrintArea = "A1:L48" Sheets("ALEXANDRE").PrintOut End If ElseIf Sheets("Relação").[F11] <> "" Then Sheets("ANTONIO").PageSetup.PrintArea = "A1:L48" Sheets("ANTONIO").PrintOut ElseIf Sheets("Relação").[F12] <> "" Then Sheets("IVANILDO").PageSetup.PrintArea = "A1:L48" Sheets("IVANILDO").PrintOut ElseIf Sheets("Relação").[F13] <> "" Then Sheets("ANTONIO JOAQUIM").PageSetup.PrintArea = "A1:L48" Sheets("ANTONIO JOAQUIM").PrintOut ElseIf Sheets("Relação").[F14] <> "" Then Sheets("AMENDES").PageSetup.PrintArea = "A1:L48" Sheets("AMENDES").PrintOut ElseIf Sheets("Relação").[F15] <> "" Then Sheets("LOMBARDE").PageSetup.PrintArea = "A1:L48" Sheets("LOMBARDE").PrintOut ElseIf Sheets("Relação").[F16] <> "" Then Sheets("AURIVAN").PageSetup.PrintArea = "A1:L48" Sheets("AURIVAN").PrintOut ElseIf Sheets("Relação").[F17] <> "" Then Sheets("CLEMILTON").PageSetup.PrintArea = "A1:L48" Sheets("CLEMILTON").PrintOut ElseIf Sheets("Relação").[F18] <> "" Then Sheets("DANIEL").PageSetup.PrintArea = "A1:L48" Sheets("DANIEL").PrintOut ElseIf Sheets("Relação").[F19] <> "" Then Sheets("DANILO").PageSetup.PrintArea = "A1:L48" Sheets("DANILO").PrintOut Else: MsgBox "VAL, VOCÊ NÃO MARCOU COM X NENHUM FUNCIONÁRIO !!!!!!": Unload Me: Exit Sub End If End If End If Call limpar Unload Me Application.ScreenUpdating = True End Sub De já, meus agradecimentos. Paulo Cezar.

Edson, Muito agradecido pela sua presteza e atenção. Desse jeito que você fez não dá certo poque são 74 planilhas, não tem espaço no formulário que dê. Mas, não se preocupe, depois de apanhar muito consegui fazer do jeito que queria, isto é, fiz um código que imprime todas as planilhas e outro que imprime a planilha que estiver marcada com um "X" na coluna "F". Mas, o mais importante é que sou muito grato a você pela ajuda a mim dispensada. Que JESUS te abençoe hoje e sempre. Paulo Cezar.

Edson, Não queria te perturbar, mas, se o santo é milagroso, não tem sentido mudar a devoção. É o seguinte: Me bati pra criar uma maneira prática de como imprimir as planilhas e não consegui. Fiz um formulário que será chamado pelo ícone que inseri na planilha "Relação" e queria que ao marcar o primeiro checkbox imprimisse todas as planilhas ou marcar o segundo checkbox aparecesse a Label3 e Textbox1 e então o usuário digitasse o nº da planilha, tipo 1,2,3,4,15,44 etc..... Na certeza de sua colaboração, Paulo Cezar. Obs.: Estou enviando a planilha em anexo. CONTROLE INDIVIDUAL DE FREQUENCIA - 2017.zip

Edson, Federal, perfeito, o que eu posso dizer .... genial. Muito obrigado e que JESUS continue te abençoando. Paulo Cezar.