VBA

Pergunta adaptada, efectuada por um adepto do site: “O que pretendo, é fazer com que a CheckBox19 fique marcada sem ser através do click do rato.” Ou seja,por exemplo, numa célula colocar-se o valor 1 e a checkbox pretendida e associada à célula em causa, aparecer como marcada, como na imagem abaixo: O código possível para isso, poderá ser este …

Código para inserção de foto em comentário, como no exemplo:

Eis um código VBA que me serviu para ir registando quantidades de produtos em determinadas células, fazendo com que, na coluna seguinte e nas células correspondentes, fossem sendo adicionadas essas quantidades às quantidades anteriormente apuradas, como no exemplo – imagem:       Option Explicit ‘————————————————————————————— ‘ Procedure : Worksheet_Change ‘ Author    : JRod ‘ Date      : 03/03/2013 ‘ Purpose   …

Por vezes, podemos ter necessidade de saber qual foi o utilizador que acedeu e quando acedeu a uma determinada worksheet, nomeadamente quando se trabalha em rede. O Código: Private iNextRow As Long Const HIDDEN_SHEET As String = "Sheet3" ' ou outro nome Private Sub Workbook_Open() With Worksheets(HIDDEN_SHEET) .Range("A1").Value = Environ("UserName") .Range("B1").Value = Format(Date + Time, _ "dd mmm yyyy hh:mm:ss") …

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 …