André_Arruda

Uma sugestão: Porque você não insere essa mesma macro também no botão da Userform? Ou seja, assim que clicar no botão e o dado for para a planilha, ao mesmo tempo, a macro em questão será executada...

Segue: Confere Placas.xlsx

Veja se é mais ou menos isso: Confere Placas.xlsx

Poderia só dizer que fórmula está usando? Por exemplo: Se o nome da planilha que quer puxar os dados for "Carro" então faça assim: =Carro!D1 Obs. D1 é a célula que contém o valor que quer puxar

Desculpe, por gentileza.. Qual o nome da planilha que você está trabalhando? outra pergunta? Os dados realmente estão na coluna "A"?

supondo que você quer fazer isso com os dados da coluna A: Sub selecionar() Dim lastlin As Long lastlin = Plan1.Range("A" & Rows.Count).End(xlUp).Row Plan1.Range("A1:A" & lastlin).Select End Sub

Boa Tarde, segue conforme pedido Abrç! Planilha Modelo.xlsx

É meio complicado dar uma explicação completa aqui mas dê uma olhada em posts sobre procv invertido. https://excelmaniacos.com/2015/07/09/funcoes-fazendo-um-procv-invertido-buscando-de-baixo-para-cima/

=índice(g:g;corresp("ok";h:h;0))

Insira essa fórmula em F6: =PROC(2;1/((B15:B1048576=PERIODO_EQUIPAMENTO_DEPOT)*(G15:G1048576=E4));H15:H1048576) Por ser uma fórmula matricial, você deve finalizá-la com Ctrl+Shift+Enter Abrç!

Olá, tente isso: Sub capturar() Dim sh, ul As Long On Error Resume Next ul = Plan2.Range("A" & Rows.Count).End(xlUp).Row Application.ScreenUpdating = False Plan2.Visible = True Plan2.Activate If Plan2.Range("A" & ul).Value = "" Then Plan2.Range("A" & ul).Select Plan2.Range("A" & ul & ":B" & ul).Value = Plan1.Range("A1:B1").Value Else Plan2.Range("A" & ul + 1).Select Plan2.Range("A" & ul + 1 & ":B" & ul + 1).Value = Plan1.Range("A1:B1").Value End If Plan2.Visible = xlSheetVeryHidden Plan1.Range("A1").Select Application.ScreenUpdating = True End Sub Salvar Registro.xlsm.rar

tente algo tipo isso: Sub capturar() Dim sh, ul As Long Application.ScreenUpdating = False sh = Sheets.Count Plan1.Activate Plan1.Range("A1").Select For i = 2 To sh ul = Plan1.Range("A" & Rows.Count).End(xlUp).Row + 1 Plan1.Range("A" & ul).Select Plan1.Range("A" & ul & ":A100").Value = Sheets("Plan" & i).Range("A2:A100").Value Plan1.Range("A1").Select Next i Application.ScreenUpdating = True End Sub Puxar de outras plans.rar

Supondo que a sua data está na célula A1: =se(e(dia.da.semana(a1+30;1)=1);a1+28;se(e(dia.da.semana(a1+30;1)=7);a1+29;a1+30))

Boa Tarde, segue conforme pedido. Abrç! TESTE2.xlsx

Faltou a planilha...

Sub adicionar_soma() Dim ul As Long Application.ScreenUpdating = False ul = Range("C" & Rows.Count).End(xlUp).Row + 1 [c1].Select For i = 1 To ul - 1 If ActiveCell.Offset(0, -1).Value = "soma=" Then ActiveCell.Value = "" ActiveCell.Offset(0, -1).Value = "" GoTo somar Else ActiveCell.Offset(1, 0).Select End If Next i somar: ul = Range("C" & Rows.Count).End(xlUp).Row + 1 Range("C" & ul).Value = Application.WorksheetFunction.Sum(Range("C1:C" & ul - 1)) Range("C" & ul).Offset(0, -1).Value = "soma=" Application.ScreenUpdating = True End Sub teste.xlsx

Indice.xlsx

Não sei se entendi mas... For Each c In .Range("B11:B" & .Cells(.Rows.Count, 2).End(3).Row) If determinadacélula.Value = determinadovalor Then c.Offset(, 1).Value = Application.SumIf(Planilha1.Range("F:F"), c.Value, Planilha1.Range("G:G")) End If Next c

Exato. Nesse caso, no fim da fórmula, substitua as aspas ( "" ) por ( "seu texto aqui").

A LÓGICA DA FÓRMULA FICA ASSIM: No Excel vazio é representado também por duas aspas assim: "" Se a célula F7 é diferente(<>) de vazia ("") então mantenha a sua fórmula normalmente, caso contrário, retorne vazia ("").

=se(f6<>"";se(minuto(mod(f6-e6;1))=0;int(f6-e6)&" dia(s) e "&hora(mod(f6-e6;1))&" hora(s)";int(f6-e6)&" dia(s), "&hora(mod(f6-e6;1))&" hora e "&minuto(mod(f6-e6;1))&" minuto(s)");"")

Espero que isso ajude.. Abrç! Alerta Inicial.zip

Tente: Sub ApagarValores() On Error Resume Next Range("F:F").SpecialCells(xlCellTypeConstants).ClearContents Range("F1:F10").EntireRow.delete On Error GoTo 0 End Sub mudando F para o seu intervalo..

@BernardorValle Tente isso: Sub ApagarValores() On Error Resume Next Range("F:F").SpecialCells(xlCellTypeConstants).ClearContents On Error GoTo 0 End Sub Nesse caso estou considerando apenas a coluna "F" mas aí você altera para o intervalo da sua tabela. Abrç!

Acho que não entendi. Isso já não é uma fórmula? Poderia explicar com detalhes? Abrç!