Ir ao conteúdo
  • Cadastre-se

maiconph

Membros Juniores
  • Total de itens

    16
  • Registro em

  • Última visita

  • Qualificações

    0%

Reputação

0

Sobre maiconph

  • Data de Nascimento 25/03/1986 (33 anos)

Informações gerais

  • Cidade e Estado
    Criciuma,SC
  1. 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.
  2. @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....
  3. 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
  4. Eu devo ter feito errado alguma coisa porque aqui comigo nao aconteceu nada
  5. 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?
  6. 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
  7. 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!!!!
  8. 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
  9. 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
  10. 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
  11. 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
  12. È 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
  13. eh exatamente isso que eu quero em termos, mas seria para pegar o conteudo da celula e copiar para a nova celula tem como?
  14. 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?
  15. Olá a todos, gostaria que alguém pudesse me dizer ond está o meu erro quero parar esse looping quando clicar no button2 mais não consigo entender como fazer????????? While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit case $Button1 local $clickE $clickE = MouseClick("left") while $clickE $clickE = MouseClick("left") Switch $Button2 case $Button2 if $Button2 = $Button1 Then ExitLoop EndIf EndSwitch wend EndSwitch wend

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

GRÁTIS: minicurso “Como ganhar dinheiro montando computadores”

Gabriel TorresGabriel Torres, fundador e editor executivo do Clube do Hardware, acaba de lançar um minicurso totalmente gratuito: "Como ganhar dinheiro montando computadores".

Você aprenderá sobre o quanto pode ganhar, como cobrar, como lidar com a concorrência, como se tornar um profissional altamente qualificado e muito mais!

Inscreva-se agora!