riberex00

Boa noite pessoal! Como fazer para que o Power Query atualize os dados, automaticamente, ao colocar um novo arquivo na pasta de trabalho. Assisti a alguns vídeos, mas não consegui isso. Alguém poderia me auxiliar com isso? Obrigado.

Olá pessoal, tudo bem? Tenho um notebook LENOVO Idea Pad 330 15-IGM. O processador é um Intel Celeron N4100 CPU 1.10GHz. A memória é 4 GB 2400Mhz e se não estou enganado é soldada na placa. Eu estava pensando em fazer um upgrade na memória, aumentar, talvez, para 8 GB. Entrei no site crucial system scanner. O diagnóstico foi de que a memória poderia ser expandida para até 8GB. Abri o notebook, mas, não consegui identificar nem a memória e nem se existe slot para mais um pente. Alguém conhece esse modelo e saberia me dizer se a memória dele é expansível. Obrigado.

Boa noite Mikhail. Eu testei a combinação das teclas Windows + espaço, e realmente aparece a opção, PTB1 ou PTB2 ou, ainda, ENG. porém, em qualquer uma das opções o teclado ainda esta desconfigurado.

Boa noite pessoal. Tenho um NoteBook Lenovo IDEA PAD 330-15IGM. Quanto tinha nele instalado o Office 2013 o teclado reconhecia a acentuação em português. Depois que instalei o Office 2021, ele não reconhece mais essa acentuação. Já pesquisei em vários lugares na web, mas não consegui resolver. Alguém teria uma dica sobre isso, por favor? Obrigado.

Redondinho agora. Obrigado pela dica.

Boa tarde meu amigo. Não da para anexar com o Winrar, só com o zip, certo?

Boa noite pessoal. Como Option Explicit Private Sub Btn_Executar_Click() Dim Lin As Long 'Controlar Nr de parcelas Dim Col As Integer 'Colu onde info sera inserida Dim QteParc As Byte 'Controlar parcelas Dim Valor As Currency 'Valor Tot Dim ValorParc As Currency 'Valor cada parcela Dim Dif As Currency 'Armaz dif nos valores Dim W As Worksheet 'Var Ctrl para manipular a planilha Dim A As Integer 'Var Loop Set W = Planilha1 W.Range("D:E").Clear 'Apaga valores anteriores 'Captura valor do problema QteParc = W.Range("B1").Value Valor = W.Range("B2").Value Lin = 1 Col = 4 'Valor da parcela ' Valor sem casas decimais: FIX ' Valor com casas decimais: ROUND ValorParc = Round(Valor / QteParc, 2) 'Calcular a dif se existir If Valor <> (ValorParc * QteParc) Then Dif = Valor - (ValorParc * QteParc) End If 'Rotina p/ Add a dif For A = 1 To QteParc W.Cells(Lin, Col).Value = "'" & A & "/" & QteParc If A = QteParc Then W.Cells(Lin, Col + 1).Value = ValorParc Else W.Cells(Lin, Col + 1).Value = ValorParc + Dif End If Lin = Lin + 1 Next MsgBox "Pronto!" End Sub mudar o código abaixo (distribuição das parcelas do cartão de credito), para que a diferenca seja na primeira parcela? Obrigado.

Isso mesmo. Obrigado pela dica.

Boa tarde, estou tentando criar uma formatação condicional, sem o VBA, em um texto e coluna específicos, utilizando uma fórmula, onde nessa coluna com vários valores (moeda), existe, após o débito a letra D e após o crédito tem a letra C. Exemplo 20,00 D ou 50,00 . Eu gostaria que a letra D fosse pintada de vermelho e a letra C em azul. Como eu poderia implementar isso? Obrigado.

Obrigado pelas dicas.

Boa noite pessoal. Tem como colocar um SSD em um notebook e manter o HD? O meu é um SAMSUNG NP350XAA, i3.

Boa noite, anexei a pasta. Obrigado pela dica. PlanRctDspInvest2022_Forum.zip

