Aron Gerd Ristow Filho

Bom dia Midori, Cara, é quase isso, só que eu nao posso selecionar todas as linhas, como voce pode ver (vide anexo), tem algumas linhas ocultas entre a linha da NF e a linha abaixo de Qtd Planejada, as mesmas tem fórmulas e links que pego como referencia na aba acompanhamento, e seria bom nao perder as fórmulas em si. Foi por isso que eu tinha usado, ou tentado usar o comando das "linhas +5", para assim criar um loop até que o codigo achasse a linha vazia para pular para a proxima coluna. Mas com esse seu código, eu já consigo criar uma rotina para somente copiar e colar as segundas feiras, com o " < Now - 1" ai eu colo os valores da semana anterior, e atualizo a planilha para a semana que se inicia. Vou marcar como respondida porque eu já consigo me virar, mas se voce quiser dar essa última força fica aqui meus agradecimentos.

Segue link da planilha salva no DRIVE: https://drive.google.com/file/d/1r77tbhjP1cmzI5W1NdXSNQj8U7guL_mZ/view?usp=sharing Edit: o código esta na UserForm no click do botão transpor.

@Midori, consegues me salvar nessa? me ajudasse em outra questão um tempo atrás, acho que tu éis minha última esperança kkk

Estou tentando criar uma macro para: todo dia, dar um clique e transformar a fórmula de busca no valor procurado Todo dia eu tenho que dar crtl+C e colar somente valores nas células que foram puxadas por uma fórmula, pois a cada semana a tabela que faz essa busca, muda e eu perco os dados, retorna o valor "0". Print abaixo da planilha que estou tentando fazer e na barra de fórmula, a formula que faz a busca que perde as referências diariamente Nas linhas ocultas contem algumas outras fórmulas para cálculos internos que nao podem ser alterados, aí que vem minha dificuldade Private Sub CommandButton1_Click() lin = 4 lin2 = 5 lin3 = 6 col = 93 While Sheets("ZEN").Cells(2, col) < Now Do Until ActiveCell <> "" Cells(lin, col).Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Cells(lin2, col).Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Cells(lin3, col).Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False lin = lin + 5 lin2 = lin2 + 5 lin3 = lin3 + 5 Loop col = col + 1 Wend End Sub

@Midori MEU irmão TU É O BRABO DO BAGULHO, kkkkkkk, brincadeiras a parte, é isso aí, sem tirar nem por, obrigado.

Boa tarde meus nobres clérigos, estou com o seguinte empecilho em meu projeto de automação da cobrança nos atrasos de entrega de componentes, em resumo eu criei uma constante chamada "a" da qual ela é o texto selecionado dentro da combobox, logo a = combobox1.text, até aí tudo bem, mil maravilhas. O problema está quando eu tento chamar a macro com os emails para cada fornecedor separado, como por exemplo tenho o fornecedor a,b,c,d.. e cada um tem sua macro, pois cada um tem seus destinatários, copiados e mensagens diferentes. chegando ao problema eu queria que "call"asse a macro, pelo nome do fornecedor que eu selecionei na combobox, se for possível, desde já agradeço por todas as dúvidas por vocês sanadas. Private Sub CommandButton1_Click() col = 5 col2 = 3 a = ComboBox1.Text While Sheets(a).Cells(2, col2) <> "" If Sheets("Dashboard").Cells(2, 1) = Sheets(a).Cells(2, col2) Then Label8 = Sheets(a).Cells(55, col2) End If col2 = col2 + 1 Wend While Sheets(a).Cells(1, col) <> "" If Sheets("Dashboard").Cells(1, 1) = Sheets(a).Cells(1, col) Then Label1 = Sheets(a).Cells(57, col) Label4 = Sheets(a).Cells(58, col) Label5 = Sheets(a).Cells(59, col) End If col = col + 5 Wend End Sub Private Sub CommandButton2_Click() Dim a As String a = ComboBox1.Text Call a End Sub

@Charley Rocha Essa parte do comando é para converter os valores inseridos na textbox em números, pois os funcionarios da empresa lançam nas textbox ",019" e na planilha as células nao estavam dando como números, e para executar os calculos de X e R eu preciso que sejam números. @Basole é isso ai mesmo, valeu man, mas agora tenho uma outra dúvida. adicionado 3 minutos depois @Basole sempre que eu abro uma planilha nova no excel, a mesma vem com as 4 referencias padrões do excel ativada, segue print : só que para eu linkar o excel X Access e para mais algumas tarefas, eu preciso de mais algumas referencias: minha questão é: Eu consigo tornar como padrão toda a planilha que eu abro vir com essas referencias ativadas?

