Página 1 de 1
Gestão de stocks, criar botão para ir contabilizando
Enviado: 15 Nov 2021 às 06:02
por 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.
Re: Gestão de stocks, criar botão para ir contabilizando
Enviado: 15 Nov 2021 às 07:55
por JCabral
Tente assim para começar na Coluna A e na linha 1:
Código: Selecionar todosSub 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 todosSub 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
Re: Gestão de stocks, criar botão para ir contabilizando
Enviado: 15 Nov 2021 às 14:12
por AnaGalveias
Boa , consegui obrigada.
Só mais uma ajuda, se eu quiser adicionar a data cada vez que clicamos é possível?
Re: Gestão de stocks, criar botão para ir contabilizando
Enviado: 15 Nov 2021 às 15:03
por JCabral
Ana, é possível.
Onde quer adicionar?
Em vez do "1"; Em outra coluna (Qual?)?; É a data de hoje(quando clico)?
Re: Gestão de stocks, criar botão para ir contabilizando
Enviado: 15 Nov 2021 às 18:24
por 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.
Re: Gestão de stocks, criar botão para ir contabilizando
Enviado: 16 Nov 2021 às 06:39
por AnaGalveias
@JCabral,
Quero que apareça na coluna ao lado do 1.
Obrigada desde já.
Re: Gestão de stocks, criar botão para ir contabilizando
Enviado: 16 Nov 2021 às 07:21
por JCabral
Tente assim:
Código: Selecionar todosSub 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
Re: Gestão de stocks, criar botão para ir contabilizando
Enviado: 16 Nov 2021 às 09:19
por AnaGalveias
@JCabral,
Muito obrigada pela ajuda, resultou.