Erik Wesley

Falta informação.

Sub Número_Documento() Dim hrs As String Dim mts As String Dim scds As String hrs = Hour(Now()) mts = Minute(Now()) scds = Second(Now()) Dim dt As String dt = Range("B8").Value Debug.Print dt dt = Replace(dt, "/", Empty) Debug.Print dt With ActiveSheet.PageSetup .CenterFooter = "&""-,Negrito""&20" & "Nº Documento: " & dt & hrs & mts & scds & "&P" End With ActiveWindow.SelectedSheets.PrintPreview End Sub Agora ele fara exatamente o que você quer, no entanto, ele ira colocar no rodapé a hora ATUAL. Se quiser que ele ponha a hora (colocada no rodapé) em alguma célula é só especificar que eu arrumo.

Depende de onde o valor estará. Em outra célula ou na mesma?

Eu modifiquei seu código com base em outra que uso. Segue: Sub Número_Documento() Dim dt As String dt = Range("B8").Value Debug.Print dt dt = Replace(dt, "/", Empty) Debug.Print dt With ActiveSheet.PageSetup .CenterFooter = "&""-,Negrito""&20" & "Nº Documento: " & dt & "&P" End With ActiveWindow.SelectedSheets.PrintPreview End Sub Ele vai fazer exatamente o que você quer (ou oque eu acho que você queira). Ira colocar no rodapé apenas os números da célula B8, no seu caso, a data sem os "/".

Não entendi. Você quer "Concatenar"? (O que seria isso?). Ou, você quer passar os dados de uma célula para outra?

Não entendi.

Caso seu problema não seja o código que lhe mostrei, talvez a opção de copiar e colar do próprio excel esteja apenas desativada. Veja a imagem em anexo. Siga os passos abaixo: 1º Arquivo 2º Opção 3º Avançado e por fim, marque as três opção exibidas na imagem.

Você quer que os dados de uma determinada planilha sejam copiadas para outra, está certo? Fiquem meio perdido, é pra copiar 1500 linhas, ou uma de cada vez? PS: Se puder, disponibilize uma copiar do seu arquivo, em branco mesmo, desde que marque o local que deseja copiar e onde deseja colar.

Coloque algumas informações no seu post, talvez eu possa lhe ajudar. Se o caso for de apenas uma planilha de produção será simples, caso contrario, precisarei de informações de toda a produção (Obvio, não valores, custos, funcionários e algo do tipo, apenas o suficiente para se fazer algum esqueleto e você mesmo adaptar.

Esse é o único código de sua planilha? Pois existem alguns códigos que impedem a função do excel de "Copiar e Colar", seja manual ou automática. Exemplo: Dim oCtrl As Office.CommandBarControl For Each oCtrl In Application.CommandBars.FindControls(ID:=19) oCtrl.Enabled = False Next oCtrl Procure algo parecido em sua planilha.

Use este comando. Sub Auto_Open ActiveWindow.DisplayZeros = False End Sub Você pode coloca-lo em algum módulo de sua planilha. Ele irá deixara qualquer célula com valor = 0 (Seja por fórmula ou manual) em branco.

Se o problema for apenas o cadastro, tenho sua solução. Sub SALVAR_cadastro() Sheets("BD").Activate Range("A1").Select 'Ponha aqui a 1º referencia. A celular respectiva do nome onde o BD começa. '------------------------------- Verifica quais celulas estão preenchidas e segue as linhas até encontrar uma celula vazia. if ActiveCell.value <> Empty Then ActiveCell.Offset(0,1).Select End if ActiveCell.Value = Text_NOME.Text ActiveCell.Offset(0,1) = Text_DATA.Text ActiveCell.Offset(0,2) = Combo_SEXO.Text ActiveCell.Offset(0,3) = Combo_ESTCIVIL.Text ActiveCell.Offset(0,4) = Combo_RG.Text ActiveCell.Offset(0,5) = Combo_CPF.Text ActiveCell.Offset(0,6) = Combo_DATANASC.Text ActiveCell.Offset(0,7) = Combo_ENDEREÇO.Text ActiveCell.Offset(0,8) = Combo_NUMERO.Text ActiveCell.Offset(0,9) = Combo_UF.Text ActiveCell.Offset(0,10) = Combo_CIDADE.Text ActiveCell.Offset(0,11) = Combo_CEP.Text ActiveCell.Offset(0,12) = Combo_TELEFONE.Text ActiveCell.Offset(0,13) = Combo_CELULAR.Text ActiveCell.Offset(0,14) = Combo_EMAIL.Text ActiveCell.Offset(0,15) = Combo_OBS.Text End Sub Ponha este código no seu botão "SALVAR". Caso queira deixar o cadastro de TODAS as opção obrigatório só avisar que eu faço uma linha extra.