Flavio Soares

Seu excel está configurado para calculo automatico? Qual versão você usa?

Não tem nada a ver com windows original.....

Não consegue nenhum emprestado para testar.... mesmo sem a tecla, ele pode dar problemas na placa....

Testa com outro teclado cara....

Vai por mim, testa outro teclado!!!

Cara, isto não parece ter sido devido a tecla de aderencia..... Já experimentou testar outro teclado, me parece que a tecla shift está prendendo.

Acho que você quer é isso: B6=23,91565555 =ARRED(B6;3) =23,916 é isso??

Veja se é isso: Não testei pois to sem excel no mobile. inicio = InputBox("Digite o numero da linha que se inicia a seleção:", "Macro Coloração de Linhas") If inicio = "" Then Exit Sub fim = InputBox("Digite o numero da linha que se termina a seleção:", "Macro Coloração de Linhas") If fim < inicio Then MsgBox "A Linha final é menor que a inicial. Operação Abortada!" End If For colorir = inicio To fim coluna1 = Worksheets("Plan1").Range("A" & colorir).Value coluna2 = Worksheets("Plan1").Range("b" & colorir).Value coluna3 = Worksheets("Plan1").Range("c" & colorir).Value coluna4 = Worksheets("Plan1").Range("d" & colorir).Value If coluna1 <> "" Then a = Worksheets("Plan1").Range("A" & colorir).Interior.Color Worksheets("Plan1").Rows(colorir).Interior.Color = a GoTo fim: End If If coluna2 <> "" Then a = Worksheets("Plan1").Range("B" & colorir).Interior.Color Worksheets("Plan1").Rows(colorir).Interior.Color = a GoTo fim: End If If coluna3 <> "" Then a = Worksheets("Plan1").Range("C" & colorir).Interior.Color Worksheets("Plan1").Rows(colorir).Interior.Color = a GoTo fim: End If If coluna4 <> "" Then a = Worksheets("Plan1").Range("D" & colorir).Interior.Color Worksheets("Plan1").Rows(colorir).Interior.Color = a GoTo fim: End If fim: Next

Como você quer? Se a coluna A não tiver nada e na B tiver, pinta a linha toda com a cor da B, se a A e B estiverem vazias e a C tiver dados, pinta a linha toda com a cor da C, e assimpor diante??

A macro é esta mesmo, se você quiser mudar a coluná, é só alterar onde está Range("A" para a coluna que você quiser, ex.: Range("B"

Conforme solicitado, segue link colorindo da coluna A até a H. Att. http://www.4shared.com/file/53647775/ac989f25/Pintarlinha2.html

Cara, segue exemplo com macro. Está tomando como base a cor da coluna A. Fiz as pressas, pois estou no mobile. Tentei colocar o mais simples possível para que você possa entender a macro. Ao clicar na imagem, ele vai pedir a linha inicial que você quer fazer a coloração e logo após a final. Fiz isto pois sua planilha pode ter vários intervalos com títulos, ai você não vai precisar reformatar eles novamente. http://www.4shared.com/file/53246082/930625bf/Pintar_linha.html Qualquer coisa é só falar...

Ai tem que ser por macro, pode ser???