opa...foi mal. Eu li "CheckBox".

Bom-dia! Aqui vai um. If CheckBox1.Value = True Then Range("A1").Value = 1 If CheckBox1.Value = False Then Range("A1").Value...

Bom-dia amigo, Posta o seu arquivo. att, Francisco

Olá amigo, quando a resposta for "Não" pode haver células em branco ? Os dados serão copiados da mesma forma para outro local ? att Franci...

Olá amigo, Normalmente quando você está inserindo um código, "Application.xxx" a janelinha vai aparecer à partir do ponto. Caso você us...

Acho que a ideia que ele passou, seria meio que criar um "UserForm" com "OptionButton". Um para cada esquema: imprimi, gerar pdf, ...

Tenta esse. Sub imprimir() ncop = InputBox("Informe a quantidade de cópias") If ncop = "" Or ncop = "0" Then 'MsgBox...

Sub imprimir() Dim resposta As String For a = 1 To 1 resposta = MsgBox("Deseja Imprimir o documento", vbYesNo, "Imprimindo documento&...

Olá amigo, Vê se esse código te ajuda. Att, Francisco Sub apagaLinha() Columns("A:A").Select 'Adapte para a coluna que qu...

Olá amigo, Cola esse código no módulo e cria um botão e atribui a macro. Sub copiarDadosEntrePlanilhas() Plan2.Range("A2:D10...

Olá amigo, Começa com esse código dentro do botão inserir. Private Sub btnInserir_Click() Dim UltimaLinha As Object Set UltimaLinha = Plan1.Ra...

Bom-dia, Acho que atente o que você estava precisando. Att, Francisco

Olá jau288. Ainda precisa daquela planilha separando os pares dos ímpares !? Acho que consegui chegar próximo do esperado. att, Francisco

Precisamos saber o que realmente precisa, pois o patropi mandou um arquivo com fórmulas funcionais e eu mandei um arquivo com fórmula que mostra o men...

Olá amigo...o arquivo veio zerado...!