Ir para conteúdo
Fórum Script Brasil

benzadeus

Membros
  • Total de itens

    84
  • Registro em

  • Última visita

Sobre benzadeus

Contatos

  • Website URL
    http://www.ambienteoffice.com.br

benzadeus's Achievements

0

Reputação

  1. benzadeus

    Ajuda com Código

    Olá, Disponibilize sua pasta de trabalho num site como SendSpace.com e cole o link aqui para eu propor uma solução.
  2. benzadeus

    Substituir Apóstrofo

    Selecione a coluna que possui o nome das cidades e pressione Ctrl+U para mostrar a janela de substituição. Em Localizar, escreva ' (ou seja, apóstrofo) Em Substituir por, deixe em branco. Clique então em Substituir tudo.
  3. Não tentei resolver o problema da forma que busca. No entanto, há uma alternativa neste link, sugiro dar uma olhada: http://www.ambienteoffice.com.br/excel/val...tas_dependentes
  4. Esses sites ensinam como fazer mapas com qualquer shapes. É trabalhoso, mas o resultado final é muito bom. Também, não há o problema da transparência.
  5. Dicas úteis, mas você deve trocar Tif por Gif e, em todos os lugares que cita "Data", devem trocar por "Dados".
  6. http://www.clearlyandsimply.com/clearly_an...with-excel.html http://www.tushar-mehta.com/publish_train/...hape_colors.htm
  7. O mesmo vale para o Chrome. Não existe um OLE que você pode manipular o Chrome, Opera nem FireFox. O método getElementById faz parte do objeto Document que é um membro da classe da biblioteca do Internet Explorer, ou seja: só válido para Internet Explorer.
  8. Seria um pouco complicado você usar as ferramentas nativas de tabela dinâmica para obter o efeito que deseja. Tenho uma sugestão. Na célula J42, entre com a fórmula: ="Acum. " & TEXTO(D42;"mmm-aa") Arraste essa fórmula (copie) até a célula N42. Na célula J43, entre com a fórmula: =SOMA(B43:D43) Copie essa fórmula para o intervalo J43:N76.
  9. Olá, não sei se é possível fazer o que pretende. Eu gastaria um bom tempo tentando reproduzir sua situação, será que é possível você disponibilizar uma parte de sua pasta de trabalho num site como SendSpace.com que mostre esse comportamento indesejado para eu dar uma olhada?
  10. benzadeus

    Trazer dados de Bibliografia

    Para importar as referências bibliográficas em XML para um Documento Word 2010, clique no menu Referências, e no grupo Citações e Bibliografia, clique em Gerenciar Fontes Bibliográficas. Clique no botão Procurar e abra o arquivo XML.
  11. Private Sub CommandButton1_Click() If Not CheckBox1 Then Exit Sub ActiveDocument.Bookmarks("InserirTexto").Select Selection.ParagraphFormat.Alignment = wdAlignParagraphJustify Selection.Font.Bold = True Selection.Font.Name = "ARIAL" Selection.Font.Italic = True Selection.Font.Size = 12 Selection.TypeText Text:="ESTRADO DE PVC" Selection.Font.Bold = False Selection.TypeParagraph Selection.TypeText Text:="Estrados plásticos, funcional, antiderrapante, higiênico e de fácil colocação. Suporta até 21 tons/m2 de carga estática." Selection.TypeParagraph Selection.TypeText Text:="Disponível nas cores branca, azul, marrom e cinza; com altura de 25 mm. Placas 500x500mm." Selection.TypeParagraph Selection.TypeParagraph End Sub
  12. Crie um formulário com 5 Rótulos (Labels) chamados: lblTexto1 lblTexto2 lblTexto3 lblTexto4 lblTexto5 Em seguida, cole o código abaixo na classe do formulário: Private Sub UserForm_Initialize() Dim ctrl As Control Dim sValorTexto(1 To 5) Dim lValor As Long sValorTexto(1) = "Benzadeus" sValorTexto(2) = "Teste" sValorTexto(3) = "Felipe" sValorTexto(4) = "Costa" sValorTexto(5) = "Gualberto" For Each ctrl In Me.Controls If Left(ctrl.Name, Len("lblTexto")) = "lblTexto" Then lValor = Replace(ctrl.Name, "lblTexto", "") ctrl.Caption = sValorTexto(lValor) End If Next ctrl End Sub
  13. benzadeus

    Do While

    Sugiro trocar por: Linha = Cells(Rows.Count, "A").End(xlUp).Row + 1 Fiz uma discussão sobre obter última linha por VBA em: http://www.ambienteoffice.com.br/excel/obt...e_um_intervalo/ Troque também: Private Sub fem1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Dim strValid As String strValid = "0123456789" If InStr(strValid, Chr(KeyAscii)) = 0 Then KeyAscii = 0 End If End Sub Private Sub fem2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Dim strValid As String strValid = "0123456789" If InStr(strValid, Chr(KeyAscii)) = 0 Then KeyAscii = 0 End If End Sub Private Sub fem3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Dim strValid As String strValid = "0123456789" If InStr(strValid, Chr(KeyAscii)) = 0 Then KeyAscii = 0 End If End Sub Private Sub masc1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Dim strValid As String strValid = "0123456789" If InStr(strValid, Chr(KeyAscii)) = 0 Then KeyAscii = 0 End If End Sub Private Sub masc2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Dim strValid As String strValid = "0123456789" If InStr(strValid, Chr(KeyAscii)) = 0 Then KeyAscii = 0 End If End Sub Private Sub masc3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Dim strValid As String strValid = "0123456789" If InStr(strValid, Chr(KeyAscii)) = 0 Then KeyAscii = 0 End If End Sub por: Private Sub fem1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) KeyAscii = ValidarTecla(KeyAscii) End Sub Private Sub fem2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) KeyAscii = ValidarTecla(KeyAscii) End Sub Private Sub fem3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) KeyAscii = ValidarTecla(KeyAscii) End Sub Private Sub masc1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) KeyAscii = ValidarTecla(KeyAscii) End Sub Private Sub masc2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) KeyAscii = ValidarTecla(KeyAscii) End Sub Private Sub masc3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) KeyAscii = ValidarTecla(KeyAscii) End Sub Private Function ValidarTecla(i As Integer) As Integer If InStr("0123456789", Chr(i)) = 0 Then MsgBox "Utilize apenas números!", vbCritical ValidarTecla = 0 Else ValidarTecla = i End If End Function
  14. benzadeus

    Macro VBA Outlook

    Tente: On Error Resume Next If omsg.Sent Then MsgBox "O email foi enviado!" Else MsgBox "O email não foi enviado!" End If On Error GoTo 0 Explicação: tentar acessar omsg.Sent retorna um erro quando o e-mail foi enviado, por isso a necessidade de usar On Error Resume Next. No entanto, se a caixa do Display for cancelada, omsg.Sent retorna Falso.
  15. Estou supondo que você sabe como fazer isso individualmente, num único controle, e não quer repetir o mesmo código para todos os controles, certo? Sim, veja: http://www.ambienteoffice.com.br/officevba..._um_formulario/
×
×
  • Criar Novo...