Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Mesclar
 
Notifications
Clear all

Mesclar

 
2024 - VBA & Macros
4 Posts
2 Usuários
0 Reactions
1,150 Visualizações
RSS
 souzadenilson
(@souzadenilson)
Posts: 96
Estimable Member
Topic starter
 

Preciso mesclar algumas celular e salvar o nome do label dentro da celula mesclada.
Porem quando vou salvar não consigo .
Utilizei conforme abaixo.
Sempre que lançar dados em dias diferentes ela deverá ficar acumulada
intLinha = ThisWorkbook.Worksheets("controle").Range("A500").End(xlUp).Offset(1, 0).Row
'intcoluna = ThisWorkbook.Worksheets("controle").Range("A500").End(xlUp).Offset(0, 1).Row
ThisWorkbook.Worksheets("controle").Cells(intLinha, 2) = Lbl_DataEntAcet
ThisWorkbook.Worksheets("controle").Cells(intLinha + 1, 2) = Txt_DtMovAcet
ThisWorkbook.Worksheets("controle").Cells(intLinha, 3) = Lbl_NFAcet
ThisWorkbook.Worksheets("controle").Cells(intLinha + 1, 3) = Txt_NFEntAcet
ThisWorkbook.Worksheets("controle").Cells(intLinha, 4) = Lbl_QteDeclAcet
ThisWorkbook.Worksheets("controle").Cells(intLinha + 1, 4) = Txt_QtdeNFAcet
ThisWorkbook.Worksheets("controle").Cells(intLinha, 5) = Lbl_ConvLabAcet
ThisWorkbook.Worksheets("controle").Cells(intLinha + 1, 5) = CDbl(Txt_ConvLabAcet)
ThisWorkbook.Worksheets("controle").Range("a6:a8").Selection.Merge = Lbl_MedVazao
'txt_valor = Format(txt_valor, "R$ #,##0.00") - Range("a6:a8").UnMerge

 
Postado : 17/02/2015 10:26 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Seja mais claro, o que acontece o que há de errado com seu código, poste seu arquivo modelo!!!

Att

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

 
Postado : 18/02/2015 5:18 am
 souzadenilson
(@souzadenilson)
Posts: 96
Estimable Member
Topic starter
 

Segue

 
Postado : 18/02/2015 9:22 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Troque seu trecho de código por esse:

    With ThisWorkbook.Worksheets("controle")
        intLinha = .Range("A500").End(xlUp).Offset(1, 0).Row
        'intcoluna = .Range("A500").End(xlUp).Offset(0, 1).Row
        .Cells(intLinha, 2) = Lbl_DataEntAcet
        .Cells(intLinha + 1, 2) = Txt_DtMovAcet
        .Cells(intLinha, 3) = Lbl_NFAcet
        .Cells(intLinha + 1, 3) = Txt_NFEntAcet
        .Cells(intLinha, 4) = Lbl_QteDeclAcet
        .Cells(intLinha + 1, 4) = Txt_QtdeNFAcet
        .Cells(intLinha, 5) = Lbl_ConvLabAcet
        .Cells(intLinha + 1, 5) = CDbl(Txt_ConvLabAcet)
        .Range("a6:a8").Merge
        .Range("a6") = Lbl_MedVazao
    End With

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

 
Postado : 22/02/2015 2:10 am
Forum Jump:
  Tópico Anterior
Próximo Tópico