AfonsoMira

Boas @JorgeSouza , Experimente o seguinte código: Sub soma_se() 'Declara Variavel Livro Dim wb As Workbook: Set wb = ThisWorkbook 'Declara Variavel Folha Dim ws As Worksheet: Set ws = wb.ActiveSheet 'Vai buscar ultima linha da Coluna A Dim ultimaLinha As Long: ultimaLinha = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row 'Coloca formula na célula D4 ws.Range("D4").FormulaR1C1 = "=IFERROR(IF(R1C1=R1C7,SUMIFS(C[5],C[3],RC[-2],C[4],RC[-1],C[2],RC[-3])),0)" 'Arrasta da D4 até D e ultima linha ws.Range("D4").AutoFill Destination:=ws.Range("D4:D" & ultimaLinha), Type:=xlFillDefault 'Converte fórmula em Valor ws.Range("D4:D" & ultimaLinha).Value2 = ws.Range("D4:D" & ultimaLinha).Value2 End Sub

Boas @Jeff_Sandes , Então ao que parece o VBA está a associar o "/" da data como sendo um separador do caminho do ficheiro. Experimente desta forma: Private Sub Salvar_Planilha() Dim Data As String Data = Format(Date, "mm-yyyy") ActiveWorkbook.SaveAs _ Filename:="C:\Users\Automacao\Desktop\macros\" & Data & ".xlsm" 'Salva planilha com nome de mês e data atual Application.DisplayAlerts = False 'Desativa Pop-Up de pergunta se deseja salvar ou não Application.Quit 'Fecha Excel End Sub Ps. Não testei aqui

Boas @luislopes06 , Ao que parece está a separar com " : " (Dois pontos) experimente com " ; " (Ponto e Vírgula) ou então " , " (Vírgula). Exemplo: =TEXTO(B12;"dddd") Ou =TEXTO(B12,"dddd")

Boas @Matheus Orchulhak , Experimente algo deste género: Dim caminho As String Dim este As Workbook, outro As Workbook Application.DisplayAlerts = False caminho = ("C:\Users\mathe\OneDrive - Fugro\DRILLING\demandas\220718\1.xlsx") Set outro = ActiveWorkbook Set este = Workbooks.Open(caminho) outro.Sheets(2).Range("A2").Copy este.Sheets(1).Range("B28").PasteSpecial outro.Sheets(2).Range("B2:F2").Copy este.Sheets(1).Range("I29:I33").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True

Boas @Rodrigo Carneiro , Veja se isto ajuda: Cole na Célula D9 e arraste para baixo =SE(OU(MÊS(B9)>=MÊS($J$3),ANO(B9)>ANO($J$3)),$J$4,"")

Então a Coluna F é uma Coluna Auxiliar, Na coluna G ele vai procurar na coluna A o que contenha o valor da coluna F, por exemplo: Procura na Coluna A o que contenha -E e vai devolver o valor na Coluna G. (Não sou muito bom a explicar)

Boas @lucas_neto , Seria algo deste género ? exc.xlsx

Eu errei aqui, Experimenta agora: "=PICurrVal(""\\FTHSERVER\BWF_530BWF_SP_OP"",0,"""")"

E dessa forma: .Range("A1048576").formula = "=PICurrVal(""\\FTHSERVER\BWF_530BWF_SP_OP"",0,0"""")" Continua dando erro? Após indicar o range coloque ".formula"

