Wendell Menezes

estranho, vou postar a planilha já com o código para você testar. relatório de canhoto de notas fiscais e depositos - pronta entrega1.zip

Não é ao clicar, é ao abrir o formulário. Essa linha está preenchedo a hora: Range("k6") = Time

Private Sub CommandButton1_Click() With Plan1.Range("B:B") Set C = .Find(TextBox1.Value, LookIn:=xlValues, LOOKAT:=xlWhole) If Not C Is Nothing Then C.Offset(0, 7) = TextBox5.Text C.Offset(0, 8) = TextBox6.Text C.Offset(0, 9) = TextBox7.Text C.Offset(0, 6) = TextBox4.Text MsgBox "Dados inseridos", vbInformation, "Pesquisa de Canhotos" ActiveWorkbook.Save Else MsgBox "Nota Fiscal não encontrada!!!", vbCritical, "Pesquisa de Canhotos" End If End With End Sub

O botão "Inserir" possui um form que busca os dados da NF. Depois de preencher os dados de depósito você quer colá-los na aba "Plan1" na mesma linha da NF encontrada? Se sim, pressionando qual botão?

Veja se consegue adaptar o último código desse tópico: Se não der certo poste um exemplo de arquivo aqui.

Oi Lenilson, A planilha não possui nenhuma macro, aparentemente falta a: C:\Users\lenilsonsilva\Desktop\RELATÓRIO DE CANHOTO DE NOTAS FISCAIS E DEPOSITOS - PRONTA ENTREGA.xltm

Poste a sua planilha, mostre qual é o range e como você quer vê-lo no Textbox

Olá Ronni, você precisa criar manualmente, pelo menos o começo, do que você quer ver como resultado final. O que eu ou qualquer outra pessoa entende como *resumo*, *algumas variáveis", e "um gráfico de crescimento" pode não ser exatamente aquilo q você precisa.

Lenilson, Uma foto da planilha não motiva muito, por que não posta uma cópia da planilha inteira? Ajude-se para ser ajudado

Sub Delete_Row() Rows(ActiveSheet.Buttons(Application.Caller).TopLeftCell.Row).Resize(3).Delete End Sub

O código abaixo cria uma cópia da aba que estiver selecionada, renomeia ela para "Razao" e formata do jeito que você precisa. Sub Razao() Dim Headers As Variant Dim LR As Long Headers = Array("FILIAL", "CONTA", "DATA", "C.CUSTO") LR = Cells(Rows.Count, 1).End(xlUp).Row ActiveSheet.Copy , Sheets(1) ActiveSheet.Name = "Razao" Columns("A:D").Insert Columns("C:C").NumberFormat = "dd/mm/aaaa" Range("A1").Resize(, 4) = Headers Range("A4").Resize(LR).Formula = "=IF(LEFT(E4,6)=""Filial"",LEFT(E4,11),A3)" Range("B4").Resize(LR).Formula = "=IF(LEFT(E4,6)=""Filial"",TRIM(MID(E4,12,9999)),B3)" Range("C4").Resize(LR).Formula = "=IF(ISNUMBER(E4),E4,C5)" Range("D4").Resize(LR).Formula = "=IF(LEN(E3)=9,E3,D3)" Calculate Cells.Copy Cells.PasteSpecial xlPasteValues Application.CutCopyMode = False End Sub Mas qual é relação disso com os filtros?

Boa noite, O código anterior estava colocando a data e hora simplesmente ao clicar sobre o dropdown, mesmo que nenhuma opção fosse seleciada. Com essa alteração isso deveria ter sido corrigido. Pode elaborar no que está faltando?

@diego_janjao, Olá Diego! Realmente, dei uma pausa de 2 anos

Veja se esse exemplo atende a sua necessidade. william antonio1.xlsx

@texwil, nesse caso você teria que separar as células com vírgula. Exemplo: Sub CélulasParaMatriz() Dim Matriz As Range, Cell As Range Dim Body As String Set Matriz = Range("A1,A3,A5") For Each Cell In Matriz Body = Body & Cell & vbLf Next MsgBox Body, vbInformation, "Informação" End Sub

Ainda que a planilha seja vinculada com outras, copie tudo e cole valores. Caso contrario ficaremos na tentativa e erro, o que não é eficiente. Veja se assim funciona. Sub CopiarColarF() Sheets("A").Range("G2:G360").Copy Sheets("A").Cells(1, Columns.Count).End(xlToLeft).Offset(1, -6).PasteSpecial xlPasteValues End Sub

Não sei se entendi bem. O seu problema é que todos os dias as colunas mudam e por isso a macro de copiar / colar precisa ser dinãnica? Provavelmentte dá pra resolver isso, mas seria mais fácil se você postasse a sua planilha ou cópia parecida dela aqui para entermos qual lófica melhor se aplica a sua necessidade.

Eu não sei se te atende, mas outra opção é colocar todos os valores que serão filtrados em uma planilha separada e criar um arranjo com todos eles via macro; Sub Filtrar() Dim Delimiter As String Dim List As Variant Delimiter = "[;]" With ThisWorkbook.Sheets("Plan2") For r = 2 To .Cells(Rows.Count, 1).End(xlUp).Row List = List & Delimiter & .Cells(r, 1) Next End With List = Split(Mid(List, Len(Delimiter) + 1), Delimiter) ThisWorkbook.Sheets("Razao").Range("A:L").AutoFilter 2, List, 7 End Sub Anexo a sua planilha com essa macro e alguns valores como exemplo. 6 - Ajuste do Razão por Centro de Custo Analitico.zip

A macro irá checar todas as combinações até a última linha preenchida, ou seja, você pode gerar mais combinações que ela vai continuar funcionando.

Eu editei o post anterior

@Nataniel Maturana Anexei o arquivo o errado, agora deve estar OK.

Olá Nataniel, Veja se agora atende sua necessidade. Cartelas Bingo Igreja V2.zip

@texwil você está satisfeito porque encontrou outra solução? Se sim compartilhe com outras pessoas que tenham a mesma necessidade. Minha sugestão: =SOMA(DESLOC($BI1;0;1;1;6)) A partir da célula BI1 + 1 coluna (BJ1), soma-se as próximas 6 colunas para a direita (BJ1:BO1).

Alternativa: Sub CopiarColarF() Sheets("A").Range("F2:F360").Copy Sheets("A").Range("AW2:AW360").PasteSpecial xlPasteValues End Sub