Boa tarde pessoal. Criei um sistema, em VBA, para lançar minhas receitas, despesas. Bem básico mesmo. Está acontecendo um problema que ainda não consegui solucionar. Quando estou utilizando filtro na base de dados e lanço algo na planilha ou tento salvar, a pasta é fechada e não salva os dados. Pensei em colocar um código para limpar os filtros antes de lançar novos dados, mas dessa forma eu teria que abrir os filtros muitas vezes, tornando uma ação muito repetitiva. Caso alguém queira ajudar eu posso criar um link no Google Drive para que possa ser visualizada a planilha. Obrigado. Public Sub salvar_Dados() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Application.EnableEvents = False Dim lin As Integer Dim i As Long 'Restrição se o campo valor estiver vazio If Plan1.Range("Campo4") = Empty Then MsgBox "O campo valor é obrigatório!", vbExclamation, "Inserir Dados" Exit Sub End If Dim Tabela As Worksheet Worksheets("Tabela").Activate lin = 2 lin = wsBase.Range("A" & Rows.Count).End(xlUp).Row + 1 For i = 0 To 5 Cells(lin, 1 + i).Value = Range("campo" & i).Value Next i Worksheets("Painel").Activate MsgBox "Dados lançados com sucesso!", vbOKOnly, "Cadastro" Call classif_AnoMesCategoriaDescricao Call Formatar_Cores_Rct_Dsp_Invest Call ConvertePosNeg Sheets("Painel").Select Application.CutCopyMode = False Application.Union(Range("D14"), Range("D16")).Select Application.Union(Range("D14"), Range("D16")).Activate Selection.ClearContents Worksheets("Painel").Activate Range("D14").Select Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic Application.EnableEvents = True End Sub Sub classif_AnoMesCategoriaDescricao() Worksheets("Tabela").Activate Dim Planilha As Worksheet Dim Intervalo As Range Set Planilha = ActiveWorkbook.Worksheets("Tabela") Set Intervalo = Range("A2:F10000") ' Ordena pela coluna A With Planilha.Sort .SortFields.Clear .SortFields.Add Key:=Range("A1") .SetRange Intervalo .Apply End With ' processamento após o primeiro Sort ' Ordena pela coluna B With Planilha.Sort '.SortFields.Clear .SortFields.Add Key:=Range("B2"), _ CustomOrder:="Janeiro,Fevereiro,Março,Abril,Maio,Junho,Julho,Agosto,Setembro,Outubro,Novembro,Dezembro" .SetRange Intervalo .Apply End With ' processamento após o segundo Sort ' Ordena por categoria, Coluna C: "Receita,Despesa,Invest" With Planilha.Sort '.SortFields.Clear .SortFields.Add Key:=Range("C2"), _ CustomOrder:="Receita,Despesa,Invest" .SetRange Intervalo .Apply End With End Sub Sub Formatar_Cores_Rct_Dsp_Invest() Dim i As Integer Dim ultLinPreench As Integer ultLinPreench = Range("A1").End(xlDown).Row Worksheets("Tabela").Activate ActiveSheet.Range("A2").Select For i = 2 To ultLinPreench If Cells(i, 3).Value = "Receita" Then Cells(i, 3).Offset(, -2).Resize(, 6).Interior.Color = vbGreen ElseIf Cells(i, 3).Value = "Despesa" Then Cells(i, 3).Offset(, -2).Resize(, 6).Interior.Color = vbRed Else Cells(i, 3).Offset(, -2).Resize(, 6).Interior.Color = vbCyan End If Next End Sub Sub ConvertePosNeg() 'sub rotina que converte os valores da coluna "E" de positivo 'para negativo quando a categoria for despesa ou investimento Worksheets("Tabela").Activate ActiveSheet.Range("A2").Select Dim Categoria As Range Set Categoria = [C2] While Categoria <> "" If Categoria = "Despesa" Or Categoria = "Invest" Then If Categoria.Offset(0, 2) > 0 Then Categoria.Offset(0, 2) = -Categoria.Offset(0, 2) End If End If Set Categoria = Categoria.Offset(1) Wend End Sub Sub classif_ColunaDespesa() 'Ordena pela coluna "D" conforme a lista de despesas Worksheets("Tabela").Activate Dim Planilha As Worksheet Dim Intervalo As Range Set Planilha = ActiveWorkbook.Worksheets("Tabela") Set Intervalo = Range("A2:F10000") With Planilha.Sort '.SortFields.Clear .SortFields.Add Key:=Range("D2"), _ CustomOrder:="Alimentação,Aluguel,CamaMesaBanho,Combustivel,Concess,CuidadosPessoais,Doações,DspMedOdont,Educação,Farmacia,Ferramentas,HigieneLimpeza,ImpostosDiversos,Internet,Lazer,MntDaCasa,MntVeiculo,MoveisEletro,Obra,OutrasDespesas,Pet,PlanoSaude,Seguro,ServiçoTelefonia,Serviços,TIeInformatica,Transporte,UtilidadesDomesticas,ValoresRcbTerceiros,VestCalçado" .SetRange Intervalo .SetRange Intervalo .Apply End With End Sub

Pessoal boa tarde. Em uma agenda de contatos, coloquei duas ComboBox (uma chamada CmbTipo: Categoria, Cidade e Nome, e uma outra dependente, chamada CmbDescrição, da Categoria, da Cidade e do Nome. Eu já consegui programar as ComboBox (que são dependentes) e são carregadas, a primeira no evento “Open” e a segunda na evento “Change”. Agora eu preciso de um código que pesquise e mostre somente o tipo pesquisado. Por exemplo, se eu carregar a CmbTipo: com Categoria, na CmbDescrição aparecerão somente as categorias, então, ao clicar em uma das categorias eu gostaria que fossem carregadas na tabela apenas as categorias escolhidas, ou então, somente as Cida Private Sub Workbook_Open() Sheets("PESQUISAR").Select Sheets("PESQUISAR").CmbTipo.Clear Sheets("PESQUISAR").Range("L3").Select Do While ActiveCell.Value <> "" Sheets("PESQUISAR").CmbTipo.AddItem ActiveCell.Value ActiveCell.Offset(1, 0).Select Loop Sheets("PESQUISAR").CmbTipo.ListIndex = 0 Sheets("PESQUISAR").Range("B11").Select End Sub Private Sub CmbTipo_Change() 'Limpar ComboBox Descrição Sheets("PESQUISAR").Activate Sheets("PESQUISAR").CmbDescricao.Clear 'Sheets("LISTAS").Activate 'Selecionar célula para iniciar a busca dos dados If CmbTipo.Value = "Categoria" Then Range("N3").Select ElseIf CmbTipo.Value = "Cidade" Then Range("P3").Select Else Range("R3").Select End If 'Adicionar itens na ComboBox Do While ActiveCell.Value <> "" CmbDescricao.AddItem ActiveCell.Value ActiveCell.Offset(1, 0).Select Loop 'Deixar primeiro item selecionado Sheets("PESQUISAR").Activate Sheets("PESQUISAR").CmbDescricao.ListIndex = 0 Sheets("PESQUISAR").Range("B11").Select End Sub des escolhidas, e assim por diante. Como poderia ser esse código? Obrigado a todos.

Pessoal, boa tarde. Estou tentando criar uma ComboBox dinâmica dependente em VBA, mas sem utilizar um UserForm. Criei duas ComboBox, 1ª) CmbCategoria que recebe os itens receita, despesa e investimento; 2ª) CmbDescrição (dependente), que recebe os itens salário, bonificação, hora extra, alimentação, aluguel, educação, farmácia, etc. A pasta de trabalho contém 3 abas, sendo uma o painel onde lanço os dados, uma segunda tabela que é a base de dados e uma outra aba que são as Listas. Essa última possui uma lista cujo cabeçalho tem o título RECEITA: receita, despesa e investimento; uma outra que são as DESPESAS e, uma terceira que são os INVESTIMENTOS. Para preencher a CmbCategoria, utilizei o evento "Open", que foi preenchida com sucesso, com os itens receita, despesa e investimento. Todavia a CmbDescrição começa bem, todavia, quando chega na condicional "If ", que seria para iniciar a busca de dados nas listas, o código trava e aparece uma mensagem: Erro em tempo de execução 424, o objeto é obrigatório. Alguém poderia me ajudar a reparar isso? Obrigado. Private Sub Workbook_Open() Sheets("Painel").CmbCategoria.Clear Sheets("Listas").Activate Sheets("Listas").Range("E2").Select Do While ActiveCell.Value <> "" Sheets("Painel").CmbCategoria.AddItem ActiveCell.Value ActiveCell.Offset(1, 0).Select Loop Sheets("Painel").Activate Sheets("Painel").CmbCategoria.ListIndex = 0 Sheets("Painel").Range("D14").Select End Sub Private Sub CmbCategoria_Change() 'Limpar CmbDescricao CmbDescricao.Clear 'Selec cell ini busca dados If CmbCategoria.Value = "Despesa" Then Sheets("Listas").Activate Range("G2").Select ElseIf CmbCategoria.Value = "Invest" Then Range("I2").Select Else Range("K2").Select End If 'Adic itens na CmbDescricao Do While ActiveCell.Value <> "" CmbDescricao.AddItem ActiveCell.Value ActiveCell.Offset(1, 0).Select Loop 'Deixar 1º item selecionado CmbDescricao.ListIndex = 0 Range("D14").Select End Sub , utilizei o evento "Change", que começa bem, depois exibi uma mensagem que diz: "Erro em tempo de execução '424', o objeto é obrigatório". Alguém poderia me ajudar nessa dificuldade, por favor. Segue anexo o código que fiz. Obrigado.

