VAGAS DA HORA - EMPREGOS, DIARISTAS, AGÊNCIAS DE EMPREGOS, CONCURSOS, SERVIÇOS INDIVIDUAIS

ESSE CÓDIGO TORNA MAIÚSCULA O TEXTO DIGITADO NA CÉLULA: Sub TrocaParaMaiusculas() If (Not ActiveCell.HasFormula) And (Not IsNumeric(ActiveCell.Value)) Then ActiveCell.Value = UCase(ActiveCell.Value) End If End Sub

Na postagem anterior indicamos o valor somado de intervalos para células que contém "0", que é diferente de vazio. Neste exemplo usaremos o vazio ou "Null". Então toda vez que você identificar um resultado de intervalo vazio no lugar de "0", usa-se "Null". In the previous post indicated the added value ranges for cells containing "0 " , which is non-empty . In this example we will use empty or " null " . So every time you identify a result of empty interval in place of " 0" , use " Null " . Range("D10").Value = Application.Sum(Range("d45:d49")) Range("E10").Value = Null Range("c11").Value = Application.Sum(Range("c45:c50"))

MAIS EXEMPLOS PARA SOMAR CELULAS ATRAVÉS DO OBJETO SUM: MORE EXAMPLES TO ADD SUM CELLS THROUGH THE OBJECT : Range("D10").Value = Application.Sum(Range("d45:d49")) Range("E10").Value = ("0,00") Range("c11").Value = Application.Sum(Range("c45:c50")) NOTE THE VALUE ( " 0.00 " ) HE INDICATES THAT FOLLOWING THE RANGE SUM , THE VALUE OF E10 is 0, BUT NOT EMPTY. OBSERVE O VALOR ("0,00") ELE INDICA QUE, NA SEQUÊNCIA DE SOMA DO INTERVALO, O VALOR DE E10 É 0, MAS NÃO VAZIO.

UMA DAS MAIORES DIFICULDADES PARA QUEM NÃO CONHECE A FUNDO O VB PARA EXCEL É NOME DAS FUNÇÕES BÁSICAS POR EXEMPLO SOMAR. ESCREVE-SE "SUM". ONE OF THE BIGGEST PROBLEMS FOR THOSE WHO DO NOT KNOW THE FUND FOR EXCEL VB is BASIC FUNCTION NAME FOR EXAMPLE ADD . WRITE - UP " SUM " . EXEMPLO: Range("E14").Value = Application.Sum(Range("E45:E53")) NESTE EXEMPLO O VALOR DA SOMA DE E45:E53 APARECERÁ NO CAMPO DA CÉLULA E14 COM O RESULTADO, É CLARO THIS EXAMPLE OF THE VALUE OF SUM E45 : E53 APPEAR IN THE FIELD OF CELL E14 WITH THE RESULT , OF COURSE

PARA QUEM QUER APRENDER A COPIAR UM CÉLULA OU INTERVALO DE UMA PLANILHA PARA OUTRA SEGUE AÍ O CÓDIGO: Sheets("Plan1").Select Range("A1").Select Selection.Copy Sheets("Plan2").Select Range("C1").Select ActiveSheet.Paste Os dados como Plan1 e Plan2, como também,A1 e C1 foram colocados como exemplo e podem ser substituídos pelos nomes que você colocar. WHO WANTS TO LEARN HOW TO COPY A CELL OR WITHDRAWAL OF A WORKSHEET TO ANOTHER THEN FOLLOW THE CODE : Sheets (" Sheet1") . Select Range (" A1"). Select Selection.Copy Sheets (" Sheet2"). Select Range (" C1"). Select ActiveSheet.Paste Data such as Sheet1 and Sheet2 , but also A1 and C1 were placed as an example and may be replaced by names that you put .