Ja tentou isso sub imprimir() sheets("plan1").printpreview end sub

Se postar o arquivo pode ser quer alguem consiga arrumar.

Seria bom preencher a planilha com dados para os testes.

Posso estar maluco mas sub copiar textbox1.copy end sub Mas mesmo com a celula bloqueada o ctrl+c funciona.

Ve se é isso

Como assim???? Vale pontuar que: no meu banco de dados não tenho como preencher a Facção, então não posso utilizá-la como critério. Se nao pode ...

E possivel fazer sim Edivan

Tenta assim Private Sub CommandButton1_Click() Dim caminho As Variant caminho = Application.GetOpenFilename if caminho = "" then ...

Amigo o formato de seu arquivo deve ser IGUAL pois os codigo vai atender ao que vc apresentar como modelo.

Tb ate onde sei nao existe essa possibilidade. Agora por mera curiosidade, qual o motivo de nao executar apenas com 2, Se for apenas na intenção de ...

Tb ate onde sei nao existe essa possibilidade. Agora por mera curiosidade, qual o motivo de nao executar apenas com 2, Se for apenas na intenção de ...

Poste o arquivo

Nao entendi direito mas pode tentar assim: Se for para colocar em uma celula Selecione a celula e os comandos a seguir Inserir > Hiperlink. Se...

Ve se é isso

Juro que nao entendi .... VC diz que quer somar as celulas em azul sendo que ja tem essa soma na coluna S Explica isso novamente. Se for o total d...