faguiar, Postagem cruzada em:

Postagem cruzada em:

Tente: ThisWorkbook.Sheets("LD").Range("AB4").Offset(i - 1, 0) = Replace(UserForm2.Controls("Textbox"...

Tanto o DAO como o ADO estão obsoletos. No entanto, ao trabalhar com o Excel, prefira usar o ADO ao invés do DAO. Poderia postar o código que está uti...

"Mas ele não funciona em alguma maquinas, apenas se eu adiciona-lo manualmente esse controle na maquina." Verdade, agora me lembrei por que ...

MsgBox Me.ListView1.SelectedItem.SubItems(2)

Não sei se é possível adicionar um controle diretamente. Por que precisa disso? Desenvolvedores sabem adicionar o controle TreeView.

Não testei, mas tente: ThisWorkbook.VBProject.References.AddFromGuid GUID:="{0D452EE1-E08F-101A-852E-02608C4D0BB4}", Maj...

.Recipients.Add "destinatario1@email.com" .Recipients.Add "destinatario2@email.com" .Recipients...

Ou você mostra a caixa de seleção em todos os itens da ListView ou não mostra em nenhum. Não é possível fazer isso parcialmente.

Altere: dtinicial = Format(DTPicker1, "mm/dd/yyyy") dtfinal = Format(DTPicker2, "mm/dd/yyyy") para: dtinicial = clng(cdate(DTPicke...

Public Sub pMain() Dim Origem As Excel.Worksheet Dim Destino As Excel.Worksheet Dim RowOrigem As Long Dim RowDestino As Long Dim C...

Sem problemas, amigo. o caractere # significa q pode ser qualquer valor? é isso? Representa qualquer número de 0 a 9. Veja mais detalhes em: http:...

Ótimas práticas. Mais alguns pensamentos: as variáveis são publicas e utilizadas por todas as macros com o mesmo propósito Na verdade, você utilizou v...