Pessoal, boa tarde. Estou montando uma pequena planilha de controle de gastos, que contém uma tabela com 6 colunas. Como eu faria para converter valores positivos em negativos, sendo que eu não pretendo converter todos os valores da coluna, mas, somente alguns, utilizando critérios? Eu sei que preciso, talvez, utilizar uma condicional If_Then_Else, mas, confesso que já esgotei meus conhecimentos e não cheguei ao resultado pretendido. Alguém poderia me auxiliar, por favor? Obrigado. A tabela que pretendo converter os valores, são apenas as Despesas e os Invest. As receitas continuarão com valores positivos.

Boa noite galera. Estou tentando desenvolver uma planilha para controle financeiro. Ela é bem simples. Eu gostaria de escrever um código VBA que classificasse o ano e o mês. Classificar o ano eu até consegui, porém, não consigo que o VBA classifique o mês, pois, ele entende que é para classificar em ordem alfabética, tipo, A, B, C (...). Então, ele joga Fev, antes de Jan, por exemplo. Obrigado. Public Sub classificar ( ) Dim tabela As Range wsbase.Sort.SortFields.Clear Set tabela = Range("A2").CurrentRegion With wsbase.Sort .SortFields.Add tabela.Columns(1), xlSortOnValues, xlAscending .SortFields.Add tabela.Columns(2), xlSortOnValues, xlAscending End With Plan1.Sort.SetRange tabela Plan1.Sort.Header = xlYes Plan1.Sort.Apply End Sub PlnFor.xlsx

@Joao531 Obrigado pelas dicas João.

Boa tarde, Eu tenho um PC com as seguintes configurações: Processador E5300 Intl Pentium, Placa Pegatron IPM41 G41 lg 775, CHIPSET Intel G41, memória RAM DDR 3 800/1066 2GB, HD 320 GB , Windows 7 .Essa máquina eu a utilizo para navegar na internet e usar o Word e Excel. Ela está desativada deste Dez19. Em Jan de 2022 a Microsoft deixou de dar duporte ao Windows 7. Agora em Fev 22 eu resolvi ligá-la novamente e funciona razoavelmente. Fisicamente o PC está em excentes condições de conservação. Estou pensando em fazer um UPGRADE da seguinte forma: - Colocar um SSD 120 GB a fim de agilizar a inicialização do win (para o meu uso é suficiente); - Colocar mais um pente de 2 GB Mem. Então eu gostaria de perguntar: - È possível ligar o SSD com os cabos do leitor de DVD? - Uma memória DDR3 1333mhz 2gb Pc10600u de qualquer marca no slot dessa placa-mãe funciona a contento? - Com 4 gb eu posso instalar o win 10, uma vez que o win 7 já não conta mais com suporte, e ainda, terei memória para pequenos usos, tipo, navegar na EB e usar o Word/Excel? Obrigado pela atenção.

É só clicar em @mencionar?

@Edson Luiz Branco Obrigado Edson, era isso mesmo que faltava.

