Ismael Souza

Bom dia pessoal ! No código abaixo, preciso salvar uma planilha na pasta com a seguinte sequencia : 2020 / mês / semana / dia Sub Atualiza() Dim DATA, Dia, Mes, Ano As String DATA = Date Dia = Left(DATA, 2) Mes = Right(Left(DATA, 5), 2) Ano = Right(DATA, 4) Set fso = CreateObject("Scripting.FileSystemObject") Dim rootPath As Variant, path2 As Variant Dim tgtValue As Variant Dim MyFile As String rootPath = "\\105.103.12.249\OQC\07. AUDITORIA\03.LINE PATROL\02.Relatórios de Auditoria\" path2 = "\\105.103.12.249\OQC\07. AUDITORIA\03.LINE PATROL\02.Relatórios de Auditoria\" & Ano & "\" & Mes & "\" & tgtValue & "\" & Dia & "" tgtValue = WorksheetFunction.IsoWeekNum(Date) On Error Resume Next If Dir("rootPath") = "" Then MkDir "\\105.103.12.249\OQC\07. AUDITORIA\03.LINE PATROL\02.Relatórios de Auditoria\" & Ano & "\" If Dir("rootPath & Ano") = "" Then MkDir "\\105.103.12.249\OQC\07. AUDITORIA\03.LINE PATROL\02.Relatórios de Auditoria\" & Ano & "\" & Mes If Dir("rootPath & Ano & Mes") = "" Then MkDir "\\105.103.12.249\OQC\07. AUDITORIA\03.LINE PATROL\02.Relatórios de Auditoria\" & Ano & "\" & Mes & "\" & tgtValue If Dir("rootPath & Ano & Mes & tgtValue") = "" Then MkDir "\\105.103.12.249\OQC\07. AUDITORIA\03.LINE PATROL\02.Relatórios de Auditoria\" & Ano & "\" & Mes & "\" & tgtValue & "\" & Dia End If End If End If End If dirCopia = path2 nomeCopia = ActiveWorkbook.Name ActiveWorkbook.SaveAs Filename:= _ dirCopia + nomeCopia, _ FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False End Sub Mas quando tento salvar o arquivo, esta salvando na semana, não está entrando na pasta do dia e salvando lá... O que estou fazendo de errado?

@Midori Tenho um planilha A, onde o no Range("A5:T5") tem duas imagens. Preciso copiar o range e colar e uma planilha B. Ocorre que quando colo a imagem fica alterada. Existe uma maneira de fazer esse processo por VBA de maneira que a imagem fique no formato original? Obrigado !

@Midori Esse final deu erro B.Sort.SortFields.Add2 Key:=B.Range("B2"), Order:=xlAscending O restante funcionou perfeitamente

Desculpe @Midori, sou iniciante em VBA e não consegui desenvolver pra tudo que me referi. adicionado 50 minutos depois @Midori Fiz essa adaptação mas não funcionou, esta adicionando uma linha mesmo se já existir o valor da coluna A na coluna B. sub Macro() Dim A, B, R As Object Set A = ThisWorkbook.Worksheets(3) Set B = ThisWorkbook.Worksheets(4) For Each R In A.[D5:D80] ' o valor aqui é um inexistente, beleza If not B.[B:B].Find(R) Is Nothing Then B.[B5].Select Selection.Insert ActiveCell.Value = R End If Next R 'quando eu digo next R, os proximos valores já existem, mas mesmo assim esta adicionando End Sub

Tentei isso mas não deu certo : Dim r As Range Set r = Worksheets(3).Range("D5:D80") -> Ex: seria a coluna A, plan1 For Each r In Range("B4:" & Range("B4").End(xlDown).Address) -> Ex: coluna B, plan2 If r Is Nothing Then Worksheets(4).Range("B4").Select Selection.Insert ActiveCell.Value = r End If Next r

@Midori se eu definir o range [A1:A3], quando for adicionado uma nova informação o range aumenta. certo? Nisso o código não vai procurar corretamente.

Olá Midori ! Eu tentei fazer loops com Find mas na hora de ir pra celula seguinte na Coluna A que estou com dificuldade.

Bom dia pessoal ! Gostaria de compartilhar uma dúvida e tentar uma ajuda ! Primeiramente, eu não posso enviar a planilha aqui pois estou em ambiente corporativo onde sou proibido de compartilhar arquivos, qualquer que seja. Bom vamos lá, abaixo tenho as duas tabelas : A B SM-A2323 SM-A2323 SM-A5890 SM-A6060 SM-A6060 SM-A8080 Eu preciso fazer a checagem de cada celula da coluna A que esta na Pan1, se contem na coluna B da Plan2. Se o valor de alguma célula da coluna A da Plan1, não existir na coluna B da Plan 2, na coluna B da plan 2, inserir um linha, adicionar o valor que não existe ordena em ordem alfabética. Parece simples, mas não consegui desenvolver um código simples pra isso. Poderiam me ajudar com isso? Muito obrigado !

@Basole Basole, como posso enviar mensagens pessoais a você??

@Eder Neumann Obrigado pela atenção, mas eu gostaria de fazer isso via código pois o Raw Data pra mim é interessante em outros aspectos. Você conhece um código simplificado para tal tarefa??

Olá pessoal ! Tudo bem ? Tenho 3 planilhas, na 1° um raw data onde coloco dados puxados de diversas sheets de outras 2 planilhas, sendo assim, as outras duas planilhas são preenchidas por diversas pessoas, cada um com sua sheet. Desenvolvi um código mas ficou muito extenso. Alguém sabe um código bacana pra simplicar isso ? Em resumo, meu código entra em cada sheets das outras duas planilhas, seleciona A2:N10000, cola no raw data, salva, e salva como xlsm. Quem tiver uma luz agradeço... Obrigado pessoal !