Este fórum está sendo desativado

Experimente:

=SE(B6="";"";MÉDIA(INDIRETO("B"&LIN(A2)&":B"&$P$5)))

Ok, vou pensar em algo para processar em bloco.

Dúvida - você pretende copiar blocos de dados das planilhas antigas e colar na nova planilha ("Lançamentos"), que contém o código, somente os itens na coluna 'A', e a planilha "Plano de Contas" permanece a mesma, é isso?

Olá, Leonardo. Me parece que seria mais fácil você instalar o código na sua planilha que está com os dados do que migrar os dados para a planilha vazia. Assim, o código atuaria a partir de alterações que você fizer na planilha, como incluir/excluir/alterar registros. Se você quiser testar isso em um...

Não consigo avaliar se o comando abaixo é a causa do seu problema, mas ... tá estranho.

For i = 2 To uLin

Nessa parte do código que foi postada, a variável uLin não está declarada e, mais importante, não há valor atribuído a ela.

Olá, Leonardo.

O arquivo anexado está com o código implementado para tratar a situação que você comentou acima. Veja de melhorou.

Sub OrdenaLinhasV3() Dim k As Long, LR As Long Application.ScreenUpdating = False LR = Cells(Rows.Count, 1).End(3).Row For k = 1 To LR Cells(k, 1).Resize(, 15).Sort Key1:=Cells(k, 1), Order1:=xlAscending, Orientation:=xlLeftToRight Next k With ActiveWorkbook.ActiveSheet.Sort .SortFields.Clear .Sort...

O exemplo que você colocou é a única situação possível de ocorrer? Se a resposta for "não", as soluções eventualmente propostas aqui provavelmente não funcionarão nas demais situações. Então fica a sugestão - coloque na planilha disponibilizada uma quantidade de exemplos que represente TOD...

Sub Teste1() Dim nomeArq As String, i As Long, caminho As String caminho = Sheets("ACOMP").Range("N4").Value For i = 1 To 31 nomeArq = "T.I" & i Workbooks.Open Filename:=caminho & nomeArq & ".xlsm" Next i End Sub Sub Teste2() Dim i As Long, caminh...

O que eu realmente preciso é saber se A quantidade emitida está igual com a quantidade solicitada. Para saber a quantidade solicitada de cada item cole a fórmula abaixo em 'C1' da planilha "Emitido" e em seguida dê duplo clique no canto inferior direito daquela célula para estender a fórm...

Veja se esta solução te ajuda. Cole a fórmula abaixo em 'G3' e em seguida arraste para baixo. =SOMARPRODUTO(CONT.SE(B3:F3;$K$3:$O$15)) Sugestão - ao invés das 5 regras de Formatação Condicional que você aplicou é possível obter resultado igual com apenas uma regra, assim: 1. selecione 'B3:F33' 2. me...

Veja se a solução do arquivo anexado te ajuda.

[T.IACUMULADO = T.i 1 & i] & "O erro está aqui !" Explique cada termo dessa expressão, o que significa/qual a sua finalidade. T, IACUMULADO, T.i, , o ponto após o T [/i] ControleTI = Sheets("ACOMP").Range("n3").Value Explique o que é "ControleTI " dic...

Se os nomes dos arquivos seguem um modelo do tipo "MeuArq1", "meuArq2", "MeuArq3", ... é possível colocar o nome do arquivo no próprio código e criar um Loop incrementando o número que está no final do nome. Algo assim: For i = 1 To 31 nomeArq = "MeuArq" &...

Experimente:

acrescente os comandos abaixo no final do seu código SALVAR (altere o nome do Form, se necessário):

Unload Me
UserForm1.Show

Sub OrdenaLinhasV2() Dim k As Long For k = 1 To Cells(Rows.Count, 1).End(3).Row Cells(k, 1).Resize(, 15).Sort Key1:=Cells(k, 1), Order1:=xlAscending, Orientation:=xlLeftToRight Next k ActiveSheet.Sort.SortFields.Add Key:=Range("A1"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOptio...

Quanto à Questão 2 veja se este código ajuda. Sub ColaZoomButton1Posiciona() Dim MyShape As Shape, i As Long, k As Long Application.ScreenUpdating = False For Each MyShape In ActiveSheet.Shapes If Left(MyShape.Name, 9) = "Retângulo" Then k = Right(MyShape.Name, Len(MyShape.Name) - 10) If k...

Veja se a solução do arquivo abaixo ajuda.

Para a sua questão 1 experimente acrescentar as linhas em vermelho abaixo (altere os tamanhos da fonte se quiser). .ScaleHeight dZoomInHeight, msoFalse, msoScaleFromTopLeft .TextFrame.Characters.Font.Size = 18 .ScaleHeight dOutHeight, msoFalse, msoScaleFromTopLeft .TextFrame.Characters.Font.Size = 1...

No exemplo da sua planilha: 1. cálculo pelo perímetro, como você quer ---> =(C5-6)/4*60+100 ---> resultado 247 2. cálculo pela área (que me parece que é o correto) ---> =(B5-6)/4*60+100 ---> resultado 225 obs. 1. existe um cálculo prático que é multiplicar a área por 15 (alguns adotam 16) e converte...

Se quiser experimentar uma solução que utiliza macro, veja o arquivo anexado.