EXCELer Tudo sobre EXCEL em Português

Private Sub Workbook_Open() Dim ExcelLastSavedBy As String Dim dInput As String ExcelLastSavedBy = ThisWorkbook.BuiltinDocumentProperties(“Last Author”) dInput = ActiveWorkbook.BuiltinDocumentProperties.Item(“Last Save Time”) Sheets(3).Range(“G” & Rows.Count).End(xlUp).Offset(1, 0).Value = ExcelLastSavedBy & ” – ” & dInput ThisWorkbook.Save End Sub

Se pretendermos copiar um Range de uma Worksheet de outro Workbook, Range esse que deve terminar na linha anterior à 1ª linha vazia existente, podemos utilizar o seguinte código: Sub Insere() ‘————————————————————————————— ‘ Procedimento : Insere ‘ Autor : JORGEROD ‘ Data : 15-11-2018 ‘ Propósito : Copia os valores de final do dia, provenientes de outro Workbook ‘————————————————————————————— Dim …

Para ver o artigo, clique em https://spreadsheeto.com/checkbox-excel/ Créditos para Mikkel and Kasper, Spreadsheeto

‘————————————————————————————— ‘ Procedure : Worksheet_BeforeDoubleClick ‘ DateTime : 17-04-2017 23:55 ‘ Author : Jorge Rodrigues ‘ Purpose : Duplo clique para indicar o número de linhas a inserir abaixo da célula activa ‘ : Mantém a formatação da linha a copiar, limpando os dados ‘ : Desprotege Worksheet e volta a protegê-la ‘————————————————————————————— ‘ Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, …

Para colorir Textbox num Userform e o focus do rato não se ver, podemos adicionar o seguinte código (como exemplo…): UserForm3.TextBox1.Locked = True UserForm3.TextBox1.ForeColor = vbBlue UserForm3.TextBox2.Locked = True UserForm3.TextBox2.ForeColor = vbBlack UserForm3.TextBox3.Locked = True UserForm3.TextBox3.ForeColor = vbRed UserForm3.TextBox4.SetFocus ‘ Esta TextBox deve ter tamanho zero para não se ver e fica com o focus do rato

Embora o texto em causa se encontre em língua inglesa, julgo que é de aproveitar a sua leitura e visualização. Pode ser consultado aqui: How To Use Excel