Ir ao conteúdo
  • Comunicados

    • Gabriel Torres

      Seja um moderador do Clube do Hardware!   12-02-2016

      Prezados membros do Clube do Hardware, Está aberto o processo de seleção de novos moderadores para diversos setores ou áreas do Clube do Hardware. Os requisitos são:   Pelo menos 500 posts e um ano de cadastro; Boa frequência de participação; Ser respeitoso, cordial e educado com os demais membros; Ter bom nível de português; Ter razoável conhecimento da área em que pretende atuar; Saber trabalhar em equipe (com os moderadores, coordenadores e administradores).   Os interessados deverão enviar uma mensagem privada para o usuário @Equipe Clube do Hardware com o título "Candidato a moderador". A mensagem deverá conter respostas às perguntas abaixo:   Qual o seu nome completo? Qual sua data de nascimento? Qual sua formação/profissão? Já atuou como moderador em algo outro fórum, se sim, qual? De forma sucinta, explique o porquê de querer ser moderador do fórum e conte-nos um pouco sobre você.   OBS: Não se trata de função remunerada. Todos que fazem parte do staff são voluntários.

Kelvim

Membros Plenos
  • Total de itens

    71
  • Registro em

  • Última visita

  • Qualificações

    0%

Reputação

0

1 Seguidor

Sobre Kelvim

  • Data de Nascimento 15-07-1991 (27 anos)

