ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

Macro para exibir MsgBox de Vencimento

Dúvidas gerais sobre Excel
Avatar do usuário
Mikel Silveira Fraga
Jedi
Jedi
Mensagens: 1122
Registrado em: Sex Mai 27, 2011 3:27 pm
Localização: Betim - MG
Contato:

Re: Macro para exibir MsgBox de Vencimento

Mensagem por Mikel Silveira Fraga » Seg Mar 14, 2016 10:23 pm

ImIperes, boa noite e seja bem vindo ao fórum.

Então, esse código simula a execução do comando Ctrl + Seta para Cima, retornando o número da última linha preenchia, enviando para uma variável ou um controle ActiveX.

Por exemplo, suponhamos que na coluna E, exista informações preenchidas até a linha 1450. Então, esse comando irá retornar o número da linha 1450. Esse comando também pode ser usado como um limite superior de um laço For, por exemplo.

Se tiver um exemplo para testar, a explicação fica melhor.

Abraços e boa noite.


Gostou da dica? Clique no JOIA no topo da mensagem.
Esclareceu suas dúvidas? Acrescente ao título do tópico a expressão: [RESOLVIDO].
Orientações sobre o fórum, acesse aqui.

Mikel Silveira Fraga
E-mail: mikel-sf@hotmail.com | Linked In

Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


CROVADOR
Colaborador
Colaborador
Mensagens: 41
Registrado em: Ter Mar 13, 2018 11:15 am

Re: Macro para exibir MsgBox de Vencimento

Mensagem por CROVADOR » Ter Mai 19, 2020 10:00 pm

Boa noite amigos, conforme os códigos abaixo citados:
Como faço para fazer esse mesmo procedimento em meu projeto, ele esta com banco de dados no access...
segue anexo.
aguardo ajuda amigos.

Sub LocalizaPrimeiroVencido()
Dim I As Variant

Dim wshVenc As Worksheet
Set wshVenc = Worksheets("BASE") 'Altere para o nome da sua Aba

For Each I In wshVenc.Range("E2:E" & wshVenc.Range("A65536").End(xlUp).Row)
If I = "Menos de Cinco Dias" Then
MsgBox "existem datas,com menos de cinco dias para o vencimento"
Exit Sub
End If
Next

Private Sub Workbook_Open()
Call LocalizaPrimeiroVencido
End Sub
Anexos
CONTROLE DE FROTA.rar
(153.03 KiB) Baixado 19 vezes



CROVADOR
Colaborador
Colaborador
Mensagens: 41
Registrado em: Ter Mar 13, 2018 11:15 am

Alinhar à Direita

Mensagem por CROVADOR » Sáb Mai 23, 2020 9:16 pm

Boa noite amigos, eu queria ajuda de vocês, estou tentando que o valor exportado fique alinhado a direita na célula do Excel, mas não consegui. Segue código abaixo:

Private Sub cmd_exportar_Click()
On Error Resume Next
Application.ScreenUpdating = False
Dim i, j As Integer
Dim Item As ListItem
Dim Linha As Integer
Linha = 2
cmd_salvar.Locked = True

Sheets("Relatorios").Select
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Clear

Range("A1:G1").Value = Array("OS", "DATA", "CLIENTES", "CNPJ/CPF", "PLACA", "TELEFONE", "TOTAL R$")

Range("A1:G1").Select
Selection.Font.Bold = True

With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = -4.99893185216834E-02
.PatternTintAndShade = 0
End With

'Loop as lignes
For i = 1 To ListView1.ListItems.Count

'Loop as colunas
For j = 1 To 1
Plan2.Cells(i + 1, 1) = ListView1.ListItems(i).ListSubItems(1).Text
Plan2.Cells(i + 1, 2) = CDate(ListView1.ListItems(i).ListSubItems(2))
Plan2.Cells(i + 1, 3) = ListView1.ListItems(i).ListSubItems(3).Text
Plan2.Cells(i + 1, 4) = ListView1.ListItems(i).ListSubItems(4).Text
Plan2.Cells(i + 1, 5) = ListView1.ListItems(i).ListSubItems(5).Text
Plan2.Cells(i + 1, 6) = ListView1.ListItems(i).ListSubItems(6).Text
Plan2.Cells(i + 1, 7) = Format(ListView1.ListItems(i).ListSubItems(7), "0.00")

Linha = Linha + 1

Sheets("RELATORIOS").Cells(Linha, 1) = ""
Sheets("RELATORIOS").Cells(Linha, 2) = ""
Sheets("RELATORIOS").Cells(Linha, 3) = ""
Sheets("RELATORIOS").Cells(Linha, 4) = ""
Sheets("RELATORIOS").Cells(Linha, 5) = ""
Sheets("RELATORIOS").Cells(Linha, 6) = ""
Sheets("RELATORIOS").Cells(Linha, 7) = Format(RELATORIOS_SISTEMA.lb_total, "0.00")

Next j
Next i

Range("A1").Select
Selection.CurrentRegion.Select
With Selection.Font
.Name = "Thaoma"
.Size = 8
End With

Call Bordas

Columns("A:G").EntireColumn.AutoFit

Sheets("Principal").Select

Application.ScreenUpdating = True

MsgBox "RELATÓRIO GERADO COM SUCESSO!", 0 + vbInformation, "RELATÓRIO"

Plan2.Activate
Application.Visible = True
Unload Me
MENU_PRINCIPAL.Hide
Application.Dialogs(xlDialogPrintPreview).Show
Application.Visible = False
Plan1.Activate
MENU_PRINCIPAL.Show



CROVADOR
Colaborador
Colaborador
Mensagens: 41
Registrado em: Ter Mar 13, 2018 11:15 am

Implimir Listview

Mensagem por CROVADOR » Ter Jun 02, 2020 1:47 am

Olá amigos, gostaria da ajuda de vocês para este código em anexo, estou tentando imprimir mas ele da um erro... Alguém pode me ajudar?
Anexos
imprimir listview.rar
(23.35 KiB) Baixado 16 vezes



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1408
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Macro para exibir MsgBox de Vencimento

Mensagem por Reinaldo » Ter Jun 02, 2020 12:36 pm

Creio que a rotina obtida está incompleta.
o que é presuposto "Printer" executar ("...Width * Printer.")

P.S.: Está pegando carona em um topico antigo que se refere a outra(s) demanda(s); o ideal seria abrir seu próprio tópico, referenciando se necessário o tópico base/inicial


Reinaldo
:oops: :D :mrgreen: :geek:

Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder