Uma possibilidade, em uma coluna auxiliar; supondoque sua data inicie em A1; insira a formula =A1-INT(A1) copie e arraste até a ultima, e seus calculo...

Ao clicar em reponder (não resposta rapida), mais abaixo tem uma aba adicionar anexo,clique em escolher, depois e so enviar a mensagem. Seu arquivo de...

Bom dia!! Tente algo assim... Private Sub CommandButton1_Click() Dim row As Integer Dim LastRow As Long LastRow = Cells(Rows.Count,...

Bom dia!! Teste em um arquivo que ainda não foi bloqueado manualmente ou via VBA. Private Sub Workbook_Open() If Date >= CDate("31/10/212...

Josy, eu nunca frequentei nenhum curso e tudo o que aprendi e ainda estou aprendendo é atraves de foruns, livros, apostilas e o principal, praticando ...

Pela imagem apenas, ficarei no achometro. Acho eu que o simbolo "°" está concatenado ao numero do ranking; resultando assim em um texto. C...

Creio que deva postar seu modelo.

O trecho informado pelo colega Morel, deve ser inserido em uma sub. tipo Sub DetImg() For Each bt In Sheets("Plan1").Shapes If Left(bt&...

Não entendi. São imagens inseridas em uma planilha(plan/sheet), se assim for essas imagens passam a seu um objeto shape, obededendo uma nomenclatura t...

Boa tarde!! Tente também. Sub AleVBA_17899() Dim rng As Range Set rng = [A2:A250] 'Altere para seu intervalo real For Each Cell I...

Boa tarde!! Tente também. Sub AleVBA_17899() Dim rng As Range Set rng = [A2:A250] 'Altere para seu intervalo real For Each Cell I...

Diadjol Estou por fora do assunto, porque só agora tive tempo de baixa a tua planilha, vi que a dúvida é simples, mas como você não forneceu detalhes...

Boa tarde!! Veja se ajuda Att

Boa tarde Josy Creio que a apostila do link abaixo pode ser útil.

Mateus Você se esqueceu de clicar na mãozinha para agradecer ao Reinaldo. []s