ad48

não sei o que acontece veja só

primeira vez sim, na segunda não entra novamente no IF, mas não localizo a pasta.

sim só não localizo ela

ok rodou beleza só não lacalizei a pasta.

bom dia, CasaDoHardware sim, tem como criar este atalho automático? tenho colega um pouco atrapalhado quando fala em buscar em outro diretorio por isto gostaria de colocar direto no Desktop. adicionado 6 minutos depois bom dia, Walter C. Catelan, não rodou

meu pc local uso provisorio "C:\Users\armando\Desktop\ENVIO WHATSAPP" quero usar algo parecido "C:\Users\Public\Desktop\ENVIO WHATSAPP" ou outra forma que reconhece qualquer usuário em qualquer pc. obrigado.

Pasta e local quero salvar é "C:\Users\Public\Desktop\ENVIO WHATSAPP" ex : "C:\Users\armando\Desktop\ENVIO WHATSAPP"" eu consigo rodar. se enviar por e-mail para meus colegas outros pc não tem meu usuario armando não funciona. TESTE.rar

pode me ajudar? tenho este código abaixo funciona beleza no meu pc com meu usuário quando outro usuário vai usar não roda em outro pc ob: já tentei ConferePasta = "C:\Users\Public\Desktop\ENVIO WHATSAPP" no meu pc funciona, meu colega a pasta fica marcada somente leitura não consigo alterar. Sub CRIAR_PASTA_DESKTOP() Dim ConferePasta As String 'ConferePasta = "C:\NOVO1" ConferePasta = "C:\Users\armando\Desktop\ENVIO WHATSAPP" If Dir(ConferePasta, vbDirectory) = “” Then MkDir ConferePasta MsgBox "O diretório: " & ConferePasta & " FOI CRIADO! ARQUIVO SALVO SÓ FAZER O ENVIO", vbInformation, "AVISO" End If End Sub Sub SALVAR_IMAGEM() call CRIAR_PASTA_DESKTOP Sheets("IMPRIMIR").Select Dim rVis As Range, k As Long For Each rVis In Range("A:A").SpecialCells(xlCellTypeVisible) '(PRIMEIRA COLUNA) k = k + 1: If k = [A1] + 16 Then Exit For '[SOMA DE LIMHAS]+ TOTAL CABECALHO Next rVis Dim rgExp As Range: Set rgExp = Sheets("IMPRIMIR").Range("D4:U" & rVis.Row) '("SELEÇÃO DA AREA rgExp.CopyPicture Appearance:=xlScreen, Format:=xlBitmap With ActiveSheet.ChartObjects.Add(Left:=rgExp.Left, TOP:=rgExp.TOP, _ Width:=rgExp.Width, Height:=rgExp.Height) .Name = "ChartVolumeMetricsDevEXPORT" .Activate End With ActiveChart.Paste ActiveSheet.ChartObjects("ChartVolumeMetricsDevEXPORT").Chart.Export "C:\Users\armando\Desktop\Envio Whatsapp\" & [G12].Value & " " & [G1].Value & " Marcas ate dia " & [B1].Value & ".jpg" ActiveSheet.ChartObjects("ChartVolumeMetricsDevEXPORT").Delete Sheets("MENU").Select Range("N6").Select End Sub

Te devo mais uma grande professor Osvaldo, muito obrigado.

Osvaldo, estou postando em anexo se possível dar uma analisada,fazer alguma correção porque fiz uma alteração, a primeira vez que abre o arquivo o comando funciona só após de varias tentativas. aceito outra ideia este comando seria só para fazer a soma total de Horas trabalhadas/mês o mês que não tiver 31 dias aparece valor a formula não soma total. já estou te devendo uma cerveja bem gelada, Muito Obrigado HORAS osvaldo .rar

boa noite, tenho um procv que atualiza a celula A1. cada alteração na célula aciona a macro beleza teria como fazer quando estiver estes números 20 21 22 23 24 25 disparar um macro pra cada números? Private Sub Worksheet_Change(ByVal Target As Range) Static rng As Variant If IsEmpty(rng) Then rng = Range("A1") End If If rng = Range("A1") Then Exit Sub Call minhaMacro rng = Range("A1") End Sub Sub minhaMacro() MsgBox "Minha macro rodou..." End Sub muito obrigado

mais alguma ajuda?

boa tarde amigos, quem pode me ajudar?

boa noite estou aguardando ajuda quem pode me ajudar? att.

Boa noite Amigos, quem pode me ajudar? macro salvar database, anexo com nome RELATORIO_ANO MES DIA e hora .xlsb que foi salvo, e enviar por email pra 8 destinatarios buscar o email em algumas celulas ex: RELATORIO_20140723_185400.xlsb (.XLSB -------------------------------------------------------------------------------------------------------- macro salva mas não envia por email Sub salvar_relatorio() Dim sPath As String Dim sFileName As String sPath = ActiveWorkbook.Path & "\" Application.ScreenUpdating = False Application.DisplayAlerts = False Sheets("DATABASE").Visible = True Sheets("DATABASE").Select Sheets("DATABASE").Copy Selection.AutoFilter sFileName = "relatorio" & UCase(GetUserName) & " " & Format(Now(), "yyyymmdd_hhmmss") & ".xlsb" ActiveWorkbook.SaveAs Filename:=sPath & sFileName, FileFormat:=50, CreateBackup:=False ActiveWorkbook.Close ActiveWorkbook.Sheets("DATABASE").Visible = xlVeryHidden Application.ScreenUpdating = True Application.DisplayAlerts = True If MsgBox("Arquivo " & sFileName & " foi salvo e já pode ser enviado por e-mail!" & Chr(13) & "Deseja abrir a pasta que contém o arquivo?", vbQuestion + vbYesNo) = vbYes Then Shell "C:\WINDOWS\explorer.exe """ & sPath & "", vbNormalFocus End If End Sub segue o anexoteste.xls muito obrigado

boa tarde Osvaldo, parabéns pela sua explicação e sua ajuda você tem um bom conhecimento ficou muito bom mesmo. para outros códigos que quero alterar vou abrir outros tópicos. este tópico foi resolvido e pode ser fechado. meu muito obrigado. at.

boa noite Osvaldo obrigado por todas as informação e boa vontade que você tem de me ajudar ja que não sei muito de vba e não tenho muito conhecimento do funcionamento do forum. estou postando novo anexo agora acho que fiz melhor a explicação da forma que deve funcionar,você pode modificar todas a macro fazer da melhor forma. anexoteste.xls att.

boa noite grande osvaldomp, falta pequenos ajustes, a validacao não pode ser feita na coluna BV? valida estado,zona,dia mes ano. a pergunta não ser feita substituir a digitação sim ou não? = para todo formulario digitado? funcionou legal na segunda ele pergunta e faz a substitução, agora no ex: database com os dias gravados 3,4 e 5 = 45 codigos ta certo. se rodar a macro novamente o dia 5 apos confirmar pra fazer as substitução não funcionou ficou assim dia 1 = 1 codigo dia 2 = 14 codigos dia 3 = 45 codigos resumo repetiu 3 vezes cada codigo obrigado.

boa noite amigo zinhovba postei um modelo mais atualizado com explicação do modo que funciona a base obrigado.

boa tarde grande osvaldomp, resposta 1.reformulei o testo e adicionei a base com todas planilha é digitado na planilha formulario. 2.a quantidade de registro devera ser sempre a mesma se faltar digitar uma informação deve informar que tem celula vazia no formulario e não fazer a gravação do mesmo. 3.na coluna BV deve ser feito a ValidaDuplicado não pode repetir ,se repetir fazer uma pergunta deseja substituir as 15 informações sim grava não foi cancelado a gravação. 4,os registros enviados devem sempre colar na proxima linha vazia. obrigado.

Boa noite amigo enviei outro anexo com a base formulario pode me dar uma ajuda fico muito agradecido att.

alguma ajuda?

boa noite colegas tem como criar uma macro preencher numeros na sequencia 12345 etc na coluna B do anexo com filtro ativo,se puxar a celula manual não funciona, selecionar as linhas de impressão por data de vencimentos na sequencia, na lista suspensa seleciona a zona do vendedor. . segue a base em anexo6 Contratos JUN 2014.xls obrigado

alguem tem alguma ajuda?

http://i137.photobucket.com/albums/q214/big-louis/Diagrama.jpg usa o modelo desta image pra 4 fios ela esta ok ta com esta cor porque peguei ela assim pela sua sequencia de cor que voce passou preto azul verde vermelho o amarelo da image usa a cor azul