EXCELer Tudo sobre EXCEL em Português

Se pretendermos filtrar, por exemplo, por cliente e preparar a impressão de modo a só imprimir os dados filtrados, podemos utilizar o seguinte código: '——————————————————————————-' Procedure : Filtra_Cliente_Click' DateTime  : 02-05-2006 20:23' Author    : JRod' Purpose   : Efectua Filtro por Cliente e prepara para impressão filtrada'——————————————————————————-'Private Sub Filtra_Cliente_Click()    Dim myCliente     myCliente = ActiveCell.Value    Range("E6:E700").Select     If myCliente = "" Then        Selection.AutoFilter        Range("K1").Select    Else        Selection.AutoFilter Field:=1, Criteria1:="=" & myCliente, Operator:=xlAnd        ActiveSheet.PageSetup.PrintArea …

Se pretendermos verificar em determinado Range se uma célula de uma coluna tem no seu conteúdo, por exemplo, o texto "REPARADO" e, em caso afirmativo, marcar toda a linha desse Range com um fundo colorido (no exemplo, o verde): e, se, ao apagarmos o texto da célula, a cor da linha também venha a ser desfeita, como no exemplo: Então …

Se pretendermos verificar em determinado Range se uma célula de uma coluna tem no seu conteúdo, por exemplo, o texto "REPARADO" e, em caso afirmativo, marcar toda a linha desse Range com um fundo colorido (no exemplo, o verde): e, se, ao apagarmos o texto da célula, a cor da linha também venha a ser desfeita, como no exemplo: Então …

Se se pretender mostrar numa determinada célula o conteúdo de uma outra célula de outra worksheet que pode não ser sempre a mesma, ou seja, por exemplo, a célula mostrar o valor correspondente ao valor acumulado do mês que se encontra numa determinada worksheet, cuja identificação é numérica e está baseada na digitação efectuada numa outra célula ( se valor …

Se se pretender mostrar numa determinada célula o conteúdo de uma outra célula de outra worksheet que pode não ser sempre a mesma, ou seja, por exemplo, a célula mostrar o valor correspondente ao valor acumulado do mês que se encontra numa determinada worksheet, cuja identificação é numérica e está baseada na digitação efectuada numa outra célula ( se valor …

Tomemos, por exemplo, em A1, o seguinte Nome + Apelido: "Jorge Rodrigues" Para inserir o Nome numa outra célula: =LEFT(A1;FIND(" ";A1)-1) ou =LEFT(TRIM(A1);FIND(" ";TRIM(A1))-1) Para inserir o Apelido: =RIGHT(A1;LEN(A1)-FIND(" ";A1)) ou =MID(A1;FIND(" ";A1)+1;256) ou =RIGHT(A1;LEN(A1)-SEARCH(" ";A1;1)) ou =MID(TRIM(A1);FIND(" ";TRIM(A1))+1;LEN(A1)) Código VBA de uma Função UDF para obter o Apelido: Function apelido(tot)    For I = 0 To Len(tot) – 1        Var = Var …

Tomemos, por exemplo, em A1, o seguinte Nome + Apelido: "Jorge Rodrigues" Para inserir o Nome numa outra célula: =LEFT(A1;FIND(" ";A1)-1) ou =LEFT(TRIM(A1);FIND(" ";TRIM(A1))-1) Para inserir o Apelido: =RIGHT(A1;LEN(A1)-FIND(" ";A1)) ou =MID(A1;FIND(" ";A1)+1;256) ou =RIGHT(A1;LEN(A1)-SEARCH(" ";A1;1)) ou =MID(TRIM(A1);FIND(" ";TRIM(A1))+1;LEN(A1)) Código VBA de uma Função UDF para obter o Apelido: Function apelido(tot)    For I = 0 To Len(tot) – 1        Var = Var …