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

Olá bom dia todos. Tenho uma datagridview com 3 colunas Valor Unidade Subtotal gostaria de multiplicar a coluna valor pela unidade, mas como não entendo praticamente nada em vb pois estou começando agora, não consegui nem tem logica pra tentar pelo menos algo.Minha tabela foi criada pelo modo design. Alguém pode me dar uma luz ou indicar algum artigo pra eu ler q eu possa entender? 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

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!!!!

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?