Boas @Jeff_Sandes , Experimente da seguinte maneira: .Range("A1048576") = "=PICurrVal(""\\FTHSERVER\BWF_530BWF_SP_OP"";0;0"""")"

Boas @RaquelNovell , Então uma variável do Tipo Integer (Inteira) não pode ter o valor NULL (Nulo)

Boas @EduardoBRSTS , Experimente utilizar o seguinte código: Para desabilitar: Application.EnableCancelKey = xlDisabled Para habilitar: Application.EnableCancelKey = xlInterupt Espero que ajude

Boas @Revolucao , Veja se é isto que pretende: Caderneta.xlsx

Boas @Lazaro Fernandes , Com o Shift ele selecciona ou limpa ?

Boas @Victorhugoc , Experimente trocar: Word.SaveAs xFolderPath & "\" & xFileName & ".PDF" (Nessa parte ta dando erro) Por: ActiveDocument.ExportAsFixedFormat OutputFileName:= _ xFolderPath & "\" & xFileName & ".pdf", _ ExportFormat:=wdExportFormatPDF, _ OpenAfterExport:=False, _ OptimizeFor:=wdExportOptimizeForPrint, _ Range:=wdExportAllDocument, _ IncludeDocProps:=True, _ CreateBookmarks:=wdExportCreateWordBookmarks, _ BitmapMissingFonts:=True

Boas, @Revolucao Experimente formatar a célula com o seguinte: **;**;**;** Como no exemplo:

Boas @Leandro Rauski , Veja se tem esta opção seleccionada nas definições do Outlook. Pode ser esse o problema.

Boas @lucas.sns , Experimente da seguinte forma: Crie um novo módulo e cole estas macros lá: Sub somar() Dim s As Shape, linha As Long, sname As String Dim valor, stock_anterior, stock_atual As Long sname = Application.Caller Set s = ActiveSheet.Shapes(sname) linha = s.TopLeftCell.Row valor = Range("B" & linha).Value stock_anterior = Range("I" & linha).Value stock_atual = stock_anterior + valor Range("B" & linha).Value = 0 Range("I" & linha).Value = stock_atual End Sub Sub subtrair() Dim s As Shape, linha As Long, sname As String Dim valor, stock_anterior, stock_atual As Long sname = Application.Caller Set s = ActiveSheet.Shapes(sname) linha = s.TopLeftCell.Row valor = Range("B" & linha).Value stock_anterior = Range("I" & linha).Value stock_atual = stock_anterior - valor Range("B" & linha).Value = 0 Range("I" & linha).Value = stock_atual End Sub Depois para cada botão de somar atribua a macro "Somar" e para cada botão de subtrair a macro "subtrair". Ele vai verificar qual a linha em que está o botão que chamou a macro, e vai proceder a alteração do stock. Espero ter ajudado.

@Gustavo1313 Experimente assim: =SE(SOMA($B$7:B8)/$B$3=0,'',SOMA($B$7:B8)/$B$3)

Boas, @Gustavo1313 Experimente usar a formula "SE". Se o resultado for 0 então escreve branco. Algo deste género: =SE(SOMA($B$7:B8)/$B$3=0,"",SOMA($B$7:B8)/$B$3)

Boas, @Jeff_Sandes Em relação ao código veja se assim funciona: Sub MACRO() Range("A1").Select Selection.Copy Range("B1").Select Selection.PasteSpecial Paste:= xlpastevalues, operation:= none, SkipBlanks _ := False, Transpose:= False End Sub Quanto ao seguinte: Experimente alterar o nome da macro. Exemplo em vez de "MACRO" coloque "copiar_colar" e veja se resulta. Cumps, Afonso Mira

@Revolucao Boas, Veja se é isto que pretende? Bolão-formatação.xlsx Cumps, Afonso Mira

@luizdeath Boas, Em que coluna está a data? Obrigado!

@Leandro Lamin Boas, Experimente assim: Sub Excel_to_WhatsApp() Dim r As Long Dim Linha As Integer Dim strip As String Dim Numero_Telefone As String Dim Mensagem As String Dim Enviar As String Dim Object As Object r = Range("A" & Rows.Count).End(xlUp).Row For Linha = 2 To r Numero_Telefone = Planilha1.Cells(Linha, 1).Value Mensagem = Planilha1.Cells(Linha, 2).Value Planilha1.Cells(Linha, 2).copy Enviar = "whatsapp://send?phone=" & Numero_Telefone & "&text=" & Mensagem Set Object = CreateObject("InternetExplorer.Application") Object.navigate Enviar Application.Wait (Now + TimeValue("00:00:05")) Call SendKeys("^v") Application.Wait (Now + TimeValue("00:00:05")) Call SendKeys("{Enter}", True) 'Application.Wait Now() + TimeSerial(0, 0, 5) 'SendKeys "~" Next Linha End Sub PS. Não testei aqui

@Natália Fontes Boas, Veja se este artigo ajuda você: MySQL INNER JOIN Keyword