Basole

Sim é possivel. Queria copiar para onde?

Limitado somente a coluna "A" (1) Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim LR As Long If Target.Count > 1 Then Exit Sub If Target.Column = 1 Then Sheets("Agrícola").Select LR = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row ActiveSheet.Range("A1").Activate Selection.AutoFilter ActiveSheet.Range("$A$1:$A$" & LR).AutoFilter Field:=1, Criteria1:=Target.Value End If End Sub

Segue com as alteracoes: Teste-filtro_2.zip

Veja se é isso que precisa: Teste-filtro.zip

@doug21 seja bem vindo ao forum. Para calcular a diferença entre datas, em dias por exemplo, voce pode usar a função "DateDiff" Estou enviando um exemplo de mostra o uso desta função. Quanto a cursos vba, existem muitas opções na net. Mas segue um link de um apostila para iniciantes: Vba- MacroExcel.pdf Calcular_data_vba.zip

Bom se os dados estiverem com formatacao "Texto" esta macro pode ajudar: Sub ConvertTextNumberToNumber() Dim r As Range On Error Resume Next For Each r In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants) If IsNumeric(r) Then r.Value = Val(r.Value) Next End Sub caso não dee certo, poste um exemplo com alguns dados com a respectiva formatação.

Sim pode enviar!

Olá @Eloize Teixeira veja se é isso: Sub Método_Find() Dim w1 As Worksheet, w2 As Worksheet, c As Range, i As Long, strProc As String Set w1 = Worksheets("plan1") Set w2 = Worksheets("plan2") i = 2 ' linha inicial de dados (* altere se necessario) With w1 Do While .Range("A" & i) <> "" strProc = .Range("A" & i).Value Set c = w2.Columns(1).Find(strProc, LookIn:=xlValues, LookAt:=xlWhole) If Not c Is Nothing Then .Range("B" & i).Value = c.Offset(, 1).Value .Range("C" & i).Value = c.Offset(, 2).Value .Range("D" & i).Value = c.Offset(, 3).Value .Range("E" & i).Value = c.Offset(, 4).Value End If i = i + 1 Loop End With End Sub

segue as alteraçoes: Sub Multiplicar_uma_coluna_inteira_por_um_só_numero() Dim linha As Long, j As Long ' intervalo: J21 a AF42 For j = 10 To 32 For linha = 21 To 42 If ActiveSheet.Cells(linha, j).Value < 0 Then ActiveSheet.Cells(linha, j).Value = ActiveSheet.Cells(linha, j).Value * 1.5 End If Next linha Next j End Sub

segue as alteracoes Sub Multiplicar_uma_coluna_inteira_por_um_só_numero() Dim linha As Long, j As Long ' intervalo: J21 a AF42 For j = 10 To 32 For linha = 21 To 42 ActiveSheet.Cells(linha, j).Value = ActiveSheet.Cells(linha, j).Value * 1.5 Next linha Next j End Sub

@WesleyTT para começar em vba: Vba - Excel

@Adriano Delvali post sua planilha ou um modelo com alguns dados, por favor.

@WesleyTT tente formatar a celula como Personalizado assim: 00,0#\%;[Vermelho](00,0#\%)

Por favor teste o anexo. hhh.zip

Se não existir a Planilha(aba) "19-09-2016", por exemplo, cria a nova planilha. caso contrario não. Aqui pra mim esta funcionando desta forma.

@JorgeSouza veja se é isso: Private Sub Workbook_Open() Dim Nome As String On Error GoTo Erro Nome = Format(Date, "DD-MM-YYYY") Sheets.Add After:=Sheets("DADOS") ActiveSheet.Name = Nome Sheets("DADOS").Activate Range("A2").Activate Exit Sub Erro: Application.DisplayAlerts = False ActiveSheet.Delete Application.DisplayAlerts = True Sheets("DADOS").Activate Range("A2").Activate End Sub

Tente algo assim: Udf use (ex.): =Teste_Copiar_valores(A1;V1;W1) Cole a função em um modulo padrão, E ssalve o arq. como habilitado macros... (*.xlsm) Function Teste_Copiar_valores(rng As Range, rng2 As Range, rng3 As Range) As String 'Se A1=V1 copiar W1. ' Use (ex.): =Teste_Copiar_valores(A1;V1;W1) With ActiveSheet If rng.Value = rng2.Value Then Teste_Copiar_valores = rng3.Value End If End With End Function

post su arquivo ou um exemplo por favor.

@JorgeSouza certifique-se que a sua 2ª planilha (aba) é a Nº 2: Private Sub Workbook_Open() Dim Nome As String On Error GoTo Erro Nome = Format(Date, "DD-MM-YYYY") Sheets.Add After:=Sheets(ActiveWorkbook.Sheets.Count) ActiveSheet.Name = Nome Sheets(2).Activate Range("A2").Activate Exit Sub Erro: Application.DisplayAlerts = False ActiveSheet.Delete Application.DisplayAlerts = True Sheets(2).Activate Range("A2").Activate End Sub

@Allan Razuk o segredo é "fuçar" navegando nas diversas opções do Word. E para começar, pesquise no google por: "Word criar campos não editaveis" veja um exemplo: Documento com campos de formulario no word

Veja esta opção: Sub Teste() Dim w As Worksheet, w2 As Worksheet Set w = ThisWorkbook.Sheets("Plan1") Set w2 = ThisWorkbook.Sheets("Plan2") If ActiveCell.Formula Like "*Del*" Then Application.Goto w.[A62] Else Application.Goto w2.[A1] End If End Sub

@Allan Razuk seja bem vindo ao forum ! Abra o seu arquivo, va na aba Revisão, depois a direita em Restringir Edição, e a abaixo a direita click em Parar Proteção. Desta forma voce poderá editar todos os campos e inserir ou deletar colunas e campos.

@Fzmorais seja bem vindo ao forum! considerando que os dados esteja na coluna A cole a formula abaixo na linha B2, Aperte as teclas CTRL+SHIFT+ENTER (formula Matricial), e arraste ate a linha desejada. =SEERRO(ÍNDICE($A$2:$A$19;CORRESP(0;CONT.SE($B$1:B1;$A$2:$A$19);0));"")

Sim. Mas não poderá nem ao menos,associar algum botão a sua macro.

Ou se preferir a formula + resumida: =PRI.MAIÚSCULA(TEXTO(A1;"dd/mmm/aaaa"))