maiconph

No evento CelllContentClick do seu datagrid insira o seguinte código

nomedoseuDataGridView.Rows.RemoveAt(nomedoseuDataGridView.CurrentRow.Index)

Bom dia a todos.

Tenho um datagridview com 4 colunas

valor

unidades

subtotal 

excluir

esta ultima do tipo button column

gostaria de saber como faço pra por ação delete nessa ultima coluna.

Desde já obrigado

@Léo_Dias show... mas ainda sim não seria viavel a uma plataforma android e eu nao consegui encaixar a macro no botao que cria a aba nova....

olá, bom dia a todos!
tenho uma planilha com varias informações recebidas de outras planilhas e banco de dados, gostaria de saber se existe a possibilidade de fazer com que um botão tire um "print"(seria apenas uma copia dos valores da célula) para uma nova aba esta que também seria criada após apertar esse mesmo botão.

como vou usar usar essa pasta de trabalho em um android também teria como fazer a mesma coisa com uma função "se" pois android não roda macro.

vou deixar um pequeno exemplo em anexo da planilha pra me ajudar na explicação.

obrigado desde já.

pasta1.xlsx

2 horas atrás, osvaldomp disse:

Segue uma ideia.

 

1. instale uma cópia do código abaixo no módulo da Planilha2

Private Sub Worksheet_Calculate()
 Cells(1, [A5] + 2) = [B1]
End Sub

2. em qualquer célula vazia da Planilha2 coloque ~~~> =A5

Eu devo ter feito errado alguma coisa

porque aqui comigo nao aconteceu nada

Acho que nao expliquei direito mesmo, vamos lá!

As 15 horas o resultado da celula A1 será 23 quero que esse resultado fique registrado na celula C1 e depois as 17 horas poderá ser outro resultado e ela tera que ser registrada em D1 sem que o resultado de C1 altere.

Seria possivel?

Boa tarde.

Na celula A1 tenho a soma de A2 e A3.

Na planilha2 eu tenho a celula B1 que me mostra o resultado de A1 da planilha1 e mais tres "botao de opção"
Então eu gostaria que na celula C1, D1 e E1 me mostrasse o resultado da celula B1 a cada bpotao de opcao selecionado.

o botao 1 das 15:00 o 2 das 17:00 e o 3 das 19:00 horas, mas que cada um deles me mostrasse o resultado conforme a hora por exemplo o resultado das 15:00 foi 20 o das 19:00 30.... vou disponibilar o exemplo obrigado pela atenção desde ja

Pasta2.xlsx

Muito Obrigado ,eu nunca notei que as planilhas continuavam sempre com o nome "Planilha" pensei que mudavam conforme o titulo dado a elas me ajudou muito, mais uma coisa e se eu quiser copiar de varias celulas por exemplo alem da a4 tambem da a10 a15....desculpa por insistir no erro kkkkkkkk obrigado!!!!

6 minutos atrás, osvaldomp disse:

 

O erro que você relatou ocorre porque eu coloquei no comando que eu sugeri o nome da planilha como Plan1 e no seu arquivo o nome da planilha é Planilha1. É este nome que você precisa colocar no comando para não provocar o erro.

 

Esse nome de Planilha1 não é sempre o mesmo ? Esse nome pode mudar ?

Não o nome da planilha muda de acordo com a celula A1 que recebe um nome de acordo com o produto selecionado no estoque que vem de outra planilha

o nome da planilha gerada seria determinada pela celula a1 na minha planilha de exemplo e na minha original esse nome ja vem determinado por um banco de dados de outra planilha gostaria que ao mesmo tempo que a macro criasse a nova guia com o nome da celula a1 tambem ja pegasse os dados da celula a4  e trasnferisse para a nova planilha na celula a10 

ESSA É A MACRO DO BOTÃO
Sub Nova_Guia()
 Dim nova_aba As Worksheet
    Dim nome_aba As Variant
      
   nome_aba = [A1]
    
        For Each nova_aba In Worksheets
            If nova_aba.Name = nome_aba Then
                    nova_aba.Activate
                Exit Sub
       
            End If
        Next
    
        x = MsgBox("Deseja criar uma nova aba?", vbYesNo)
    
    If x = 6 Then
                Sheets.Add After:=Sheets(Sheets.Count)
                ActiveSheet.Name = nome_aba
            Exit Sub
            
    End If
End Sub

NO CASO AGORA EU GOSTARIA DE PEGAR O RESULTADO DA CELULA "A4" E FAZER COM QUE NA NOVA GUIA CRIADA PELA MACRO DO BOTÃO  "CRIAR ABA" MOSTRASSE NA CELULA "A10" POR EXEMPLO.

TESTE.xlsx

Retornou um erro 

Erro em tempo de execução "9"
Subscrito fora do intervalo.

Sub testar()
 Dim nova_aba As Worksheet
    Dim nome_aba As Variant
      
   nome_aba = [H3]
    
        For Each nova_aba In Worksheets
            If nova_aba.Name = nome_aba Then
                    nova_aba.Activate
                Exit Sub
       
            End If
        Next
    
        x = MsgBox("Deseja criar uma nova aba?", vbYesNo)
    
    If x = 6 Then
                Sheets.Add After:=Sheets(Sheets.Count)
                ActiveSheet.Name = nome_aba
                 [A4] = Sheets("Plan1").[A1]
            Exit Sub

           
        Else
            Range("H3").Activate
                 
    
  
    End If
End Sub

È exatamente isso porém o botao ira criar uma nova aba com base em uma celula que dara o nome a aba como aço nessa parte

Sub Botão120_PRINT()
 Dim nova_aba As Worksheet
    Dim nome_aba As Variant
      
   nome_aba = [H3]
    
        For Each nova_aba In Worksheets
            If nova_aba.Name = nome_aba Then
                    nova_aba.Activate
                Exit Sub
       
            End If
        Next
    
        x = MsgBox("Deseja criar uma nova aba?", vbYesNo)
    
    If x = 6 Then
                Sheets.Add After:=Sheets(Sheets.Count)
                ActiveSheet.Name = nome_aba
            Exit Sub
  [A4] = Sheets("Plan1").[A1]
           
        Else
            Range("H3").Activate
                 
    
  
    End If
End Sub

eh exatamente isso que eu quero em termos, mas seria para pegar o conteudo da celula e copiar para a nova celula tem como?

boa noite a todos gostaria de ajuda para criar uma macro que fizesse o seguinte:
na aba plan1 existe um botão que cria uma nova guia plan2, na aba plan1 existe a celula a1 que tem a seguinte formula;
 

=a2+a3

gostaria que o botao que cria a aba automaticamente copiasse essa celula para a aba plan2 na celula a4 tambem.
isso seria possivel?