Boa tarde pessoal, nesse meu programa sobre montagem de uma agenda de contatos quando eu acesso o menu e tento a opção “1” para incluir contato eu recebo a seguinte mensagem: "Erro de compilação: Somente tipos definidos pelo usuário em módulos de objeto público podem ser convertidos para ou a partir de uma variante ou passados para funções late-bound." No Access funciona normalmente. Será que esse tipo de programa não pode ser feito no Exceç? Ou o erro é por outro motivo? Obrigado. Option Explicit Type typContato nomeCompleto As String * 30 dataNascimento As Date fone As String * 12 email As String * 30 End Type Public arrContato(1 To 100) As typContato Public intUltimoContato As Integer Sub menuAgenda() Dim varOpcao As Variant Do varOpcao = InputBox("Informe a opção desejada: " & vbCrLf & _ vbLf & _ "[1] incluir novo contato" & vbCrLf & _ "[2] exibir contato" & vbCrLf & _ "[3] editar contato" & vbCrLf & _ "[4] excluir contato" & vbCrLf & _ "[5] salvar contato" & vbCrLf & _ vbLf & _ "[6] sair & vbCrLf &" _ , "Agenda de Conttos") Select Case varOpcao Case 1 Call incluirContato Case 2 Call exibirContato Case 3 Call editarContato Case 4 Call exluirContato Case 5 Call salvarContato End Select Loop Until varOpcao = 6 End Sub Sub incluirContato() intUltimoContato = intUltimoContato + 1 arrContato(intUltimoContato) = novoContato End Sub Function novoContato() novoContato.nomeCompleto = InputBox("Informe o nome do contato (*):", " Incluir Contato") novoContato.dataNasc = CDate(InputBox("Informe a data de nascimento (*):" & _ vbCrLf & vbLf & _ "Foramto: dd/mm/aaaa", "Incluir Contato")) novoContato.fone = InputBox("Informe o telefone:" & vbCrLf & vbLf & _ "Formato: 00 00000-0000", "Incluir Contato") novoContato.email = InputBox("Informe o e-mail:" & vbCrLf & vbLf & _ "Foramto: [email protected]", "Incluir email") End Function Sub exibirContato() MsgBox listaContatos(True), vbInformation, "Lista de Contatos" End Sub Function listaContatos(Optional argCompleto As Boolean = False) As String Dim i As Integer For i = 1 To intUltimoContato listaContatos = listaContatos & _ i & " " & arrContato(i).nomeCompleto If argCompleto Then listaContato = listaContato & " " & _ arrContato(i).dataNasc & " " & _ arrContato(i).fone & " " & _ arrContato(i).email & vbCrLf Else listaContatos = listaContatos & vbCrLf End If Next i End Function Sub editarContato() End Sub Sub exluirContato() End Sub Sub salvarContato() End Sub

Mais um ponto para você... Kkk... Obrigado!

Por quê o programa arredonda o valor da multa? Por exemplo: Num valor a pagar de 10,00, com 5 dias de atraso e multa de 0.75 seria: 5 * 0.75 = 3.75 = 10,00 = 13,75. Mas o valor retornado = 14,00. Como corrigir isso, por gentileza? Sub CalcMultaAt ( ) Dim curValorDev As Currency Dim curTotalPg As Currency Dim intDiasAt As Integer Dim intMulta As Integer Dim Ws As Worksheet: Set Ws = Plan1 curValorDev = InputBox("Digite o valor devido: ") MsgBox "Valor devido é igual a : " & curValorDev Ws.[B1].Value = curValorDev intDiasAt = InputBox("Digite a quantidade de dias em atraso: ") MsgBox "Dias em atraso é igual a :" & intDiasAt Ws.[B2].Value = intDiasAt intMulta = intDiasAt * 0.75 Ws.[B3].Value = intMulta MsgBox "A Multa é igual a :" & intMulta curTotalPg = curValorDev + intMulta MsgBox "Total a pagar é igual a :" & curTotalPg Ws.[B4].Value = curTotalPg MsgBox "Valor devido é igual a : " & curValorDev & Chr(13) & _ "Dias em atraso: " & intDiasAt & Chr(13) & _ "A Multa é igual a : " & intMulta & Chr(13) & _ "Total a pagar é igual a : " & curTotalPg, vbInformation + vbOKOnly, _ "CONFIRMAÇÃO DE DADOS" Debug.Print curTotalPg End Sub

Boa noite pessoal. Mais uma ajuda por favor. Nesse meu procedimento quando eu testo o resultado , por exemplo, strLuzAcesa = Verde (Case "Verde"), não aparece o vbCritical e nem o título. Porém quando eu mudo a Var strLuzAcesa para Marron, que é "Case Else" aí sim aparece o título e o vbCritical. Onde está o erro? Obrigado! Sub desvioMultiplo ( ) Dim strLuzAcesa As String strLuzAcesa = "Verde" Select Case strLuzAcesa Case "Azul" MsgBox "A luz roxa ou azul está acesa!" Case "Vermelha" MsgBox "A luz vermelha ou amarela está acesa!" Case "Verde" MsgBox "A luz verde está acesa!" Case Else MsgBox "Outra cor de está acesa! " & "A luz acesa é a " & strLuzAcesa, vbCritical, _ "Teste" End Select Debug.Print strLuzAcesa End Sub