Informações gerais

  • Cidade e Estado
    BETIM
  1. Boa noite Eu estou editando um código e não estou conseguindo colocar para que uma imagem quem esta dentro de uma DIV seja alterada a cada X tempo. Gostaria de por exemplo a cada 30 segundos uma imagem, depois de 30 segundos outra imagem. Queria alterar entre a imagem de Index 0 e Index 1. ******************************************************************************************************** ********** Index 0 ************** <div data-image-index="0" data-displayer-width="1678" data-displayer-height="1119" data-displayer-uri="45b0e3_f2808e64042b45f7ade77b6229a3d126~mv2.jpg" data-height-diff="0" data-width-diff="0" data-bottom-gap="0" data-image-wrapper-right="0" data-image-wrapper-left="0" data-image-wrapper-top="0" data-image-wrapper-bottom="0" data-margin-to-container="0" itemscope="" itemtype="http://schema.org/ImageObject" style="position: absolute; left: 0px; top: 0px; opacity: 0.000164131; visibility: inherit; height: 553px; width: 100%;" class="style-isqm9g1yimageItem" data-state="notShowPanel desktopView unselected clipImage transIn normal noLink" id="comp-isqm6ofodataItem-iv884ilb"> ********** Index 1 ************** <div data-image-index="1" data-displayer-width="1700" data-displayer-height="1130" data-displayer-uri="45b0e3_4a186640b54f4ce38907204ea23571c1~mv2.jpg" data-height-diff="0" data-width-diff="0" data-bottom-gap="0" data-image-wrapper-right="0" data-image-wrapper-left="0" data-image-wrapper-top="0" data-image-wrapper-bottom="0" data-margin-to-container="0" itemscope="" itemtype="http://schema.org/ImageObject" style="position: absolute; left: 0px; top: 0px; opacity: 0.382182; height: 553px; width: 100%; visibility: inherit;" class="style-isqm9g1yimageItem" data-state="notShowPanel desktopView unselected clipImage transOut rollover noLink" id="comp-isqm6ofodataItem-iv883xp0"> ******************************************************************************************************** <div id="c1537inlineContent" class="p1inlineContent"> <div style="overflow: hidden; left: 0px; right: 0px; position: absolute; margin-left: 0.5px; margin-right: 0px; top: 81px; height: 550px; width: 100%;" data-gallery-id="comp-isqm6ofo" data-height-diff="0" data-width-diff="0" class="style-isqm9g1y" data-state="hidePlayButton autoplayOn notMobile desktopView touchRollOut animationInProcess" id="comp-isqm6ofo"> <div class="style-isqm9g1y_border"></div> <div style="height: 100%; z-index: 0;" data-gallery-id="comp-isqm6ofo" id="comp-isqm6ofoitemsContainer" class="style-isqm9g1yitemsContainer"> <div data-image-index="0" data-displayer-width="1678" data-displayer-height="1119" data-displayer-uri="45b0e3_f2808e64042b45f7ade77b6229a3d126~mv2.jpg" data-height-diff="0" data-width-diff="0" data-bottom-gap="0" data-image-wrapper-right="0" data-image-wrapper-left="0" data-image-wrapper-top="0" data-image-wrapper-bottom="0" data-margin-to-container="0" itemscope="" itemtype="http://schema.org/ImageObject" style="position: absolute; left: 0px; top: 0px; opacity: 0.000164131; visibility: inherit; height: 553px; width: 100%;" class="style-isqm9g1yimageItem" data-state="notShowPanel desktopView unselected clipImage transIn normal noLink" id="comp-isqm6ofodataItem-iv884ilb"> <div draggable="false" style="cursor:default;height:100%;width:100%;position:absolute;top:0px;left:0px;user-select:none;-webkit-user-select:none;-moz-user-select:none;-ms-user-select:none;user-drag:none;-webkit-user-drag:none;-moz-user-drag:none;-ms-user-drag:none;user-modify:read-only;-webkit-user-modify:read-only;-moz-user-modify:read-only;-ms-user-modify:read-only" data-page-item-context="dataItem-isqm6ogz" data-gallery-id="comp-isqm6ofo" id="comp-isqm6ofodataItem-iv884ilblink" class="style-isqm9g1yimageItemlink"> <div style="height: 553px; width: 100%; margin: 0px;" id="comp-isqm6ofodataItem-iv884ilbimageWrapper" class="style-isqm9g1yimageItemimageWrapper"> <div style="cursor:default" id="comp-isqm6ofodataItem-iv884ilbzoom" class="style-isqm9g1yimageItemzoom"> <div style="position: relative; width: 100%; height: 553px; overflow: hidden;" data-style="position:relative;overflow:hidden" class="style-isqm9g1yimageItemimage" id="comp-isqm6ofodataItem-iv884ilbimage"> <img id="comp-isqm6ofodataItem-iv884ilbimageimage" alt="" data-type="image" itemprop="contentUrl" src="TESTE _ Início_files/45b0e3_f2808e64042b45f7ade77b6229a3d126_mv2.webp" style="width: 100%; height: 553px; object-fit:cover;"> </div></div></div> <div id="comp-isqm6ofodataItem-iv884ilbpanel" class="style-isqm9g1yimageItem_pnl style-isqm9g1yimageItempanel"> <h3 aria-hidden="true" style="text-align:left" itemprop="name" id="comp-isqm6ofodataItem-iv884ilbtitle" class="style-isqm9g1yimageItemtitle"></h3> <p id="comp-isqm6ofodataItem-iv884ilbDescription" style="text-align:left" itemprop="description" class="style-isqm9g1yimageItemdescription">TESTEogados Belo Horizonte</p></div></div></div> <div data-image-index="1" data-displayer-width="1700" data-displayer-height="1130" data-displayer-uri="45b0e3_4a186640b54f4ce38907204ea23571c1~mv2.jpg" data-height-diff="0" data-width-diff="0" data-bottom-gap="0" data-image-wrapper-right="0" data-image-wrapper-left="0" data-image-wrapper-top="0" data-image-wrapper-bottom="0" data-margin-to-container="0" itemscope="" itemtype="http://schema.org/ImageObject" style="position: absolute; left: 0px; top: 0px; opacity: 0.382182; height: 553px; width: 100%; visibility: inherit;" class="style-isqm9g1yimageItem" data-state="notShowPanel desktopView unselected clipImage transOut rollover noLink" id="comp-isqm6ofodataItem-iv883xp0"> <div draggable="false" style="cursor:default;height:100%;width:100%;position:absolute;top:0px;left:0px;user-select:none;-webkit-user-select:none;-moz-user-select:none;-ms-user-select:none;user-drag:none;-webkit-user-drag:none;-moz-user-drag:none;-ms-user-drag:none;user-modify:read-only;-webkit-user-modify:read-only;-moz-user-modify:read-only;-ms-user-modify:read-only" data-page-item-context="dataItem-isqm6ogz" data-gallery-id="comp-isqm6ofo" id="comp-isqm6ofodataItem-iv883xp0link" class="style-isqm9g1yimageItemlink"> <div style="height: 553px; width: 100%; margin: 0px;" id="comp-isqm6ofodataItem-iv883xp0imageWrapper" class="style-isqm9g1yimageItemimageWrapper"> <div style="cursor:default" id="comp-isqm6ofodataItem-iv883xp0zoom" class="style-isqm9g1yimageItemzoom"> <div style="position: relative; width: 100%; height: 553px; overflow: hidden;" data-style="position:relative;overflow:hidden" class="style-isqm9g1yimageItemimage" id="comp-isqm6ofodataItem-iv883xp0image"> <img id="comp-isqm6ofodataItem-iv883xp0imageimage" alt="" data-type="image" itemprop="contentUrl" src="TESTE_Início_files/45b0e3_4a186640b54f4ce38907204ea23571c1_mv2.webp" style="width: 100%; height: 553px; object-fit: cover;"></div></div></div>
  2. Bom dia Esqueci de marca como resolvido. Mas muito obrigado
  3. Boa noite Tenho um arquivo do Access. Onde tenho uma tabela onde tem um campo onde a configuração é para texto longo. No formulário campo texto entretanto só é exibido 255 caracteres. Se alguém souber como resolver.
  4. esta por exemplo na aba MENSAG - PRESENCIAL celula A44 porém na mesma aba MENSAG - PRESENCIAL existe alguns gráficos que também gostaria de enviar
  5. Boa tarde Eu estou utilizando um código que envia email pelo Excel usando o Outlook. porém este código em questão eu não consigo enviar a imagem que estiver no corpo da planilha. Gostaria de saber se alguem conseguiria me ajudar. Sub ENVIAR_HTML() Dim OutApp As Object Dim OutMail As Object Dim rng As Range Dim resultado As VbMsgBoxResult Set rng = Nothing Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) Application.DisplayAlerts = False resultado = MsgBox("Tem certeza que deseja Enviar o Arquivo?", vbYesNo, "ENVIAR ARQUIVO") If resultado = vbYes Then ArqAberto01 = ActiveWorkbook.Name Application.DisplayAlerts = False Windows(ArqAberto01).Activate Application.Dialogs(xlDialogOpen).Show ArqAberto02 = ActiveWorkbook.Name Windows(ArqAberto02).Activate CAMINHO = Workbooks(ArqAberto02).Path ArqAberto02 = ActiveWorkbook.Name Windows(ArqAberto02).Close Windows(ArqAberto01).Activate Sheets("MENU").Select Set rng = Sheets("MENSAGEM").Range("A1:L22").SpecialCells(xlCellTypeVisible) On Error Resume Next With OutMail .To = Sheets("CAMINHO").Range("B4").Value .CC = Sheets("CAMINHO").Range("B5").Value .BCC = "" .Subject = "OS - VISTORIA" '.HTMLBody = msg1 & RangetoHTML(rng) .HTMLBody = RangetoHTML(rng) '& Assinatura Set Signature = Account.NewMessageSignature .Attachments.Add ("" & CAMINHO & "\" & ArqAberto02 & "") .display End With SendKeys "^{ENTER}" On Error GoTo 0 Set OutMail = Nothing Set OutApp = Nothing Else End If End Sub Function RangetoHTML(rng As Range) Dim fso As Object Dim ts As Object Dim TempFile As String Dim TempWB As Workbook TempFile = Environ$("temp") & "\" & Format(Now, "dd-mm-yy h-mm-ss") & ".htm" rng.Copy Set TempWB = Workbooks.Add(1) With TempWB.Sheets(1) .Cells(1).PasteSpecial Paste:=8 .Cells(1).PasteSpecial xlPasteValues, , False, False .Cells(1).PasteSpecial xlPasteFormats, , False, False .Cells(1).Select Application.CutCopyMode = False On Error Resume Next .DrawingObjects.Visible = True .DrawingObjects.Delete On Error GoTo 0 End With With TempWB.PublishObjects.Add( _ SourceType:=xlSourceRange, _ Filename:=TempFile, _ Sheet:=TempWB.Sheets(1).Name, _ Source:=TempWB.Sheets(1).UsedRange.Address, _ HtmlType:=xlHtmlStatic) .Publish (True) End With Set fso = CreateObject("Scripting.FileSystemObject") Set ts = fso.GetFile(TempFile).OpenAsTextStream(1, -2) RangetoHTML = ts.readall ts.Close RangetoHTML = Replace(RangetoHTML, "align=center x:publishsource=", _ "align=left x:publishsource=") TempWB.Close savechanges:=False Kill TempFile Set ts = Nothing Set fso = Nothing Set TempWB = Nothing End Function
  6. Private Sub CMD_OK_Click() If ComboBox1 = Empty And ComboBox3 = Empty And ComboBox2 = Empty And ComboBox4 = Empty And OPT_GERAL = False Then MsgBox "Escolha uma opção", vbInformation Else Dim EncontraString As String Dim Intervalo As Range Sheets("GERAL").Visible = True If OPT_MASTER = True And ComboBox1 <> Empty Then ' ******* PARCEIRO ******* If CHK_FANTASIA = True Then PDV = Right(ComboBox1, 7) EncontraString = PDV If Trim(EncontraString) <> "" Then With Sheets("GERAL").Range("A:A") Set Intervalo = .Find(What:=EncontraString, _ After:=.Cells(1), _ LookIn:=xlValues, _ LookAt:=xlWhole, _ SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious, _ MatchCase:=False) If Not Intervalo Is Nothing Then Application.Goto Intervalo, True '****************** N_SIRIUS = ActiveCell.Offset(0, 2) N_REABERTURA = ActiveCell.Offset(0, 3) N_REVISITA = ActiveCell.Offset(0, 4) N_TROCA = ActiveCell.Offset(0, 5) N_CAPACITAÇÃO = ActiveCell.Offset(0, 6) Sheets("BASE").Range("L8") = N_SIRIUS Sheets("BASE").Range("O8") = N_TROCA Sheets("BASE").Range("R8") = N_REABERTURA Sheets("BASE").Range("U8") = N_REVISITA Sheets("BASE").Range("AA8") = N_CAPACITAÇÃO Unload FRM_MASTER Sheets("GRAFICO").Select Range("G3") = OPT_MASTER.Caption Range("K3") = ComboBox1 Else MsgBox "Sem informação sobre a Empresa", vbInformation End If End With End If ElseIf CHK_PDV Then PDV = Left(ComboBox1, 7) EncontraString = PDV If Trim(EncontraString) <> "" Then With Sheets("GERAL").Range("A:A") Set Intervalo = .Find(What:=EncontraString, _ After:=.Cells(1), _ LookIn:=xlValues, _ LookAt:=xlWhole, _ SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious, _ MatchCase:=False) If Not Intervalo Is Nothing Then Application.Goto Intervalo, True '****************** N_SIRIUS = ActiveCell.Offset(0, 2) N_REABERTURA = ActiveCell.Offset(0, 3) N_REVISITA = ActiveCell.Offset(0, 4) N_TROCA = ActiveCell.Offset(0, 5) N_CAPACITAÇÃO = ActiveCell.Offset(0, 6) Sheets("BASE").Range("L8") = N_SIRIUS Sheets("BASE").Range("O8") = N_TROCA Sheets("BASE").Range("R8") = N_REABERTURA Sheets("BASE").Range("U8") = N_REVISITA Sheets("BASE").Range("AA8") = N_CAPACITAÇÃO Unload FRM_MASTER Sheets("GRAFICO").Select Range("G3") = OPT_MASTER.Caption Range("K3") = ComboBox1 Else MsgBox "Sem informação sobre a Empresa", vbInformation End If End With End If End If ElseIf OPT_CONSULTOR = True And ComboBox3 <> Empty Then Application.DisplayAlerts = False Sheets("GERAL").Activate Rows("1:1").Select Selection.AutoFilter ActiveSheet.Range("$A$1:$Microsoft50000").AutoFilter Field:=12, Criteria1:= _ ComboBox3 Range("L50000").Select Selection.End(xlUp).Select Range(Selection, "A1").Select Selection.Copy Sheets.Add After:=ActiveSheet PLAN02 = ActiveSheet.Name ActiveSheet.Paste Range("C50000").Select Selection.End(xlUp).Select ActiveCell.Offset(1, 0).Select LINHA = 2 POSIÇÃO = ActiveCell.Row 'Application.CutCopyMode = False X = LINHA - POSIÇÃO ActiveCell.FormulaR1C1 = "=AVERAGE(R[" & X & "]C:R[-1]C)" ActiveCell.Offset(0, 1).Select ActiveCell.FormulaR1C1 = "=AVERAGE(R[" & X & "]C:R[-1]C)" ActiveCell.Offset(0, 1).Select ActiveCell.FormulaR1C1 = "=AVERAGE(R[" & X & "]C:R[-1]C)" ActiveCell.Offset(0, 1).Select ActiveCell.FormulaR1C1 = "=AVERAGE(R[" & X & "]C:R[-1]C)" ActiveCell.Offset(0, 1).Select ActiveCell.FormulaR1C1 = "=AVERAGE(R[" & X & "]C:R[-1]C)" Sheets("GERAL").Activate Selection.AutoFilter Sheets(PLAN02).Activate Range("C50000").Select Selection.End(xlUp).Select V = ActiveCell.Row Range(Cells(V, 3), Cells(V, 7)).Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False '****************** N_SIRIUS = Cells(V, 3) N_REABERTURA = Cells(V, 4) N_REVISITA = Cells(V, 5) N_TROCA = Cells(V, 6) N_CAPACITAÇÃO = Cells(V, 7) Sheets("BASE").Range("L8") = N_SIRIUS Sheets("BASE").Range("O8") = N_TROCA Sheets("BASE").Range("R8") = N_REABERTURA Sheets("BASE").Range("U8") = N_REVISITA Sheets("BASE").Range("AA8") = N_CAPACITAÇÃO Sheets(PLAN02).Select ActiveWindow.SelectedSheets.Delete Unload FRM_MASTER Sheets("GRAFICO").Select Range("G3") = OPT_CONSULTOR.Caption Range("K3") = ComboBox3 Application.DisplayAlerts = True ElseIf OPT_REG = True And ComboBox2 <> Empty Then Application.DisplayAlerts = False Sheets("GERAL").Activate Rows("1:1").Select Selection.AutoFilter ActiveSheet.Range("$A$1:$Microsoft50000").AutoFilter Field:=11, Criteria1:= _ ComboBox2 Range("L50000").Select Selection.End(xlUp).Select Range(Selection, "A1").Select Selection.Copy Sheets.Add After:=ActiveSheet PLAN02 = ActiveSheet.Name ActiveSheet.Paste Range("C50000").Select Selection.End(xlUp).Select ActiveCell.Offset(1, 0).Select LINHA = 2 POSIÇÃO = ActiveCell.Row 'Application.CutCopyMode = False X = LINHA - POSIÇÃO ActiveCell.FormulaR1C1 = "=AVERAGE(R[" & X & "]C:R[-1]C)" ActiveCell.Offset(0, 1).Select ActiveCell.FormulaR1C1 = "=AVERAGE(R[" & X & "]C:R[-1]C)" ActiveCell.Offset(0, 1).Select ActiveCell.FormulaR1C1 = "=AVERAGE(R[" & X & "]C:R[-1]C)" ActiveCell.Offset(0, 1).Select ActiveCell.FormulaR1C1 = "=AVERAGE(R[" & X & "]C:R[-1]C)" ActiveCell.Offset(0, 1).Select ActiveCell.FormulaR1C1 = "=AVERAGE(R[" & X & "]C:R[-1]C)" Sheets("GERAL").Activate Selection.AutoFilter Sheets(PLAN02).Activate Range("C50000").Select Selection.End(xlUp).Select V = ActiveCell.Row Range(Cells(V, 3), Cells(V, 7)).Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False '****************** N_SIRIUS = Cells(V, 3) N_REABERTURA = Cells(V, 4) N_REVISITA = Cells(V, 5) N_TROCA = Cells(V, 6) N_CAPACITAÇÃO = Cells(V, 7) Sheets("BASE").Range("L8") = N_SIRIUS Sheets("BASE").Range("O8") = N_TROCA Sheets("BASE").Range("R8") = N_REABERTURA Sheets("BASE").Range("U8") = N_REVISITA Sheets("BASE").Range("AA8") = N_CAPACITAÇÃO Sheets(PLAN02).Select ActiveWindow.SelectedSheets.Delete Unload FRM_MASTER Sheets("GRAFICO").Select Range("G3") = OPT_REG.Caption Range("K3") = ComboBox2 Application.DisplayAlerts = True End If Sheets("GERAL").Visible = False Sheets("GRAFICO").Select For i = 1 To 5 ActiveSheet.Shapes.Range(Array("Picture " & i + 31)).Visible = False Next If Sheets("BASE").Range("X9") >= 9 Then For i = 1 To 5 ActiveSheet.Shapes.Range(Array("Picture " & i + 31)).Visible = True Next ElseIf Sheets("BASE").Range("X9") >= 7 Then For i = 1 To 4 ActiveSheet.Shapes.Range(Array("Picture " & i + 31)).Visible = True Next ElseIf Sheets("BASE").Range("X9") >= 5 Then For i = 1 To 3 ActiveSheet.Shapes.Range(Array("Picture " & i + 31)).Visible = True Next ElseIf Sheets("BASE").Range("X9") >= 3 Then For i = 1 To 2 ActiveSheet.Shapes.Range(Array("Picture " & i + 31)).Visible = True Next ElseIf Sheets("BASE").Range("X9") >= 1 Then For i = 1 To 1 ActiveSheet.Shapes.Range(Array("Picture " & i + 31)).Visible = True Next ElseIf Sheets("BASE").Range("X9") = 0 Then For i = 1 To 5 ActiveSheet.Shapes.Range(Array("Picture " & i + 31)).Visible = False Next End If Application.DisplayAlerts = True Sheets("GRAFICO").enable = True End If End Sub adicionado 4 minutos depois @Kelvim Eu testei colocar o comando para selecionar a plan no final do codigo e funcionou ele parou de travar a movimentação. ele não estava deixando movimentar com o cursor. valeu adicionado 7 minutos depois @Kelvim Coloquei dentro do botão a opção de selecionar a plan. E voltou a travar ele não deixar navegar. Acredito que alguma parte do codigo esteja travando a plan para as setas navegarem
  7. Bom dia Tem um código de VBA excel. Ele roda direito. O problema que quando tento mover a seleção entre as células usando as setas, ele trava como se tivesse bloqueado. Como devo proceder.
  8. Boa tarde Estou fazendo uma formatação condicional com objetos. Configuro a imagem do tamanho que desejo. porém quando reinicia o EXCEL a imagem fica de um tamanho menor. Gostaria de saber como deixo o tamanho fixo. Att
  9. Boa tarde Meu nome é Kelvim. Gostaria de saber se alguém conhece algum código que faça um teste de ping ao mesmo tempo salve o arquivo no formato de PDF. Ou ate mesmo salve em TXT depois converta em PDF. Cheguei no comando abaixo. porém não conseguir coloca para salvar em PDF nem converter. DEU CERTTO ping www.google.com.br >teste.txt NÃO DEU CERTO ping www.google.com.br >teste.pdf
  10. Boa tarde Gostaria de saber se alguém sabe como posso através de uma Macro na pasta de trabalho01 colocar senha no VBAProject de outra pasta de Trabalho02 do excel. Até cheguei no código abaixo porém não conseguir ir alem. Application.VBE.CommandBars(1).FindControl(ID:=2578, recursive:=True).Execute Atenciosamente
  11. Descobri como resolver basta usar a propriedade VBAProject.EstaPasta_de_trabalho Para colocar senha na criptografia basta usar a opção acima. Agora gostaria de saber se alguem sabe como eu posso atraves do VBA colocar senha no VBAproject de outra pasta de trabalho
  12. Boa noite Meu nome é Kelvim. Gostaria de saber se alguém sabe salvar um arquivo criptografado através do VBA. Atenciosamente adicionado 0 minutos depois @BasoleBoa noite Gostaria de pedir sua ajuda. Será que você saberia algo a respeito? adicionado 19 minutos depois Descobri como resolver basta usar a propriedade VBAProject.EstaPasta_de_trabalho
  13. Boa tarde Gostaria de pedir ajuda. Tenho um código que manipula um código de HTML pelo VBA EXCEL. porém na pagina da internet tem um campo que tem um INPUT em uma celula de uma tabela que é preenchida por um calendario em JQUERY. Gostaria de saber como da um INPUT neste campo, sem precisar clicar com o mouse. <TABLE style="VERTICAL-ALIGN: top; horizontalAlign: left" class=framework-default-hbox border=0 cellSpacing=0 cellPadding=0 spacing="0" horizontalAlign="null" verticalAlign="null"> <TBODY> <TR> <TD align=left valign="top"><INPUT style="WIDTH: 180px; FONT-SIZE: 12px" value="30/06/2017 Período da Manhã" readOnly></TD> <TD align=left valign="top"> <DIV><IMG style="CURSOR: pointer" src="../Scripts/Calendar/images/calendar.gif" width=24 height=24></DIV></TD></TR></TBODY></TABLE> Queria apenas inputar e dar um onchanger coisa do genero para que ele reconheça o valor inputado. Atenciosamente
  14. vba excel outlook

    Boa tarde Descobri uma solução. Basta colocar o código a baixo do código With ActiveSheet.MailEnvelope Do Until .Item.attachments.Count = 0 .Item.attachments(1).Delete Loop

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações 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

×