VBA

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 …

Num newsgroup de Excel, foi colocada a seguinte questão: "Pretendo imprimir n cópias de uma folha em excel, mas pretendo que cada uma delas tenha um número diferente, tipo a numeração de um livro." Resposta possível, em VBA: Sub ImprimeSequencial() Dim StartNumber, EndNumber, TempNumber, TempAnswer As Integer Do  StartNumber = InputBox("Indique o primeiro número da Sequencia")  EndNumber = InputBox("Indique o último número …