Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
PROBLEMA COM MACRO....
 
Notifications
Clear all

PROBLEMA COM MACRO. COPIA DE CELULA VAZIA

 
2024 - VBA & Macros
Post Recente por thiagobj8 12 anos atrás
3 Posts
2 Usuários
0 Reactions
1,071 Visualizações
RSS
 thiagobj8
(@thiagobj8)
Posts: 9
Active Member
Topic starter
 

BOM DIA PESSOAL,

ESTOU COM UM PROBLEMINHA NUMA PLANILHA, PODE SER QUE SEJA ATÉ SIMPLES O PROBLEMA, MAS EU REALMENTE NÃO DESCOBRI COMO RESOLVER E NÃO VI NADA SEMELHANTE AQUI NO FORUM.

VAMOS LÁ.

ESTOU CRIANDO UMA PLANILHA PARA ACOMPANHAMENTO DE CORTES DE UMA FÁBRICA DE CONFECÇÃO, E NA PRIMEIRA ABA EU ESTOU FAZENDO UM CAMPO PARA INSERIR OS DADOS COM OS COMANDOS DO CORTE. NESSA ABA TENHO UM BOTÃO COM UMA MACRO QUE COPIA OS DADOS DESSA ABA E COPIA VALORES NA ABA "BASE". O PROBLEMA É, NEM SEMPRE TODAS AS LINHAS SÃO PREENCHIDAS E A MACRO COPIA AS CELULAS VAZIAS E ENVIA PARA A BASE COMO SE FOSSEM CELULAS PREENCHIDAS, QUANDO EU VOU INSERIR OUTRO COMANDO DE CORTE A MACRO FICA PULANDO VÁRIAS LINHAS DA ABA "BASE", E ASSIM ELA FICARIA MUITO EXTENSA E CONFUSA. GOSTARIA DA AJUDA DOS AMIGOS PARA RESOLVER O PROBLEMA, OU DICAS DE COMO RESOLVER ESSE PROBLEMA DE OUTRA FORMA.

MUITO OBRIGADO!!

 
Postado : 03/10/2012 6:25 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Experimenta assim

Sub GRAVARCOMANDO()
Xy = Application.WorksheetFunction.CountA(Range("H12:H22"))
Range("E12:M" & 11 + Xy).Select
Selection.Copy
Sheets("BASE").Select
tp = Cells(Cells.Rows.Count, "A").End(xlUp).Row
Range("A" & tp + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Sheets("INCLUSÃO DE TAREFA").Select
Range("H12:M22,I9:L9,I7,I5:J5").Select
Selection.ClearContents
End Sub
 
Postado : 03/10/2012 7:15 am
 thiagobj8
(@thiagobj8)
Posts: 9
Active Member
Topic starter
 

Eu percebi que estava faltando uma linha na Macro e consegui fazer a alteração.

O código ficou assim agora, só que alem de copiar pra base ele faz outras coisas tbm:

Sub CONCLUIRADM()
'
' CONCLUIRADM Macro
'

Range("H12:P22").Select
Selection.Copy
Sheets("BASE").Select
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J3").Select
Range(Selection, Selection.End(xlToRight)).Select
Application.CutCopyMode = False
Selection.Copy
Selection.End(xlToLeft).Select
Selection.End(xlDown).Select
Selection.End(xlToRight).Select
ActiveCell.Offset(0, 1).Select
Range(Selection, Selection.End(xlUp)).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Sheets("NOVATAREFAADM").Select
Range("H12:M22").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("I9:L9").Select
Selection.ClearContents
Range("I7").Select
Selection.ClearContents
Range("I5:J5").Select
Selection.ClearContents
End Sub

Valeu!!!!

 
Postado : 07/10/2012 1:52 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico