.
HFava, a intenção seria esta: a cada novos jogos, eu copiaria A1:M23 e colaria em A25:M46 e a fórmula se ajustaria ao novo resultado (H26:M26) - e assim sucessivamente, sem a necessidade de ter que alterar a matriz do resultado na fórmula da coluna G!! ... Mas nada grave fazer isto na mão!! ... Só perguntei pque achei que poderia ser fácil!!
.
Fernando, quanto às substituições (concatenar as colunas V e W em X, omitindo espaços e acentos) encontrei este VBA abaixo, mas acho ele muito difícil de entender, ele não tem as matrizes (tipo X:W) para que eu possa ajustar ao meu gosto aos arquivos onde faço esse tipo de concatenação no trabalho!!
.
'Remove acentos e caracteres especiais e deixa o texto em caixa alta
Public Function ArrumarTexto(ByVal Caract As Variant) As Variant
'Declaracao de Variaveis
Dim i As Long
Dim p As Variant
Dim codiA As String
Dim codiB As String
'Caracteres impeditivos
codiA = "àáâãäèéêëìíîïòóôõöùúûüÀÁÂÃÄÈÉÊËÌÍÎÒÓÔÕÖÙÚÛÜçÇñÑ-'´)([]/*-+.,!@#$%¨&§¹²³£¢¬"
'Caracteres substitutivos
codiB = "aaaaaeeeeiiiiooooouuuuAAAAAEEEEIIIOOOOOUUUUcCnN "
'Inicia o loop em busca dos caracteres impeditivos
For i = 1 To Len(Caract)
p = InStr(codiA, Mid(Caract, i, 1))
'Verifica a existencia dos caracteres no texto
If p > 0 Then
'Realiza a substituicao
Mid(Caract, i, 1) = Mid(codiB, p, 1)
End If
Next
'Retorno do texto
ArrumarTexto = UCase(Application.WorksheetFunction.Trim(Caract))
End Function
.
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 27/04/2017 5:38 pm