Bom dia, estou tentando criar um banco de dados do meu excel com o Access, porém fica dando erro ao executar o comando Private Sub CMDsalvar_Click() Sheets("Coleta de dados").Select Cells(12, 3) = TextBox1 Cells(13, 3) = TextBox2 Cells(14, 3) = TextBox3 Cells(15, 3) = TextBox4 For Each Cell In [C12:C15] If Cell > "" Then numero = Str(Cell.Value) Cell.Activate ActiveCell.FormulaR1C1 = numero Else End If Next Dim adoconexao As New ADODB.Connection Dim rsincluir As New ADODB.Recordset Dim banco As String banco = "C:\Users\aristow\desktop\CEP_BC58.accdb" adoconexao.ConnectionString = "provider = Microsoft.ACE.OLEDB.12.0; Data Source = " & banco & "; Persist Security info=False;jet oledb:DataBase password=" adoconexao.Open planilha = "select * from CEP_BC58" rsincluir.Open "Coleta de valores", adoconexao, adOpenKeyset, adLockOptimistic rsincluir.AddNew rsincluir!nome = Cells(8, 3) rsincluir!data = Cells(9, 3) rsincluir!Hora = Cells(10, 3) rsincluir!Coleta1 = Cells(12, 3) rsincluir!Coleta2 = Cells(13, 3) rsincluir!Coleta3 = Cells(14, 3) rsincluir!Coleta4 = Cells(15, 3) rsincluir!XBarra = Cells(16, 3) rsincluir!RBarra = Cells(17, 3) rsincluir.Update rsincluir.Close adoconexao.Close ActiveSheet.Protect Password:="1" ThisWorkbook.Save End Sub Esse é o código que estou usando, e fica dando erro de "DELETE", "PROCEDURE"... eu estava usando sem banco de dados, apenas estava bloqueando a planilha, entao os funcionários começaram a falar que eles poderiam lançar numeros enganados ou digitar algo errado sem querer e pediram para nao bloquear mais as planilhas, entao preciso criar um banco de dados, e já que nao consegui bloquear apenas uma aba do excel, decidi linkar o excel com o access.

quando eu insiro um valor como 70,456 na minha textbox, e dou um salvar, o valor que aparece na celula designada é 70456, a célula simplesmente nao adere a vírgula, eu uso a linha de comando que vou postar abaixo para converter em número, porém, esse comando so esta aceitando a vírgula ate duas casas depois. For Each cell In [K5:K12] If cell > "" Then numero = CDbl(cell.Value) cell.Activate ActiveCell.FormulaR1C1 = numero lembrando que nao posso apenas adicionar uma formatação com vírgula, para dar somente o efeito visual de vírgula, pois mensalmente eu tenho que gerar um relatório com esses valores e após isso gerar uma carta de CEP.

@Basole eu consegui, é que meu excel nao estava com a biblioteca de scripting ativa, o último usuário daqui desativou e eu me atrapalhei, obrigado pessoal, podem fechar o topico

Estou criando uma planilha mestre que abre outras planilhas dentro da pasta da empresa, pois os operários da qualidade perdem muito tempo abrindo as pastas até chegar nas planilhas de coleta de dados da firma, porém, essas planilhas se "renovam" a cada 25 dias (aproximadamente), e queria fazer de um jeito que eu nao precisasse mudar o codigo a cada mes basicamente, estou tentando usar esse outro modelo que encontrei aqui no CdH, porém, nao está funcionando. (lembrando que estou estagiando aqui na empresa e toda essa parte de programação é nova para mim, fiz bastante coisa ja, inclusive outra planilha mestre que abre as planilhas com nome fixo, porém, nao sei como adicionar essa variavel do nome Ex: Planilha_batimento_144 Planilha_batimento_145 Planilha_batimento_146 segue o código que estou usando Sub CommandButton1_Click() Dim arqSys As FileSystemObject Dim objArq As File Dim minhaPasta Dim nomeArq As String Dim dataArq As Date Const Diret As String = "G:\Fabrica\Controle de Processo\Armature\CEP\10543841-PG260-A\400-58 - CNC Lathe\01- Batimento do Comutador\2019" Set arqSys = New FileSystemObject Set minhaPasta = arqSys.GetFolder(Diret) dataArq = DateSerial(1900, 1, 1) For Each objArq In minhaPasta.Files If objArq.DateLastModified > dataArq And objArq.Name Like "*.xl*" Then dataArq = objArq.DateLastModified nomeArq = objArq End If Next objArq Workbooks.Open nomeArq Set arqSys = Nothing Set minhaPasta = Nothing End Sub