Pesquisa resultou em 9167 ocorrências

Voltar à pesquisa avançada

Re: Alterar Cor Fonte Se For Letra

Boa tarde!! tente Sub AleVBA_1197632() Dim rng As Range Dim cel As Range Dim i As Long Application.ScreenUpdating = False Set rng = Range("O1:O" & Cells(Rows.Count, 15).End(xlUp).Row) rng.Font.ColorIndex = xlAutomatic For Each cel In rng For i = 1 To cel.Characters.Count If IsNumeric(c...
por alexandrevba
Sex Ago 18, 2017 3:04 pm
 
Fórum: VBA & Macros
Tópico: Alterar Cor Fonte Se For Letra
Respostas: 5
Exibições: 91

Re: Gerar uma nova planilha com soma de itens de outra  [Resolvido]

Boa tarde!!

Eu fico feliz em ajuda.

Se você for farmácia compre na minha distribuidora hem, eu trab na Panpharma..rsrsrs


Att
por alexandrevba
Qui Ago 17, 2017 3:37 pm
 
Fórum: VBA & Macros
Tópico: Gerar uma nova planilha com soma de itens de outra
Respostas: 8
Exibições: 55

Re: Gerar uma nova planilha com soma de itens de outra  [Resolvido]

Boa tarde!! Assim fica um pouco melhor... Sub aleVBA_25691V1() Dim ws As Worksheet, sh As Worksheet Set ws = Worksheets("Plan1") Set sh = Worksheets("Plan2") Application.ScreenUpdating = 0 sh.Cells.ClearContents ws.Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)....
por alexandrevba
Qui Ago 17, 2017 3:24 pm
 
Fórum: VBA & Macros
Tópico: Gerar uma nova planilha com soma de itens de outra
Respostas: 8
Exibições: 55

Re: Gerar uma nova planilha com soma de itens de outra  [Resolvido]

Boa tarde!! tente assim Sub aleVBA_25691() Dim ws As Worksheet, sh As Worksheet Set ws = Worksheets("Plan1") Set sh = Worksheets("Plan2") ws.Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row).Copy Destination:=sh.Range("A1") sh.Range("A1:A" &...
por alexandrevba
Qui Ago 17, 2017 3:02 pm
 
Fórum: VBA & Macros
Tópico: Gerar uma nova planilha com soma de itens de outra
Respostas: 8
Exibições: 55

Re: Gerar uma nova planilha com soma de itens de outra  [Resolvido]

Bom dia!! Tente algo assim Sub aleVBA_25691() Dim ws As Worksheet, sh As Worksheet Set ws = Worksheets("Plan1") Set sh = Worksheets("Plan2") With ActiveSheet .AutoFilterMode = False [C1].Value = "Qtd" Range("C2").Formula = "=SUMIF($A$2:$A$1048576,A2,$B$2:...
por alexandrevba
Qui Ago 17, 2017 11:08 am
 
Fórum: VBA & Macros
Tópico: Gerar uma nova planilha com soma de itens de outra
Respostas: 8
Exibições: 55

Re: Abrir Pasta Especifica

Bom dia!! talvez isso ajude. Sub Abrir_ArquivoXLSX() Dim wkb As Workbook Application.ScreenUpdating = False 'Essa linha abre o arquivo de nome planilha-orçamento.[b]xlsx[/b], dentro do caminho C:\Users\alexandreVBA\Downloads\ Set wkb = Workbooks.Open(Filename:="C:\Users\alexandreVBA\Downloads\p...
por alexandrevba
Ter Ago 15, 2017 8:47 am
 
Fórum: VBA & Macros
Tópico: Abrir Pasta Especifica
Respostas: 3
Exibições: 36

Re: Não Cadastrar Repetidos

Bom dia!! Use a base de dados do fórum! https://cse.google.com.br/cse?cx=partner-pub-8829010114171957%3A3054449148&ie=UTF-8&q=N%C3%A3o+Cadastrar+Repetidos&sa=Pesquisar&siteurl=www.planilhando.com.br%2Fforum%2Fviewforum.php%3Ff%3D10&ref=&ss=0j0j2#gsc.tab=0&gsc.q=N%C3%A3o%2...
por alexandrevba
Seg Ago 14, 2017 8:39 am
 
Fórum: VBA & Macros
Tópico: Não Cadastrar Repetidos
Respostas: 4
Exibições: 70

Re: "Desligar" ToggleButton pressionando tecla  [Resolvido]

Bom dia!! Dentro do módulo de planilha insira esse código Private Sub Worksheet_Activate() Application.SendKeys ("ESC") Range("A1").Value = FALSO End Sub Obs: Neste exemplo eu estou considerando que a guia será ativa ao apertar ESC e se o botão estiver pressionado vai desativar o...
por alexandrevba
Qui Ago 10, 2017 8:38 am
 
Fórum: VBA & Macros
Tópico: "Desligar" ToggleButton pressionando tecla
Respostas: 3
Exibições: 48

Re: Excel monitorando Outlook

Boa tarde!! talvez os links abaixo lhe mostre uma parte do caminho. http://www.outlookcode.com/article.aspx?id=62 https://support.microsoft.com/pt-br/help/306108/how-to-create-a-script-for-the-rules-wizard-in-outlook https://stackoverflow.com/questions/8697493/update-excel-sheet-based-on-outlook-mai...
por alexandrevba
Qua Ago 09, 2017 1:03 pm
 
Fórum: VBA & Macros
Tópico: Excel monitorando Outlook
Respostas: 1
Exibições: 45
Próximo

Voltar à pesquisa avançada