Este fórum está sendo desativado

[AnaGalveias]

Bom dia,

Preciso de uma ajuda, para criar uma folha excel em que cada vez que clico num botão me aparece o número 1 numa célula abaixo.
Apenas consigo fazer para uma célula.

Obrigada desde já pela ajuda que me possam dar.

[JCabral]

Tente assim para começar na Coluna A e na linha 1:

Código: Selecionar todos

Sub Aparece_UM()

    Dim Ws     As Worksheet
    Dim lRow   As Long

    Set Ws = Worksheets("Folha1")
    
    lRow = Ws.Cells(Rows.Count, 1).End(xlUp).Row + 1
    If Ws.Cells(lRow - 1, 1) = "" Then
        Ws.Cells(lRow - 1, 1) = 1
    Else
        Ws.Cells(lRow, 1) = 1
    End If
    Set Ws = Nothing
End Sub

Ou assim para começar na coluna A e na linha 2:

Código: Selecionar todos

Sub Aparece_UM()

    Dim Ws     As Worksheet
    Dim lRow   As Long

    Set Ws = Worksheets("Folha1")
    
    lRow = Ws.Cells(Rows.Count, 1).End(xlUp).Row + 1
     Ws.Cells(lRow, 1) = 1

    Set Ws = Nothing
End Sub

[AnaGalveias]

Boa , consegui obrigada.
Só mais uma ajuda, se eu quiser adicionar a data cada vez que clicamos é possível?

[JCabral]

Ana, é possível.
Onde quer adicionar?
Em vez do "1"; Em outra coluna (Qual?)?; É a data de hoje(quando clico)?

[DJunqueira]

Se vc digitar Ctrl + ; vc obterá a data de hj na célula.
Se vc selecionar várias células, digitar qq número, depois teclar Ctrl + Enter todas as células terão o mesmo valor.

[AnaGalveias]

@JCabral,

Quero que apareça na coluna ao lado do 1.

Obrigada desde já.

[JCabral]

Tente assim:

Código: Selecionar todos

Sub Aparece_UM_and_Date()

    Dim Ws     As Worksheet
    Dim lRow   As Long

    Set Ws = Worksheets("Folha1")
    
    lRow = Ws.Cells(Rows.Count, 1).End(xlUp).Row + 1
    If Ws.Cells(lRow - 1, 1) = "" Then
        Ws.Cells(lRow - 1, 1) = 1
        Ws.Cells(lRow - 1, 1).Offset(, 1) = Date
    Else
        Ws.Cells(lRow, 1) = 1
        Ws.Cells(lRow, 1).Offset(, 1) = Date
    End If
    Set Ws = Nothing
End Sub

Fica a inserir a data do dia

[AnaGalveias]

@JCabral,
Muito obrigada pela ajuda, resultou.