EXCELer Tudo sobre EXCEL em Português

Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim SvInput As String Dim sPathUser As String sPathUser = Environ$("USERPROFILE") If Time>TimeValue("00:01:00") And Time<TimeValue("05:00:00") Then ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ sPathUser &"\Dropbox\Progressivos\PDF_MG\PR_MG" &"_" & Date - 2 &".pdf" _ , OpenAfterPublish:=True Else ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ sPathUser &"\Dropbox\Progressivos\PDF_MG\PR_MG" &"_" &Date - 1 &".pdf" _ , OpenAfterPublish:=True End If End Sub   Há dias, tive necessidade …

Caros amigos, Hoje, dia 1 de Outubro de 2013, recebi o 9º título consecutivo de MVP, atribuído pela Microsoft!!!! URRA!!!!!!!!

  A Função ABS() fornece o valor absoluto de um determinado número, como é referenciado e bem em: Tech on the Net

  Há dias, tive necessidade de criar uma tabela, para me ir fornecendo os valores gastos em produtos para animais. O que eu pretendia, era digitar a quantidade de determinado produto numa célula, fazendo que, através dessa inserção, fosse adicionando na célula contígua a quantidade total até ao momento obtida, o que faria com que, multiplicando a quantidade total pelo …

Se pretendermos ordenar um range por nome ou por data (ou por qualquer outro tipo, adaptando), podemos fazê.lo, por exemplo, com o seguinte código, associado a um botão de comando:   Sub Macro1() ‘ ‘ Macro1 Macro ‘ Macro recorded by JRod ‘ ‘     Dim Choice As String     Choice = InputBox(“Ordenar por:”)     If Choice = “data” Then …

1) Colorir células num Range, baseado em valores definidos pelo utilizador   2) Ordenar por nome ou por data   https://www.exceler.org/visual-basic-for-applications/vba.html

A idéia é de que toda vez que alterarmos os dados no intervalo B2:G2, as células do intervalo B4:G30 fiquem destacadas.           E agora, o código VBA, que associamos ao botão “Destaca”:   Sub Color_Cells_In_Range()     Dim FirstAddress As String    Dim MySearch As Variant    Dim Rng As Range    Dim Rng1 As Long    Dim Rng2 As Long    Dim …