Ir ao conteúdo
  • Cadastre-se

Mika Ferr

Membro Júnior
  • Posts

    6
  • Cadastrado em

  • Última visita

posts postados por Mika Ferr

  1. Valeu osvaldomp, pela disposição mas acho melhor eu ira aos poucos com a ajuda do VBA, senão este tópico ia se alongar muito. Obrigado por resolver meu problema e a galera que se disponibilizou para ajudar. Peguei muitas mandadas e conseguir entender o funcionamento de alguns códigos, através de videos no you tube. até porque quando falei formula me expressei mal. quis dizer entender o que faz cada funçao de cada código. logo aprendo.

  2. Private Sub btnexcluir_Click()  Dim LR As Long, k As Long, resposta As Variant    With Sheets("Plan2")      LR = .Cells(Rows.Count, 1).End(xlUp).Row      For k = LR To 2 Step -1        If .Cells(k, 1) = txtnome.Text Then         resposta = MsgBox("Deseja excluir cliente " & UCase(.Cells(k, 1)) & "?", 3, "Excluir Cliente")          If resposta = vbYes Then            .Rows(k).Delete          End If        End If      Next k    End WithEnd Sub

    Deu certo.. funcionou perfeitamente, Obrigado aos amigos que ajudaram, osvaldomp e basole, e toda galera do fórum..acho que vão enjoar de me ver por aqui. kkk.

     

    só gostaria de entender a fórmula, é que estou começando em Vba e alguma formulas consigo entender, outras somente copiar, mas vou tentando decifrar aos poucos.

  3. Olá pessoal, boa noite, estou me matando aqui para tentar excluir uma linha de um banco de dados através de um formulário está tudo funcionando perfeitamente. menos esse detalhe,  como posso dentro do código abaixo indicar para o botão que tudo isso tem que acontecer na "plan3" , fiz várias pesquisar e tentativas e até agora nada deu certo. peço a ajuda dos amigos. obrigado.

     

    Private Sub btnexcluir_Click()
    Range("a2").Select
     
    For cont = 1 To 1000
    If ActiveCell = txtnome.Text Then
    resposta = MsgBox("Deseja excluir cliente?", 3, "Excluir Cliente")
     
    End If
     
    If resposta = vbYes Then
    ActiveCell.EntireRow.Delete
     
    End If
     
    ActiveCell.Offset(1, 0).Activate
    Next
    Range("A2").Select
     
    End Sub

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades 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...

Ebook grátis: Aprenda a ler resistores e capacitores!

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!