Planilha Excel VBA comentário personalizado userform TextBox inserir

Escola Saberexcel VBA Estudos® – Treinamentos com Macros, Fórmulas e Funções

procedimentos e macros do Aplicativo Microsoft Excel VBA(Visual Basic Application),

USERFORM: INSERIR COMENTARIO COM DADOS PERSONALIZADOS
Planilha Excel VBA comentário personalizado userform TextBox inserir

Planilha Excel VBA comentário personalizado userform TextBox inserir

Planilha Excel VBA comentário personalizado userform TextBox inserir

Ao efetuar um duplo click nas area (N5:N14), abrirá um USF(Formulario) com textboxes para serem preenchidos. Quando Preechidos inserirá um Comentario na Célula específica e mostrará o comentario proviniente de suas entradas(Digitação). Caso Dê um Duplo clique onde contém algum comentário, será deletado automáticamente.
Fique com Deus,

‘procedimento usado no Userform.

Private Sub CommandButton1_Click()
Dim vCom As String
Dim i As Byte
Dim vRoteirov
Com = Me.TextBox1.Value & ” Kilometros a Viajar, ” & vbLf
vRoteiro = Array(“Cidade Partida : “, “Passo 1 – Cidade : “, “Passo 2 – Cidade: “, “Cidade Chegada : “)
For i = 2 To 5
If Me.Controls(“TextBox” & i).Value <> “” Then vCom = vCom & vRoteiro(i – 2) & _Me.Controls(“TextBox” & i).Value & “, ” & vbLf
Next i
‘//===== comentarios adicionar célula específica

Debug.Print vCom
ActiveCell.AddComment vCom
With ActiveCell.Comment.Shape.OLEFormat.Object
.AutoSize = True
.Interior.ColorIndex = 38 ‘rosa salmão
With .Font
.Name = “Comic Sans MS”
.Size = 8
.Bold = True
.ColorIndex = 10
End With
End With
Unload Me
End Sub

‘//========= NO EVENTO CHANGE DA FOLHA DE PLANILHA

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim vResposta As String
If Not Intersect(Target, [N13:N22]) Is Nothing Then
Cancel = True
With Target
If .Comment Is Nothing Then
frmROTEIRO.Show
Else
.Comment.Delete
End If
End With
End If
End Sub
‘//=========

Expedito Marcondes.
Escola SaberExcel VBA Estudos
site….: http://www.saberexcel.com.br

 


Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola SaberExcel VBA Estudos® – Treinamentos com Macros, Fórmulas e Funções.
Compre pelo PagSeguro Compre pelo PayPal
excel-vba-treinamento-pagseguro
 Material Didático: Curso Excel VBA Expert 
excel vba treinamentos planilhas
 Baixe o exemplo de planilha contendo os macros acima:
iconSBI Excel VBA – comentário Userform TextBox inserir
<< Download Link: Verifique também Caixa de Itens Excluídos >>

    iconSBI Excel VBA – comentário Userform TextBox inserir

    Deixe um comentário

    O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *