Jefferson TS

@Midori Show de bola. Muuuito obrigado novamente. Tá me quebrando um galho.

@Midori Me deparei agora com outro problema: Quando as parcelas passam de um ano de competência para outro, não carrega o ano. Por exemplo: 5 parcelas começando em novembro de 2021, só terminam em 2022.

@Midori Muito obrigado. Deu certo.

@Midori Dá erro na parte (com 'proximoMes' destacado) Deixei o código assim: Function ProximoMes(Mes As String, QuantMes As Integer) As String Dim IniMes As Integer IniMes = WorksheetFunction.Match(Mes, [Tabela_mês], 0) ProximoMes = WorksheetFunction.Index([Tabela_mês], _ (IniMes - 1 + QuantMes) Mod 12 + 1) End Function Sub CadastrarCliente() Dim QuantMes As Integer Dim Mes As String Mes = UserFormNOVO.ComboBoxMÊSINÍCIO QuantMes = Val(Split(UserFormNOVO.ComboBoxQUANTMÊSES, " ")(0)) With [Tabela_base] Dim Linha As Long Dim I As Integer Linha = .ListObject.ListRows.Count If .Cells(Linha, 1) <> "" Then Linha = Linha + 1 For I = 1 To QuantMes .Cells(Linha, 1) = UserFormNOVO.TextBoxID .Cells(Linha, 2) = UserFormNOVO.TextBoxDATA .Cells(Linha, 3) = Format(UserFormNOVO.TextBoxDATA, "MMMM") .Cells(Linha, 4) = UserFormNOVO.ComboBoxCLIENTE .Cells(Linha, 5) = Mes .Cells(Linha, 6) = UserFormNOVO.ComboBoxANO .Cells(Linha, 7) = (CCur(UserFormNOVO.TextBoxVALORTOTAL) / QuantMes) Mes = ProximoMes(Mes) Linha = Linha + 1 Next I End With

@Midori Deu certo, porém está inserindo uma linha a mais, em branco na base de dados sempre. Sabe como fazer pra não inserir esta linha a mais?

Olá. Agradeço se alguém puder me ajudar com a seguinte situação: Tenho um formulário que receberá as informações de VALOR TOTAL, MÊS INICIAL, e QUANTIDADE DE MESES. Preciso que estas informações sejam colocadas na base de dados estruturada com as colunas | id | data lançamento | cliente | mês competência | ano competência | valor | Por exemplo: Dados do formulário -> cliente fulano / valor total 360 / mes início março / quant meses 3x O exemplo acima deve ser lançado na base de dados em 3 linhas, com valor total dividido sendo 120 pra cada mês partindo de março (março abril maio). Segue abaixo print e planilha em anexo. CONTROLE NOVO.rar

@RafaVillani Muito obrigado, funcionou perfeitamente. Como funciona aquela aba filtro?

@RafaVillani Segue abaixo o link da planilha. Obrigado. https://1drv.ms/x/s!Al5m0JDzarV0gyJkUFHSXDR3exUg?e=7LppKL

Olá. Tenho um formulário para cadastrar recebimento de mensalidades. Preciso fazer o listbox deste formulário trazer o histórico de pagamentos do cliente selecionado no combobox (nome / mês / valor). Talvez a melhor forma seja vinculando a uma tabela dinâmica da base de dados, que traz como filtro o cliente e mostra os valores pagos em cada mê Alguém pode me ajudar com isto? Seguem as imagens abaixo:

Nossa. Funcionou perfeitamente. Muito obrigado e parabéns.

Isso mesmo. Tentei conforme abaixo e deu este erro

Olá. Copiei o código abaixo da internet e adaptei ao meu projeto, para formatar como moeda enquanto digita na textbox. Porém quando eu clico em salvar, para lançar os dados do formulário na tabela da planilha de base de dados, o valor fica armazenado como texto. Alguém sabe me dizer como faço para armazenar o dado vindo do formulário como moeda. Agradeço. Private Sub TextBoxVALOR_Change() valor = TextBoxVALOR.Value If IsNumeric(valor) Then If InStr(1, valor, "-") >= 1 Then valor = Replace(valor, "-", "") 'retira sinal negativo If InStr(1, valor, ",") >= 1 Then valor = CDbl(Replace(valor, ",", "")) 'retirar a virgula If InStr(1, valor, ".") >= 1 Then valor = Replace(valor, ".", "") 'para trabalhar melhor retiramos ponto Select Case Len(valor) 'verifica casas para inserção de ponto Case 1 numPonto = "00" & valor Case 2 numPonto = "0" & valor Case 6 To 8 numPonto = Left(valor, Len(valor) - 5) & "." & Right(valor, 5) Case 9 To 11 numPonto = inseriPonto(8, valor) Case 12 To 14 numPonto = inseriPonto(11, valor) Case Else numPonto = valor End Select numVirgula = Left(numPonto, Len(numPonto) - 2) & "," & Right(numPonto, 2) TextBoxVALOR.Value = numVirgula Else If valor = "" Then Exit Sub MsgBox "Número invalido", vbCritical, "Caracter Invalido" Exit Sub End If End Sub Function inseriPonto(inicio, valor) I = Left(valor, Len(valor) - inicio) M1 = Left(Right(valor, inicio), 3) M2 = Left(Right(valor, 8), 3) F = Right(valor, 5) If (M2 = M1) And (Len(valor) < 12) Then inseriPonto = I & "." & M1 & "." & F Else inseriPonto = I & "." & M1 & "." & M2 & "." & F End If End Function

