Boudais

Basole Ficou muito bom. Valeu

Testei mas sem sucesso. O código apresentado ainda é da cor que pintei a célula, não a mostrada pela formatação condicional que seria preta(Red - 0 Green - 0 Blue - 0) Se tiver mais sugestões agradeço.

Olá Estou com um problema para retornar a cor de uma célula num código RGB quanto esta está preenchida com cor de tabela ou por formatação condicional. Por exemplo: Uma célula eu a colori de amarelo e quero que a cor desta seja retornada em outra célula pelo código RGB, porém há uma formatação condicional a pode deixa-la preta, e esta nova cor não retorna para a célula do código RGB. Nesta célula fica mantida a cor amarela. Estou usando a função abaixo: Function rgb_color(cl As Range) As String Dim rgbc As Long, rc As Long, gc As Long, bc As Long If cl.Cells.Count = 1 Then rc = cl.Interior.Color Mod 256 rgbc = Int(cl.Interior.Color / 256) gc = rgbc Mod 256 bc = Int(rgbc / 256) rgb_color = "Red - " & rc & " Green - " & gc & " Blue - " & bc Else rgb_color = "Please select single cell only" End If End Function Há uma forma de retornar o RGB da cor aparente? Eu deixei um exemplo anexado. collor-rgb R0.xlsm

oswaldomp. Excelente, funcionou perfeitamente. Muito obrigado

Olá, bom dia Estou tentando criar uma VBA para executar uma função de "atingir meta" para várias linhas, porém só consegui para uma por enquanto. "Sub Botão1_Clique () ' ' Botão1_Clique Macro ' ' Range("E4").GoalSeek Goal:=Range("F4"), ChangingCell:=Range("B4") End Sub Att. Atingir MetaR0.xlsx

Consegui uma solução simples. Incluí as seguintes linhas na macro: . . . .TextureTile = msoFalse Application.SendKeys "%a~" Application.ComandBars.ExecuteMso "PicturesCompress" End With . . .

Olá, bom dia Estou com um problema numa planilha onde tenho que inserir fotos. Para que as fotos fiquem sempre no tamanho correto eu criei uma VBA. O problema é que se a foto for grande o arquivo salvo também será grande Gostaria de saber é possível já inserir a foto como JPG para que o arquivo ficasse pequeno. insert pct.xlsx

Osvaldo, Funcionou muito bem, Muito obrigado pela ajuda

Olá pessoal, Estou precisando de uma ajuda para preparar uma rotina que copie o resultado de uma célula e cole somente o valor em outra. Estou na verdade tentando solucionar o problema de uma planlha que possui referências circulares. Eu anexei uma planilha para explicar melhor. As células azuis possuem os dados, as células verdes possuem a soma dos dados e o que preciso é uma rotina que copie o resultado de cada célula verde e cole como valor nas células amarelas, porém esta operação deverá ser executada automáticamente cada vez que os dados forem alterados. Consegui o seguinte código: Private Sub Worksheet_Change(ByVal Target As Range) Sheets("Plan1").Range("c2:C10").Valor = Sheets("Plan1").Range("D2:D10").Valor End Sub Mas ele não funciona alguém pode ajudar a resolver. Att. Copiar&Colar R0.xlsx

Basole Impressionante seu exemplo funciona muito bem. Porém as colunas F e G precisam ser preenchidas com o nome de outros mecânicos,ou seja,o mecânico que mediu preenche o seu nome na coluna E, como no arquivo(esta correto) e outos dois precisam checar e incluir os seus nomes nas colunas F e G, é um tipo de tripla checagem. Mais já agradeço muito o arquivo postado.

Basole, O arquivo anexado é uma opção legal, porém um mecânico pode escrever o nome de outro na célula. Você enviar um exemplo com o textbox conforme você mensionou? Obrigado pela ajuda

Olá Estou tentando formatar um planilha de controle de dimensões de um produto. Deixei um arquivo anexado de exemplo para facilitar o entendimento, com as seguintes características: a) células azuis - possuem valores fixos que não podem ser alterados; células amarelas - serão preenchidas com os valore encontrados, pelo mecânico; c) células verdes - devem ser preenchidas com a assinatura de cada pessoa(mecânico, inspetor e supervisor); O problema que tenho é que há vários mecânicos que utilizam o mesmo arquivo, ou seja qualquer mecânico pode medir, digitar o valor encontrado e assinar qualquer campo, e para isso um não pode substituir a assinatura de outro, ou seja, após assinar a célula precisa estar bloqueada com uma senha específica de cada mecânico e somente ele pode alterar. Já pesquisei algumas opções em VBA, mais ainda não encontrei nada que ao menos se aproximasse da solução. Por favor assim que tiverem uma chance me ajudem. Att... Exemplo R0.xlsx