Boa tarde galera, Pra eu não enferrujar muito, segue minha contribuição em cima da solução do Wagner Morel. Option Explicit Sub Apagar_tudo() Dim i ...

Boa tarde Vitor Se você tivesse anexado uma planilha de exemplo, eu já teria resolvido e anexado de volta na minha primeira resposta. Leia: viewtopic...

Supondo que utilize o 2010 Selecione as células que deseja formatar; Clique em formatação Condicional -->Nova regra; selecione então "Usar um...

Confesso que não entendi. Mas para imprimir + copias altere Copies:=1 para a qtde que deseja Algo +/- assim Talvez: Private Sub Impr() Dim nCopia As ...

Pode disponibilizar sua planilha, altere dados para fictícios se necessário; porem que seja representativa do layout da mesma

Ficou um pouco confuso, mas de uma olhada neste tópico se ajuda. Criando Etiqueta no Excel viewtopic.php?f=21&t=9018&p=55348&hilit=etique...

Uma possibildade Private Sub mArray() Dim nPlan() As String, nP As Integer, x As Integer x = 0 ReDim nPlan(x) Sheets("REMESSA E COBRANÇA")&#...

É preciso criar um nome para a rotina algo +/- assim: Sub Ordena() For Each sh In ActiveSheet.Shapes ActiveSheet.Shapes.Range(Ar...

Experimente assim: B2=TEXTO(SE(É.NÃO.TEXTO(A2);VALOR(A2);DATA.VALOR(A2));"dd-mm-aaaa"); copie ou arraste para as demais

Experimente: Sub Ordenar_por_Cliente() Dim LR As Long With ActiveSheet .Sort.SortFields.Clear .Sort.SortFields.A...

Não consegui entender qual o procedimento para inserir a imagem, todavia experimente: For Each sh In ActiveSheet.Shapes ActiveSheet.S...

A imagem já consta na planilha ? Pode mostrar um modelo/exemplo

Com certeza tem como fazer, mas para isto é necessário você fornecer mais detalhes, de preferência anexe um modelo da base de dados, trocando por dado...

carlos, o ideal seria colocar o código completo que está utilizando, só por este não temos como verificar o erro pelo fato de não ocorrer, veja que no...

Função UDF que retorna a data do domingo de Páscoa: Coloque o código abaixo em um Módulo: Public Function calcularPascoa(ano) n1 = ano Mod 19 n2 =...