Ir ao conteúdo
  • Cadastre-se

ThiagOrloski

Membro Júnior
  • Posts

    10
  • Cadastrado em

  • Última visita

Reputação

0
  1. tem como colocar outro critério para escolher as linhas a serem apagadas numa mesma macro?? meu código é esse Sub Apaga_F_G_H() For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row If Cells(i, 11) = "destinado" Then Cells(i, 6).ClearContents Cells(i, 7).ClearContents Cells(i, 8).ClearContents End If Next i End Sub Na opção If Cells(i, 11) = "destinado" then além disso preciso de "homogeneizado" também
  2. depois de muito tentar conseguii achara fórmula, =SE([Entrada]="";"";SE(I:I=""; "Acondicionado";SE(J:J;"destinado";"homogeneizado"))) e agora sao 2:06 o horario virou hoje e agora sim vou dormir amanha eu temino esa tabela
  3. Muito obrigado Osvaldo ajudou muito.... era isso mesmo Estou com um outro problema,apesar de ser um outro assunto não vou abrir outro tópico para isso ; agora tenho q adicionar mais uma logica na formula SE da ultima coluna O problema é que uma precisa anular a outra, e isso não to sabendo fazer com essas 3 condições tipo se der a data de entrada a coluna status fica "acondicionado" se adicionar a data na célula Homogeneizado o status muda pra "saída para homogeneização" se adicionar a a data na célula saída o status muda pra "destinado" as datas devem prevalecer nas celulas será q isso é possivel??? uma copia do arquivo foi adicionado em anexo... não etão funcionando as macros pois houve alteração de colunas Câmara Fria DI-001-BCS11.rar
  4. Feito, tinha esquecido da opção .zip obrigado Câmara Fria DI-001-BCS Macro 10 xlsx.zip
  5. upei nesse site que é o único que a rede da empresa entra obrigado www.sonda.me/download/86268
  6. Faço isso e na primeira linha fica sempre em branco no caso eu precisava que todas as células ficassem com o valor data ActiveCell.Resize(7).Value = date() mas a cada 7 linhas uma pula e apenas 6 são preenchidas
  7. Bom dia Hardwerianos. Estou com um problema tenho uma tabela no Excel que preciso proteger minhas formulas para ngm apagar acidentalmente eu já bloqueei as células e as células de formula não permitem a tabela expandir, então estou utilizando essa VBA que permite adicionar linhas, mas eu precisava que adicionasse umas 7 linhas por vez porque cada vez q vou atualizar precisa adicionar umas 300 linhas, o que torna exaustivo clicar tanto. Obrigado desde já!!! Sub linhas() Dim pswStr As String 'Update by ExtendOffice 20181106 pswStr = "senha" On Error Resume Next Application.ScreenUpdating = False ActiveSheet.Unprotect Password:=pswStr ActiveSheet.Range("i4").Select Range("banco de dados[[#entrada],[status]]").Select Selection.End(x1Down).Select Selection.Offset(1, -8).Select ActiveCell.FormulaR1C1 = "new" ActiveSheet.Protect Password:=pswStr, DrawingObjects:=False, _ Contents:=True, Scenarios:=False, _ AllowFormattingCells:=True, AllowFormattingColumns:=True, _ AllowFormattingRows:=True, AllowInsertingColumns:=True, _ AllowInsertingRows:=True, AllowInsertingHyperlinks:=True, _ AllowDeletingColumns:=True, AllowDeletingRows:=True, _ AllowSorting:=True, AllowFiltering:=True, _ AllowUsingPivotTables:=True Selection.ClearContents Application.ScreenUpdating = True End Sub
  8. Boa tarde consegui descobrir como fazer aqui vai a resposta para quemainda tem duvidas Sub ApagaA() For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row If Cells(i, 9) = "Destinado" Then Cells(i, 5).ClearContents Cells(i, 6).ClearContents Cells(i, 7).ClearContents End If Next i End Sub
  9. Bom dia estou abrindo esse tópico porque o topico abaixo nao consigo executar o codigo.... Minha duvida é o seguinte, estou criando uma tabela de estoque então quando eu coloco saída na em uma celula, na H2 por exemplo, preciso apagar E2; F2; H;2. estou fazendo isso manual mas da muito trabalho sei que uma macro vba pode me ajudar nisso ESSA COLUNA TEM HOJE uns 3MIL ITENS... Obrigado a todos envolvidos
  10. Bom dia minha duvida é o seguinte, estou criando uma tabela de estoque então quando eu coloco saída na em uma celula da coluna H2 por exemplo, preciso apagar E2; F2; H;2. estou fazendo isso manual mas da muito trabalho sei que uma macro pode me ajudar nisso ESSA COLUNA TEM HOJE 3MIL ITENS... Obrigado a todos envolvidos

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...