ad48

1 hora atrás, Walter C. Catelan disse:

Ah, então ele criou sim, você é que não tá achando. Digite esse endereço no Iniciar -> Pesquisar

não sei o que acontece veja só

2 horas atrás, Walter C. Catelan disse:

Se ele entro de novo no IF é porque não criou antes.

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

2 horas atrás, Walter C. Catelan disse:

Tira o C:\

É apenas o que eu digitei.

sim só não localizo ela

1 hora atrás, Walter C. Catelan disse:

Tira o C:\

É apenas o que eu digitei.

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.

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

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.

Bom dia!!

 

Eu não entendi porque quer dessa forma...

 

Porque não classificar baseado na zona, depois por uma formula e criar a sequência? 

 

Att

boa noite amigo zinhovba

postei um modelo mais atualizado 

com explicação do modo que funciona a base

obrigado.

Confirmando as informações:

1. você vai digitar registros na planilha DATA e utilizar um código (macro) para enviar os registros digitados para a planilha DATABASE ?

(se for isso, porque não digitar diretamente na planilha DATABASE ?)

2. poderá variar a quantidade de registros que serão digitados e enviados da cada vez?

3. os registros que forem repetidos, ou seja, as colunas E, H, I e J repetidas, precisarão de confirmação antes de enviar

4. os registros enviados e os recusados serão apagados ?

 

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 

obrigado.

Boa noite amigo

enviei outro anexo com a base formulario

pode me dar uma ajuda fico muito agradecido

att.

alguma ajuda?

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