Notifications
Clear all

Aba.Cells.Select da erro de Range

6 Posts
4 Usuários
0 Reactions
1,708 Visualizações
(@hfava)
Posts: 43
Eminent Member
Topic starter
 

Bom dia pessoal,
Primeiro queria agradecer a todos pela oportunidade de poder ajudar aqui no forum, mesmo que com pouco conhecimento :)

Estou montando um arquivo novo (está basicamente em branco), e preciso copiar os itens de uma aba para outra (XMLdb para RelGrl).
Já fiz a busca da coluna e está tudo certinho,
Quando eu vou fazer o select (jeito simples para teste, estou usando destination) do range a ser copiado, está dando erro de Range :(

Alguem sabe explicar? É a ultima linha!

Outra coisa, eu escrevi um outro tópico aqui, e comentaram para não usar function para nomear as worksheetss. Como eu faço então para nomear somente uma vez por módulo, para diversas subs?

Muito obrigado de antemão!

HFava

Public Property Get XMLdb() As Worksheet
    Set XMLdb = Worksheets("XMLDatabase")
    'Nomear aba publica
End Property
Public Property Get RelGrl() As Worksheet
    Set RelGrl = Worksheets("RelatorioGeral")
    'Nomear aba publica
End Property
Public Property Get RSKUs() As Worksheet
    Set RSKUs = Worksheets("Reg.SKUs")
    'Nomear aba publica
End Property
Public Property Get Orca() As Worksheet
    Set Orca = Worksheets("Orcamento")
    'Nomear aba publica
End Property
Sub AtuItemRelGrl()

Dim CNPJ As Object, BnNF, BCFOP, BCodRed, BDescr, BuCom, BDtEm As Object
    Set CNPJ = RelGrl.Range("C5")
With XMLdb.Rows(1)
    Set BnNF = .Find("ns1:nNF", LookIn:=xlValues) 'aqui eu crio a referencia para encontrar o endereco
    Set BCFOP = .Find("ns1:CFOP", LookIn:=xlValues)
    Set BCodRed = .Find("Cod. Reduzido", LookIn:=xlValues)
    Set BuCom = .Find("ns1:uCom", LookIn:=xlValues)
    Set BDtEm = .Find("Data Emissao", LookIn:=xlValues)
End With

    CnNF = BnNF.Column
    CCFOP = BCFOP.Column
    CCodRed = BCodRed.Column
    CuCom = BuCom.Column
    CDtEm = BDtEm.Column

    XMLdb.AutoFilterMode = False
    XMLdb.Rows(1).AutoFilter field:=26, Criteria1:=CNPJ

    uLinXMLdb1 = XMLdb.Columns(1).End(xlDown).Row



    XMLdb.Cells(1, 1).Select   '''''Aqui está o erro


End Sub
 
Postado : 03/05/2017 8:28 am
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

HFava,

Bom dia!

Disponibilize seu arquivo (compactado com . ZIP) ou um exemplo com dados fictícios, porém, com o layout exatamente igual ao seu arquivo original.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 03/05/2017 8:41 am
EdsonBR
(@edsonbr)
Posts: 1057
Noble Member
 

HFava, bom dia

Vou tentar no chute, pois sem ver a pasta fica difícil...

Qual planilha está ativa ao chegar nessa parte de erro? Lembre-se que para usar o método Select, a planilha XMLdb teria que estar ativa, então experimente ativá-la antes.

 
Postado : 03/05/2017 8:42 am
(@hfava)
Posts: 43
Eminent Member
Topic starter
 

Cara,

Segue o xls, mas é isso que eu posso passar, não vejo muita diferença!

 
Postado : 03/05/2017 12:39 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Experimente
With XMLdb
.Cells(1, 1).Select
end with

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 03/05/2017 12:59 pm
(@hfava)
Posts: 43
Eminent Member
Topic starter
 

boa, a ideia,

mas oq eu queria mesmo era:
xmldb.range(xmldb.cells(1,1)).Copy destination:=Relgrl.range("C1")

 
Postado : 03/05/2017 1:10 pm