Fórum Excel Bácico, Avançado e Vba
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  Últimas imagensÚltimas imagens  ProcurarProcurar  RegistarRegistar  Entrar  

 

 GOSTARIA DE SABER O CODIGO DE SALVAR USANDO O 2003

Ir para baixo 
2 participantes
AutorMensagem
fabinnho2009




Mensagens : 7
Data de inscrição : 15/10/2012

GOSTARIA DE SABER O CODIGO DE SALVAR USANDO O 2003 Empty
MensagemAssunto: GOSTARIA DE SABER O CODIGO DE SALVAR USANDO O 2003   GOSTARIA DE SABER O CODIGO DE SALVAR USANDO O 2003 EmptySeg Out 15, 2012 11:14 pm

EU JÁ ESTOU TENTANDO USAR ESTE E NAO ESTOU CONSEGUINDO Private Sub SALVAR_Click() totalregistro = Worksheets ("plan1").UsedRange.¬Rows.Count + 1 With Worksheets("plan1") .Cells(totalregistro, 1
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

GOSTARIA DE SABER O CODIGO DE SALVAR USANDO O 2003 Empty
MensagemAssunto: Re: GOSTARIA DE SABER O CODIGO DE SALVAR USANDO O 2003   GOSTARIA DE SABER O CODIGO DE SALVAR USANDO O 2003 EmptyTer Out 16, 2012 1:17 am

Boa noite!!!

Já não especificou ...
então é só adaptar!!
Código:
Private Sub Salvar_Click()
    Range("R1").Value = Me.registro.Value + 1
    totalregistro = Worksheets("base").UsedRange.Rows.Count + 1
    With Worksheets("base")
    .Cells(totalregistro, 1) = laboratorio1
    .Cells(totalregistro, 2) = nfdevolução1
    .Cells(totalregistro, 3) = nfo1
    .Cells(totalregistro, 4) = vol1
    .Cells(totalregistro, 5) = motivo1
    .Cells(totalregistro, 6) = uf1
    .Cells(totalregistro, 7) = totaldanota1
    .Cells(totalregistro, 8) = datadaexpedição
    .Cells(totalregistro, 9) = motorista
    .Cells(totalregistro, 10) = rg
    .Cells(totalregistro, 11) = placadoveiculo
    .Cells(totalregistro, 12) = Transportadora
    .Cells(totalregistro, 13) = registro
   
    End With
    MsgBox "Gravado com Sucesso"
    Call AlteraFormato
End Sub

Att
Ir para o topo Ir para baixo
 
GOSTARIA DE SABER O CODIGO DE SALVAR USANDO O 2003
Ir para o topo 
Página 1 de 1
 Tópicos semelhantes
-
» SUPER AVANÇADO AJUDA Salvar em PDF usando botão vba OCULTANDO LINHA "COMPLICADO"
» impressão de Formulario e planilha na mesma folha
» saber quantos caracteres uma célula possui
» excel vba 2003
» Salvar planilha em PDF ou Jpeg

Permissões neste sub-fórumNão podes responder a tópicos
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: