EXCELer Tudo sobre EXCEL em Português

Se criarmos uma tabela numa folha do Excel e pretendermos inseri-la num documento do Word de modo a que, sempre que haja alteração na grelha, a mesma se reflicta automaticamente no documento do Word, 1º- No Excel, marcam-se as células pretendidas e copiam-se para o clipboard [CTRL + C] 2º- No Word, no local pretendido, escolhe-se Editar>Colar Especial>Colar ligação>Como: Texto …

Visto em: VBA Visual Basic for Applications (Microsoft) Forum O Código: Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _    (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _    (ByVal hWnd As Long, ByVal nIndex As Long) As LongPrivate Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _    (ByVal hWnd As Long, ByVal nIndex As …

Código: Public nRow As Long 'Declara a Variável como Pública,no início do MóduloPrivate Sub UserForm_Initialize() ' Inicia o Form mostrando linha 2                                  '(1ª linha de dados)     If nRow < 2 Then        nRow = 2    End If     'mostra os dados    TextBox1.Text = Cells(nRow, "A")    TextBox2.Text = Cells(nRow, "B")    TextBox3.Text = Cells(nRow, "C") End Sub Private Sub CommandButton1_Click()    ' Botão Seguinte     nRow = nRow + 1    'Incrementa 1 linha 'mostra …

Em vez de utilizarmos Botões de Comando, podemos usar o SpinButton: O resultado no Formulário é: O Código: Private Sub SpinButton1_SpinUp()    nRow = nRow + 1    'Incrementa 1 linha 'mostra os dados    TextBox1.Text = Cells(nRow, "A")    TextBox2.Text = Cells(nRow, "B")    TextBox3.Text = Cells(nRow, "C")End Sub Private Sub SpinButton1_SpinDown()  If nRow = 2 Then    ' se a linha for a 2 (1ª linha de dados)    Exit Sub            'já não decrementa    Else        nRow …

O Código: Private Sub CommandButton1_Click() 'Botão Altera-OK     Cells(nRow, "A") = TextBox1.Text ' As células tomam os novos dados    Cells(nRow, "B") = TextBox2.Text    Cells(nRow, "C") = TextBox3.Text End Sub

Andrew Engwirda (Andrew's Excel Tips) elaborou uma série de utilidades em add-in abertoque pode ser baixado AQUI.

Se pretendermos provocar uma ocorrência sempre uma determinada célula é alterada, podemos socorre-nos do evento WorkSheet_Change(). Tomemos o seguinte exemplo: Se se pretender que, sempre que se insira um novo valor em A1, apareça em B1 metade do valor inserido em A1, adicionado ao valor que antes estava em B1, ou seja: 1ª inserção em A1 = 36, logo, B1 …