Ir ao conteúdo
  • Cadastre-se

chapollin

Membro Júnior
  • Posts

    4
  • Cadastrado em

  • Última visita

Reputação

0
  1. Bom dia Galera. estou usando um macro para limpar linhas e colunas de uma base de dados (excel), porém gostaria que este macro atuasse apenas na plan1 e plan 2 eu irei criar outra macro, por exemplo. é possível isso? Sub filtro() ' ' filtro Macro ' exclui linhas e colunas inuteis ' ' Atalho do teclado: Ctrl+k ' Range("A:C,E:K,M:N,P:AC,AE:AG").Select Range("AE1").Activate Selection.Delete Shift:=xlToLeft Range("B1").Select Columns("A:A").EntireColumn.AutoFit Columns("B:B").EntireColumn.AutoFit Columns("C:C").EntireColumn.AutoFit Columns("D:D").EntireColumn.AutoFit Rows("1:7").Select Selection.Delete Shift:=xlUp Range("C10").Select ActiveWindow.SmallScroll Down:=-21 Columns("C:C").Select Selection.FormatConditions.Add Type:=xlTextString, String:="cartucho", _ TextOperator:=xlContains Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1).Font .Color = -16383844 .TintAndShade = 0 End With With Selection.FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .Color = 13551615 .TintAndShade = 0 End With Selection.FormatConditions(1).StopIfTrue = False Selection.FormatConditions.Add Type:=xlTextString, String:="finhisher", _ TextOperator:=xlContains Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1).Font .Color = -16383844 .TintAndShade = 0 End With With Selection.FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .Color = 13551615 .TintAndShade = 0 End With Selection.FormatConditions(1).StopIfTrue = False Selection.FormatConditions.Add Type:=xlTextString, String:="gabinete", _ TextOperator:=xlContains Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1).Font .Color = -16383844 .TintAndShade = 0 End With With Selection.FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .Color = 13551615 .TintAndShade = 0 End With Selection.FormatConditions(1).StopIfTrue = False Selection.FormatConditions.Add Type:=xlTextString, String:="toner", _ TextOperator:=xlContains Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1).Font .Color = -16383844 .TintAndShade = 0 End With With Selection.FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .Color = 13551615 .TintAndShade = 0 End With Selection.FormatConditions(1).StopIfTrue = False Selection.FormatConditions.Add Type:=xlTextString, String:="multi", _ TextOperator:=xlContains Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1).Font .Color = -16383844 .TintAndShade = 0 End With With Selection.FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .Color = 13551615 .TintAndShade = 0 End With Selection.FormatConditions(1).StopIfTrue = False Selection.FormatConditions.Add Type:=xlTextString, String:="impressora", _ TextOperator:=xlContains Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1).Font .Color = -16383844 .TintAndShade = 0 End With With Selection.FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .Color = 13551615 .TintAndShade = 0 End With Selection.FormatConditions(1).StopIfTrue = False Selection.FormatConditions.Add Type:=xlTextString, String:="tinta", _ TextOperator:=xlContains Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1).Font .Color = -16383844 .TintAndShade = 0 End With With Selection.FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .Color = 13551615 .TintAndShade = 0 End With Selection.FormatConditions(1).StopIfTrue = False Selection.FormatConditions.Add Type:=xlTextString, String:="etiqueta", _ TextOperator:=xlContains Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1).Font .Color = -16383844 .TintAndShade = 0 End With With Selection.FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .Color = 13551615 .TintAndShade = 0 End With Selection.FormatConditions(1).StopIfTrue = False Selection.FormatConditions.Add Type:=xlTextString, String:="ribbon", _ TextOperator:=xlContains Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1).Font .Color = -16383844 .TintAndShade = 0 End With With Selection.FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .Color = 13551615 .TintAndShade = 0 End With Selection.FormatConditions(1).StopIfTrue = False Selection.FormatConditions.Add Type:=xlTextString, String:="engrenagem", _ TextOperator:=xlContains Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1).Font .Color = -16752384 .TintAndShade = 0 End With With Selection.FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .Color = 13561798 .TintAndShade = 0 End With Selection.FormatConditions(1).StopIfTrue = False Range("A1").Select ActiveWorkbook.Worksheets("filtro peças").Sort.SortFields.Clear ActiveWorkbook.Worksheets("filtro peças").Sort.SortFields.Add(Range("C1:C38"), _ xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(255, _ 199, 206) With ActiveWorkbook.Worksheets("filtro peças").Sort .SetRange Range("A1:D38") .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Columns("A:A").Select Selection.Replace What:="DATA", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Columns("A:D").Select ActiveWorkbook.Worksheets("filtro peças").Sort.SortFields.Clear ActiveWorkbook.Worksheets("filtro peças").Sort.SortFields.Add Key:=Range("A1" _ ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("filtro peças").Sort .SetRange Range("A1:D1439") .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With ActiveWorkbook.Worksheets("filtro peças").Sort.SortFields.Clear ActiveWorkbook.Worksheets("filtro peças").Sort.SortFields.Add(Range("C1:C1439") _ , xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(255, _ 199, 206) With ActiveWorkbook.Worksheets("filtro peças").Sort .SetRange Range("A1:D1439") .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub
  2. Ufa mudou minha situação, ficou mais simples. agora eu só preciso criar a programção para o arduino receber o sinal de um net book de um programa que ja esta sendo criado e mandar um pulso para um relé que vai acionar a solenoide. Ainda preciso de ajuda. kkkk
  3. Olá galera. Meu chefe me pegou hoje com um pedido meio fora da minha alçada, mas possivel. preciso criar um modo de um notebook ler codigos de barras atraves de um leitor --- verificar num banco de dados se ele ja foi usado ou não --- se não foi usado ainda mandar um sinal através da porta usb para uma outra placa externa. ME ajudem por favor. Ja me disseram que ARDUÍNO pode me ajudar, mas conheço muito pouco de arduino. valeu..

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...