Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Pesquisa resultou em 101 ocorrências

por JValq
Qui Ago 02, 2018 1:29 am
Fórum: VBA Básico
Tópico: Gerar números decimais aleatórios sem repetição
Respostas: 5
Exibições: 4706

Re: Gerar números decimais aleatórios sem repetição

Boa noite, Veja se, agora, atende: Sub Gerar() Dim Num As Double Dim q As Integer Dim Colecao As New Collection Dim n(7) Dim j As Integer On Error GoTo ERRO q = 1 Do Num = Rnd * (102.9 - 100) + 100 Colecao.Add CDbl(Format(Num, "#.0")), Format(Num, "#.0") q = q + 1 Loop While q < ...
por JValq
Ter Jul 31, 2018 12:09 pm
Fórum: VBA Básico
Tópico: Comando VBA para ativar próxima planilha
Respostas: 2
Exibições: 4281

Re: Comando VBA para ativar próxima planilha

Boa tarde! Veja se este código atende: Sub ProximaPlnilha() Dim n As Integer If ActiveSheet.Index < Worksheets.Count Then n = ActiveSheet.Index + 1 Sheets(n).Select Else MsgBox "Não há próxima planilha, pois esta é a última", vbCritical, "Próxima Planilha" End If End Sub Abraço
por JValq
Ter Jul 31, 2018 10:28 am
Fórum: VBA Básico
Tópico: Gerar números decimais aleatórios sem repetição
Respostas: 5
Exibições: 4706

Re: Gerar números decimais aleatórios sem repetição

Bom dia! Veja se este código te ajuda: Sub Gerar() Dim Num As Double Dim q As Integer Dim Colecao As New Collection Dim n(7) On Error GoTo ERRO q = 1 Do Num = Rnd * (102.9 - 100) + 100 Colecao.Add CDbl(Format(Num, "#.0")), Format(Num, "#.0") q = q + 1 Loop While q < 9 For i = 0 T...
por JValq
Qui Jun 08, 2017 9:06 am
Fórum: VBA Básico
Tópico: Evento Worksheet.Change (Excel)
Respostas: 2
Exibições: 3241

Re: Evento Worksheet.Change (Excel)

Bom dia! Veja este código atende: Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Not Intersect(Target, Range("A:A")) Is Nothing Then Range("A:A").EntireColumn.AutoFit Else Range("A:A").EntireColumn.AutoFit End If If Target.Column = 2 Then If...
por JValq
Ter Dez 15, 2015 1:11 pm
Fórum: VBA Básico
Tópico: Macro que imprimir varias abas...
Respostas: 9
Exibições: 12788

Re: Macro que imprimir varias abas...

Boa tarde,

Veja se este código atende:

Código: Selecionar todos

Sub ImprimirVarias()
    For i = 2 To Sheets.Count
        Sheets(i).Select
        [A1].CurrentRegion.Select
        Selection.PrintOut
    Next
End Sub
Abraço
por JValq
Qua Ago 26, 2015 9:01 am
Fórum: VBA Básico
Tópico: Negrito word
Respostas: 1
Exibições: 2108

Re: Negrito word

Bom dia, Veja se o código abaixo te ajuda: Sub Localizar() Dim Intervalo As Range Set Intervalo = ActiveDocument.Content Do Intervalo.Find.Execute findText:="Lote ??? -", MatchWholeWord:=False, MatchWildcards:=True If Intervalo.Find.Found = True Then Intervalo.Bold = True End If Loop While...
por JValq
Dom Out 12, 2014 12:01 am
Fórum: VBA Básico
Tópico: Comando VBA para colar especial (valores) de outro RESOLVIDO
Respostas: 2
Exibições: 11614

Re: Comando VBA para colar especial (valores) de outro arqui

Boa noite, Veja se este exemplo te ajuda: Sub ColarEspecial() Dim WsOrigem As Worksheet Dim WsDestino As Worksheet 'Abre o arquivo de destino Workbooks.Open "C:\TEMP\Teste2.xlsx" 'Define Plan1 como planilha de destino Set WsDestino = Sheets("Plan1") 'Abre o arquivo de origem Work...
por JValq
Qui Ago 21, 2014 11:28 pm
Fórum: Geral
Tópico: Macro que delete linhas das células contendo o número zero
Respostas: 1
Exibições: 2218

Re: Macro que delete linhas das células contendo o número ze

Boa noite, Veja se atende: Sub ApagarCelulas0() Dim i As Long Range("L" & Cells.Rows.Count).End(xlUp).Select For i = ActiveCell.Row To 1 Step -1 If Cells(i, "L").Value = 0 And Cells(i, "L").Value <> "" Then Rows(i).Delete End If Next End Sub Abraço
por JValq
Qui Jan 16, 2014 12:54 am
Fórum: VBA Básico
Tópico: FormulaR1C1
Respostas: 1
Exibições: 5886

Re: FormulaR1C1

Boa noite, Provavelmente o erro está sendo causado por uma mistura de formatos brasileiro e americano. Em VBA escrevemos 1.5 que é o formato americano equivalente ao brasileiro 1,5. Quando o Excel processa a informação a variável K recebe 1,5 em vez de 1.5, pois estamos usando um sistema operacional...
por JValq
Qua Ago 21, 2013 7:34 am
Fórum: Geral
Tópico: Preciso de Ajuda! Combinações de somas aleatórias
Respostas: 1
Exibições: 2086

Re: Preciso de Ajuda! Combinações de somas aleatórias

Bom dia,

Veja se ajuda:

Atingir Meta de Soma

Abraço