Gustavo Viana

Cara ficou muito bom! Obrigado mesmo!!!

Boa tarde pessoal, Bom, eu preciso fazer uma planilha para meu TCC, onde vou precisar ficar contando carros. Eu criei botões, onde eu clico e ele automaticamente ia soma uma unidade na célula. Mas o grande problema é que eu preciso fazer isso a cada 15 minutos. Então preciso criar um botão para mudar de período, e o botão contar na linha do período atual. Abaixo tem a imagem da planilha que ficará mais fácil de visualizar: No caso, eu contei os carro de 7:00 as 7:15, então preciso clicar no botão "Próximo Período" e a partir dos botões para cada tipo de veículo, continuar contando os carros. O que eu fiz até agora foi isso: Sub Contagem_VL() Range("D10").Value = Range("D10").Value + 1 End Sub Sub Contagem_MO() Range("E10").Value = Range("E10").Value + 1 End Sub Sub Contagem_Ca() Range("G10").Value = Range("G10").Value + 1 End Sub Sub O() Range("F10").Value = Range("F10").Value + 1 End Sub Abraços!

Então, eu consegui fazer isso que eu estava falando, agora eu preciso fazer com que apareça o ano nas células mescladas. até o momento o código está assim: Sub Investimento() mes1 = InputBox("Insira o Mês do Primeiro Investimento: ") Range("C4").Value = mes1 ano1 = InputBox("Insira o Ano do Primeiro Investimento: ") Range("D4").Value = ano1 mes2 = InputBox("Insira o Mês do Último Investimento: ") Range("C5").Value = mes2 ano2 = InputBox("Insira o ano do Último Investimento: ") Range("D5").Value = ano2 Primeiro = Range("D4").Value Ultimo = Range("D5").Value anos = Ultimo - Primeiro For i = 1 To anos + 1 ActiveCell.Range("A1:L1").Select With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Selection.Merge ActiveCell.Offset(1, 0).Range("A1").Select ActiveCell.FormulaR1C1 = "Jan" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.FormulaR1C1 = "Fev" ActiveCell.Offset(0, -1).Range("A1:B1").Select Selection.AutoFill Destination:=ActiveCell.Range("A1:L1"), Type:= _ xlFillDefault ActiveCell.Range("A1:L1").Select ActiveCell.Offset(-1, 0).Range("A1:L3").Select Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone With Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlEdgeRight) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlInsideVertical) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlInsideHorizontal) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With ActiveCell.Offset(3, 0).Range("A1").Select Next End Sub Obrigado

Bom dia pessoal, Quero automatizar uma tabela para investimentos, onde eu entro com o primeiro ano de investimentos e com o último, e ele gera uma tabela parecida com essa, gostaria de saber se alguém sabe como ou tem um código parecido no vba Abraços