1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

Macro em Excel

Discussão em 'Programação' iniciada por Tauri, 30 de Janeiro de 2008. (Respostas: 1; Visualizações: 1064)

  1. Tauri

    Tauri Power Member

    Boas,

    Gostava que me ajudassem com um problema.

    Eu quero fazer uma macro em excel....

    Eu tenho um botao e queria que ao carregar nesse botao que apagasse o conteudo de 1 ou varias cells
    .
    Ex. (apagar o coteudo da cell A, 13)
    Ex. (apagar o conteudo da cell A, 13 e B, 13)
    como e que eu faco isso?

    Obrigado
     
  2. slowman

    slowman Power Member

    Tauros, pelo que entendi no teu post acho que consegues criar um Form com um botão no excel.

    O que tens que fazer é o seguinte:

    . No evento click desse botão criar o código para pagar a célula. (Para ires de uma maneira rápida para esse evento clica duas veze sno botão).

    Bom para dar uma ajuda deixo aqui o código que após clicares no botão chama uma mensagem para meteres a célula a apagar. Deves meter a celula tipo (Linha, Coluna), mas deves meter na coluna um n.º e não uma letra. Por exempli linha 1 coluna A deverá ser: 1,1 ( sem parenteses nem espaços). Pr exemplo Linha 15, coluna F, deverá ser: 15,6.

    Código:

    Private Sub CommandButton1_Click()
    Dim CelltoDelete As String
    Dim tmp_array() As String

    CelltoDelete = InputBox("Cell to delete, ex: 13(Linha),1(n.º da colna correspondente, neste caso ao A)")

    If Not CelltoDelete = "" Then
    tmp_array = Split(CelltoDelete, ",")
    Worksheets(1).Cells(CInt(tmp_array(0)), CInt(tmp_array(1))).Value = ""

    Else
    MsgBox ("no value gave!")
    End If

    End Sub


    Espero ter ajudado.

    Cumps.
     

Partilhar esta Página