Caso somente a planilha fluxo de caixa esteja aberta (a qual vai executar a macro), não dá erro nenhum. Porém, se alguma das outras planilhas já estiver aberta dá erro pra depurar, pede ser quer reabrir planilha e abre o depurador.

Olá. Existe alguma forma de verificar se a planilha está aberta, e então abrir? Sub OpenUp() Workbooks.Open ("\\SERVIDOR\Users\Usuario\Desktop\FLUXO DE CAIXA\CONTAS A PAGAR.xlsm") Workbooks.Open ("\\SERVIDOR\Users\Usuario\Desktop\FLUXO DE CAIXA\ORDEM DE SERVIÇO.xlsm") Workbooks.Open ("\\SERVIDOR\Users\Usuario\Desktop\PREFEITURA 2021\Prefeitura Caminhões.xlsm") Workbooks.Open ("\\SERVIDOR\Users\Usuario\Desktop\PREFEITURA 2021\Prefeitura Máquinas.xlsm") Workbooks("FLUXO DE CAIXA.xlsm").Activate End Sub Estou fazendo desta forma, porém, se alguma planilha já está aberta dá erro. Alguém pode me ajudar?

Olá. Tenho a seguinte macro que abre outras planilhas: Sub OpenUp() Workbooks.Open ("\\SERVIDOR\Users\Usuario\Desktop\FLUXO DE CAIXA\CONTAS A PAGAR.xlsm") Workbooks.Open ("\\SERVIDOR\Users\Usuario\Desktop\FLUXO DE CAIXA\ORDEM DE SERVIÇO.xlsm") Workbooks.Open ("\\SERVIDOR\Users\Usuario\Desktop\PREFEITURA 2021\Prefeitura Caminhões.xlsm") Workbooks.Open ("\\SERVIDOR\Users\Usuario\Desktop\PREFEITURA 2021\Prefeitura Máquinas.xlsm") Windows("\\SERVIDOR\Users\Usuario\Desktop\FLUXO DE CAIXA\FLUXO DE CAIXA.xlsm").Activate End Sub Quero fazer com que a planilha principal (FLUXO DE CAIXA) seja exibida novamente ao final da macro. Abrir as outras planilhas está certo, só falta funcionar a última linha, que exibe fluxo de caixa novamente. Alguém pode me ajudar?

@Edson Luiz Branco Fiz desta forma, mesmo sendo tabela (objeto) e deu certinho. Muito obrigado.

Olá. Alguém sabe me dizer como faço pra selecionar a célula anterior a última célula com valor? No excel VBA A intenção é fazer uma macro pra excluir a última linha da tabela, porém a última linha é a dos totais, e esta não quero excluir.

@Midori Deu certo. Muito obrigado novamente.

@Midori Muito obrigado novamente. O problema era mesmo a barra (/) da data.

@Midori Troque pelo "." (ponto) e mesmo assim não deu certo. O depurador abre com esta parte em amarelo: ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "\\SERVIDOR\Users\Usuario\Desktop\FLUXO DE CAIXA\ORDENS DE SERVIÇO\" & Empresa & "." & idcod & "." & Nome & "." & Data & "" _ , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=False

Olá. Estou tentado salvar um pdf de uma planilha do excel com "empresa" | "id" | "nome" | "data" Já fiz várias tentativas sem sucesso. Agradeço se alguem puder me ajudar. Segue o código que estou utilizando: <>'salvar PDF Sheets("ORDEM DE SERVIÇO").Select ChDir "\\SERVIDOR\Users\Usuario\Desktop\FLUXO DE CAIXA\ORDENS DE SERVIÇO" Empresa = Worksheets("ORDEM DE SERVIÇO").Range("a1") idcod = Worksheets("ORDEM DE SERVIÇO").Range("d7") Nome = Worksheets("ORDEM DE SERVIÇO").Range("B10") Data = Date ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "\\SERVIDOR\Users\Usuario\Desktop\FLUXO DE CAIXA\ORDENS DE SERVIÇO\" & Empresa & "|" & idcod & "|" & Nome & "|" & Data & "|" _ , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=False

Preciso de ajuda com a seguinte situação: Tenho um formulário de cadastro com o ComboBox nome alimentado por uma tabela. Preciso que seja exibida uma MsgBox quando o dado inserido na ComboBox não corresponder a nenhum dado da tabela alimentadora. Obs.: a MsgBox já está configurada e vai servir para 'sim/não' cadastrar novo fornecedor.

Muito obrigado. Deu certo.

Olá. Por gentileza alguém poderia me ajudar com a seguinte situação? Preciso que quando clicar em SIM na msgbox seja aberto o formulário FormCadastro, e quando clicar em NÃO, feche a msgbox. Sub msg_cadastro() MsgBox "Fornecedor não cadastrado." + vbLf + "Deseja cadastrar?", 4, "Sem cadastro!" Dim msgresp As VbMsgBoxResult If msgresp = vbYes Then FormCadastro.Show Else End If End Sub