Luciana Goes

Show! Perfeito! Muito obrigada! Era isso mesmo que eu precisava!

Nesse caso eu teria que buscar a imagem num diretório específico? adicionado 3 minutos depois Agradeço pelo retorno. Na verdade eu precisaria pensar alguma forma que quando a imagem fosse inserida, ela ignorasse o nome e diretório. É como se fosse um copia e cola. Mas te agradeço mesmo assim.

Olá! Preciso de uma ajuda. Fiz um código em VBA que busca a imagem no diretório e inclui nas céluas B2:D2. Até aí tudo certo. O problema é que se eu altero o nome da imagem na pasta ou diretório (ou se mudo a imagem pra outro local), quando abro a planilha ela não aparece mais. Preciso ajustar esse código pra que, se eu precisar alterar o nome ou mudar a imagem de local ela não altere na que já está inserida no Excel. Será que alguém poderia me ajudar? Segue o código que eu tenho: Sub INSERE_IMAGEM() Dim profile As String On Error GoTo 0 Dim fd As FileDialog Dim myCel As Range Set myCel = ActiveSheet.Range("b2:d2") ' AQUI: Altere a cel. desejada Set fd = Application.FileDialog(msoFileDialogFilePicker) Range("B2:D2").Select Selection.ClearContents For Each img In ActiveSheet.Shapes If Not Application.Intersect(img.TopLeftCell, ActiveSheet.Range("B2:D2")) Is Nothing Then img.Delete End If Next With fd .Filters.Clear .Filters.Add "Picture Files", "*.jpg" .ButtonName = "Select" .AllowMultiSelect = False .Title = "Choose Photo" .InitialView = msoFileDialogViewDetails .Show End With ActiveSheet.Range("b2:d2").Select On Error Resume Next With ActiveSheet.Pictures.Insert(fd.SelectedItems(1)) I = 17 .Left = myCel.Left .Top = myCel.Top .Placement = 1 .PrintObject = True profile = .Name .Name = "imagemdalogo" End With ActiveSheet.Pictures(profile).Select With Selection.ShapeRange .LockAspectRatio = msoFalse .Width = myCel.Width .Height = myCel.Height End With Range("C5").Select End Sub

Perfeito! Exatamente isso que preciso. Muitíssimo obrigada!

Bom dia, Será que alguém conseguiria me ajudar com essa dúvida? A planilha que elaborei tem que expirar se ultrapassar a data de vencimento que vou determinar (até aqui sei fazer). Minha dificuldade é com o código da situação que vem a seguir. Ao expirar, aparecerá uma mensagem que expirou. Quando der o ok no botão da mensagem, a única opção será inserir na célula A1, por exemplo, um código que vou passar para a pessoa validar a planilha para que ela volte a funcionar normalmente e, a partir de então, não haverá mais vencimento. Enquanto não digitar o código correto, a planilha ficará totalmente travada. Não sei se deu pra entender.

Essa primeira linha será utilizada a todo instante podendo ser inserida valores diversos. Dificilmente os valores serão iguais ao anterior. O problema que ocorre é que frequentemente preciso salvar o arquivo em PDF, mas não sei porque, a primeira linha some. Então pra resolver este problema, se eu conseguir uma macro que insira uma quebra de linha no início, a visualização no PDF ficará correta. Já tentei resolver este problema de tantas formas que nem sei mais o que fazer.

Olá! Será que alguém consegue me ajudar? Preciso criar uma macro para incluir uma quebra de linha na célula, mas a quebra precisa ser antes do valor. Essa célula receberá valores que serão alterados a todo instante, porém, antes de cada valor, preciso que quebre uma linha bem no começo. Segue o arquivo como exemplo do que preciso. Quebramanualcommacro.xlsx

Olá! Algué sabe se há uma forma de ignorar as células vazias na validação de dados condicional? Na validação de dados simples funciona perfeitamente bem, mas não estou sabendo montar a fórmula junto com o "Indireto" na validação condicional (nem sei se é possível). Segue a planilha anexa. Obrigada. VALIDAÇÃO CONDICIONAL.xlsx

Deu certo. Era exatamente isso que eu precisava. Muitíssimo obrigada, Osvaldo!

Olá! Será que alguém consegue me ajudar? É possível inserir numa determinada célula a quantidade de abas do arquivo? O que consegui até o momento é o código abaixo que apenas retorna a mensagem da quantidade de abas existentes, mas eu gostaria que essa quantidade ficasse numa célula, pois precisarei dela para inserir numa fórmula. Sub ContaAbas() MsgBox "Total de abas: " & Sheets().Count, vbOKOnly, "Conta Abas" End Sub

Muitíssimo obrigada, Muca! Funcionou perfeitamente.

Olá! Estou quebrando a cabeça com um código VBA que faça isso, mas não estou conseguindo. Alguém pode me ajudar? Será que é possível abrir um InputBox para digitar o nome da aba e quando clicar em ok essa aba ser selecionada?

@Basole Muito obrigada pela ajuda. Era isso mesmo que eu precisava. Fiz apenas algumas adaptações.

Olá! Estou com uma dificuldade para elaborar esta agenda no Excel. A planilha permite o agendamento de salas de uma determinada empresa. A pessoa que fará o agendamento escolherá a data, o número da sala e o horário do agendamento (início e término). Será que alguém sabe se é possível inserir uma fórmula (ou via VBA) que impeça o agendamento para períodos que já foram agendados? Por exemplo: O período permitido para agendamento é das 08:00 às 18:00. Se no dia 13/10 foi agendada a sala número 1 para o período das 10:00 às 12:00, só será possível realizar agendamentos para esta mesma data e sala das 08:00 às 10:00 e das 12:00 às 18:00. Obrigada! agenda.xls

Olá! Trabalho com a versão 2010, mas estou desenvolvendo uma planilha que pretendo vendê-la. No cabeçalho vou incluir a logo de cada cliente meu. Eu gostaria que o Excel pudesse bloquear este campo. Acredito que não seja possível. Seu código foi muito útil porque me serviu para padronizar o cabeçalho e rodapé de todo meu arquivo, mas nada impede da pessoa ir em visualização impressão e alterar as informações. Mas agradeço pela ajuda. De qualquer forma acabou me ajudando bastante. Abraço!