Valteson
-
Posts
21 -
Cadastrado em
-
Última visita
Tópicos solucionados
-
O post de Valteson em BOLÃO COPA 2018 - Parâmetros de acerto de placar sozinho e em conjunto. foi marcado como solução
kkk . .. não se desespere. Coloquei só mais um SE e voilà.
A planilha ficou show.
WBOLÃO DGAI - COPA DO MUNDO 2018 - VERSÃO 7.rar
-
O post de Valteson em VBA Gerador de pedidos foi marcado como solução
Criei um código usando basicamente o Do while pra encontrar a primeira linha vazia.
Segue o código e a planilha.
Sub AddPedido() ' ' Adiciona o pedido à planilha Pedido ' Dim u, v As Worksheet 'Atribue as planilhas às variáveis Set u = Worksheets("Gerador de Pedido") Set v = Worksheets("Pedido") v.Select v.Range("A4").Select If v.Range("A4") = "" Then 'Testa se a primeira linha está vazia v.Range("A4").Value = u.Range("Q2").Value v.Range("B4").Value = u.Range("AD11").Value v.Range("C4").Value = u.Range("F4").Value v.Range("D4").Value = u.Range("S6").Value v.Range("E4").Value = u.Range("AD6").Value v.Range("F4").Value = u.Range("E15").Value Else Do While ActiveCell.Value <> "" ' Procura a primeira linha vazia ActiveCell.Offset(1, 0).Activate 'Desce uma linha Loop ActiveCell.Value = u.Range("Q2").Value ActiveCell.Offset(0, 1).Activate ActiveCell.Value = u.Range("AD11").Value ActiveCell.Offset(0, 1).Activate ActiveCell.Value = u.Range("F4").Value ActiveCell.Offset(0, 1).Activate ActiveCell.Value = u.Range("S6").Value ActiveCell.Offset(0, 1).Activate ActiveCell.Value = u.Range("AD6").Value ActiveCell.Offset(0, 1).Activate ActiveCell.Value = u.Range("E15").Value ActiveCell.Offset(0, 1).Activate End If u.Select u.Range("Z17").Select End Sub
Gerador de Pedido_macro.rar
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
