Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Controlede estoque

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
FabricioFreitas



Mensagens : 2
Data de inscrição : 08/05/2015

MensagemAssunto: Controlede estoque   Sex Maio 08, 2015 2:29 am

Boa noite .

- O primeiro produto não é acrescentado na linha 2, mas sim na linha 3;
- Novos produto acrescentados são inseridas na ordem errada, são acrescentados na linha 2 ao invés de ser na linha 3 assim por diante.

Sub CadastroProduto()
'
' CadastroProduto Macro
'

'
   Range("D3,D5,D7,D9").Select
   Range("D9").Activate
   Selection.Copy
   Sheets("Produtos").Select
   Range("A2").Select
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
       :=False, Transpose:=True
   Application.CutCopyMode = False
   With Selection
       .HorizontalAlignment = xlCenter
       .VerticalAlignment = xlBottom
       .WrapText = False
       .Orientation = 0
       .AddIndent = False
       .IndentLevel = 0
       .ShrinkToFit = False
       .ReadingOrder = xlContext
       .MergeCells = False
   End With
   Range("A2:D200").Select
   ActiveWindow.LargeScroll Down:=-8
   Selection.Cut Destination:=Range("A3:D201")
   Range("A3:D201").Select
   Sheets("Cadastro").Select
   Range("D3").Select
End Sub

Desde já agradeço o apoio!!!!
Voltar ao Topo Ir em baixo
Ver perfil do usuário
 
Controlede estoque
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» [Resolvido][duvida] como fazer um estoque de balas
» [Resolvido] É possível comprar mais de 500 MB de Estoque?
» Acerto de Estoque
» Controle de estoque e vendas
» Custo Médio do Estoque

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: