benzadeus

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

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.

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

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.

Dicas úteis, mas você deve trocar Tif por Gif e, em todos os lugares que cita "Data", devem trocar por "Dados".

http://www.clearlyandsimply.com/clearly_an...with-excel.html http://www.tushar-mehta.com/publish_train/...hape_colors.htm

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.

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.

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?

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.

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

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

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

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.

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/

https://skydrive.live.com/redir?resid=FB206...10E0661!417

Onde você obtém erro nessa macro?

O formato XLS pode conter ou não macros. Logo, se você salvar uma Pasta de Trabalho XLSM em XLS, as macros serão conservadas.

Você terá que utilizar a função PROCV aplicada em outra Pasta de Trabalho. Veja mais em: http://www.ambienteoffice.com.br/excel/PRO...sta_de_trabalho

Worksheets(1).Range("b16:c500").Sort Key1:=Worksheets(1).Range("c16"), Order1:=xlDescending, _ Key2:=Worksheets(1).Range("b16"), Order2:=xlAscending Troque "Orderl" por "Order1" e "Order2"

Cole o link aqui, assim todos podem participar da evolução do tópico. Se a Pasta de Trabalho contém dados sigilosos, remova-os.

Você consegue fazer a operação manualmente? Se não, a Planilha pode estar protegida. Após o passo acima, disponibilize a Pasta de Trabalho num site gratuito, como SendSpace.com e poste o link aqui.

Outra alternativa é você deixar muitas linhas extras e adicionar a macro abaixo no evento abaixo: Private Sub Workbook_BeforePrint(Cancel As Boolean) With Sheets("sua_planilha") If ActiveSheet.Name = .Name Then .PageSetup.PrintArea = .UsedRange.Address End If End With End Sub Dessa forma, toda vez que um usuário dá o comando de imprimir, a área de impressão é redimensionada para o intervalo retangular que a Planilha está efetivamente preenchida.

Essa classificação de dados se aplicará na coluna C de uma tabela que está preenchida da célula B16 a C500. Além disso, essa Planilha deve ser a primeira (índice 1) da sua Pasta de Trabalho, isto é, deve estar na primeira aba. Você está atendendo esses requisitos antes de executar essa rotina?

Remova as aspas de "variavel"