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

Fiz alguns testes e funciona,conforme você disse, mas o trabalho ainda é muito grande. Vou continuar tentando uma solução mais prática. att.

Tenho mas o arquivo tem muitas fotos. Vai dar uma mão de obra grande mesmo. De qualquer forma, valeu pela ajuda. Minoso, Eu fiz um teste com um arquivo com apenas uma foto com seguinte macro: Sub Macro2() ActiveSheet.Shapes.Range(Array("Imagem 7")).Select Selection.Cut Range("B2").Select ActiveSheet.PasteSpecial Format:="Imagem (JPEG)", Link:=False, _ DisplayAsIcon:=False End Sub Funcionou bem. Após inserir a foto na planilha eu salvei o arquivo e ele ficou com 1053KB e depois da execução desta macro ele ficou com 133KB. O problema é que eu não tenho conhecimento suficiente para geral uma macro desta que possa copiar e colar(como JPEG) todas as fotos de uma planilha. Att.

Olá minoso. Tentei mas não funcionou. Continua grande da mesma praticamente da mesma forma. Att.

Olá. Estou procurando uma maneira de compactar os arquivos do Excel reduzindo as imagens. Infelizmente a função nativa de compactar as imagens no excel não funciona bem, ou seja, o efeito da compactação do arquivo é muito pequena. Quando recortamos e colamos com a função "colar especial" aparece já selecionado a opção "Imagem (PNG)", e se colarmos como "Imagem (JPEG)" o arquivo fica com um tamanho realmente reduzido. Como é possível recortar várias fotos e colá-las novamente como JPEG individualmente? Pois se várias fotos forem recortadas e coladas como JPEG ou outro formato, elas serão agrupadas em apenas uma, e isso é muito ruim. Att.

Muito bom Funcionou 100%. Muito obrigado

Olá pessoal, Estou tentando criar uma validação de dados para a minha planilha que é um tipo de controle de estoque, porém minha dificuldade é que a soma das colunas B e C que estão na coluna D não devem ultrapassar o valor do estoque na coluna F. Ja tentei com a validação do excel mas não consegui. Por favor me ajudem. Att. Estoque R0.xlsx

Basole, Valeu pela força. Eu modifiquei um pouco o código, pois a quantidade itens do catálogo é muito extensa em torno de 2000 itens. Então o código ficou assim. Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Basole: http://forum.clubedohardware.com.br/forums/topic/1104573-criando-eletr%C3%B4nico-no-excel/ With Sheets("plan1") Select Case Target.Address Case Is = "$F$6" .Shapes("Elipse 9").Fill.ForeColor.RGB = RGB(255, 0, 0) Case Else .Shapes("Elipse 9").Fill.ForeColor.RGB = RGB(255, 255, 255) End Select Select Case Target.Address Case Is = "$F$7" .Shapes("Elipse 8").Fill.ForeColor.RGB = RGB(255, 0, 0) Case Else .Shapes("Elipse 8").Fill.ForeColor.RGB = RGB(255, 255, 255) End Select Select Case Target.Address Case Is = "$F$8" .Shapes("Elipse 11").Fill.ForeColor.RGB = RGB(255, 0, 0) .Shapes("Elipse 12").Fill.ForeColor.RGB = RGB(255, 0, 0) Case Else .Shapes("Elipse 11").Fill.ForeColor.RGB = RGB(255, 255, 255) .Shapes("Elipse 12").Fill.ForeColor.RGB = RGB(255, 255, 255) End Select Select Case Target.Address Case Is = "$F$9" .Shapes("Elipse 10").Fill.ForeColor.RGB = RGB(255, 0, 0) Case Else .Shapes("Elipse 10").Fill.ForeColor.RGB = RGB(255, 255, 255) End Select End With End Sub Creio que para muitos itens seja melhor. Se você achar que possa criar algum problema, por favor me avise. Desde já te agradeço

Olá pessoal, Estou tentando criar um catálogo de peças no excel. Para facilitar o entendimento eu anexei um arquivo de exemplo e minha ideia é a seguinte: quando o usuário selecionar o item(coluna F), por exemplo, a célula F7(item 1), o balão ao lado indicando no desenho este item deve mudar de cor de fundo para vermelho, assim fica fácil para o usuário identificar qual item é o selecionado. Um problema que vejo é que, por exemplo no caso do item 3 (arruela, na célula F8) há 2 balões que indicam este item e neste caso os 2 precisaria mudar a cor do fundo para vermelho. Se alguém tiver algum exemplo da VBA para fazer isso, por favor posta aqui. Obrigado Exemplo Catalogo eletrônico 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