-
Posts
5 -
Cadastrado em
-
Última visita
Tipo de conteúdo
Artigos
Selos
Fabricantes
Livros
Cursos
Análises
Fórum
posts postados por ribeiroxd
-
-
-
Olá, boa noite!
Poderiam me ajudar como faço para juntar estas 3 funções em apenas um botão? e gostaria que quando salvasse em pdf NÃO abrisse o documento para visualização, pois isso atrasa o andamento dos pedidos. Segue uma imagem de como é atualmente a interface e o código
Macro -->
Sub novopedido()
'
' novopedido Macro
''
Range("C6:E6,C7:E7,C8,E8,C9:E9,B12:D27").Select
Range("B12").Activate
Selection.ClearContents
Selection.ClearContents
Range("C6:E6").Select
End Sub
Sub imprimirpedido()
'
' imprimirpedido Macro
''
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("C6:E6").Select
End SubSub salvarpedido()
'
' Macro3 Macro
''
NF = Range("NomeDataPdf")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
NF _
, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub -
-
Boa tarde pessoa!
Esta seria minha primeira experiência com código, segui conforme o tutorial do youtube e deu tudo 100%, porém gostaria de fazer uma alteração! ao invés do código inserir as informações uma ao lado da outra na célula, eu gostaria de mudar a tabela para que fosse como um bloco de pedidos, e que as informações focem para outro lugar.
Esta é a tabela normal do código até ai ok, porém eu queria que ficasse assim!
Apenas quero mudar o local que vai receber a informação do formulário.
Segue o código
Private Sub BoxSexo_Change()
End Sub
Private Sub CommandButton1_Click() 'macro do botão Adicionar
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Dados")'acha a primeira linha do banco de dados
iRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, _
SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1'verifica se o primeiro box esta preenchido
If Trim(Me.BoxNome.Value) = "" Then
Me.BoxNome.SetFocus
MsgBox "Favor inserir o nome do cliente antes de prosseguir"
Exit Sub
End If'copia dos dados para o banco de dados
'se as linhas estiverem bloqueadas para edicao, coloque o seu password onde esta escrito PASSWORD abaixo e retire as aspas que estão comentando o codigo (para que ele funcione)With ws
' .Unprotect Password:="password"
.Cells(iRow, 1).Value = Me.BoxNome.Value
.Cells(iRow, 2).Value = Me.BoxCidade.Value
.Cells(iRow, 3).Value = Me.BoxIdade.Value
.Cells(iRow, 4).Value = Me.BoxSexo.Value' .Protect Password:="password"
End With'limpa os dados do formulario
Me.BoxNome.Value = ""
Me.BoxCidade.Value = ""
Me.BoxIdade.Value = ""
Me.BoxSexo.Value = ""
Me.BoxNome.SetFocusEnd Sub
Private Sub CommandButton2_Click() 'macro do botão Cancelar
Unload Me
End Sub
Sobre o Clube do Hardware
No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais
Direitos autorais
Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais
3 macros em um botão
em Microsoft Office e similares
Postado
Nossa! funcionou perfeitamente, obrigado de verdade cara!!
Só mais uma coisinha, seria possível especificar a pasta que vai o arquivo? e por exemplo, todo dia que a data for diferente, ele criar uma pasta para cada dia? e já se auto-organizar? acho que esta ultima função não ne?