Formato de Número e Valor

[Rubenaldo]

Bom dia!

Pessoal, preciso de ajudar nesse formato de carregamento.

as linha 11, 12 e 13 preciso que seja no formato de número, porem está carregando como texto o que impede de formulas, alguém consegue ajudar?

.Cells(linha, 1) = Format(Sheets(I).Cells(Lin, 1), "DD/MM/YYYY")
.Cells(linha, 2) = Sheets(I).Cells(Lin, 2)
.Cells(linha, 3) = Sheets(I).Cells(Lin, 3)
.Cells(linha, 4) = Sheets(I).Cells(Lin, 4)
.Cells(linha, 5) = Sheets(I).Cells(Lin, 5)
.Cells(linha, 6) = Sheets(I).Cells(Lin, 6)
.Cells(linha, 7) = Sheets(I).Cells(Lin, 7)
.Cells(linha, 8) = Sheets(I).Cells(Lin, 8)
.Cells(linha, 9) = Sheets(I).Cells(Lin, 9)
.Cells(linha, 10) = Sheets(I).Cells(Lin, 10)
.Cells(linha, 11) = Format(Sheets(I).Cells(Lin, 11), "#,##0.00") 
.Cells(linha, 12) = Format(Sheets(I).Cells(Lin, 12), "#,##0.00")
.Cells(linha, 13) = Format(Sheets(I).Cells(Lin, 13), "#,##0.00")
.Cells(linha, 14) = Sheets(I).Cells(Lin, 14)
.Cells(linha, 15) = Sheets(I).Cells(Lin, 15)
.Cells(linha, 16) = Sheets(I).Cells(Lin, 16)

Fico no aguardo e agradeço.

Rubenaldo

[Rhysand]

Boa tarde,

Pode usar diversas alternativas:   .Cells(linha, 11) .NumberFormat = "0.00"  ou  .Cells(linha, 11).NumberFormat = "*#.##0,00"
 

.Cells(linha, 1) = Format(Sheets(I).Cells(Lin, 1), "DD/MM/YYYY")
.Cells(linha, 2) = Sheets(I).Cells(Lin, 2)
.Cells(linha, 3) = Sheets(I).Cells(Lin, 3)
.Cells(linha, 4) = Sheets(I).Cells(Lin, 4)
.Cells(linha, 5) = Sheets(I).Cells(Lin, 5)
.Cells(linha, 6) = Sheets(I).Cells(Lin, 6)
.Cells(linha, 7) = Sheets(I).Cells(Lin, 7)
.Cells(linha, 8) = Sheets(I).Cells(Lin, 8)
.Cells(linha, 9) = Sheets(I).Cells(Lin, 9)
.Cells(linha, 10) = Sheets(I).Cells(Lin, 10)


.Cells(linha, 11) = Sheets(I).Cells(Lin, 11)

.Cells(linha, 11).NumberFormat = "*#.##0,00"


.Cells(linha, 12) = Sheets(I).Cells(Lin, 12)

.Cells(linha, 12).NumberFormat = "*#.##0,00"


.Cells(linha, 13) = Sheets(I).Cells(Lin, 13)

.Cells(linha, 13).NumberFormat = "*#.##0,00"


.Cells(linha, 14) = Sheets(I).Cells(Lin, 14)
.Cells(linha, 15) = Sheets(I).Cells(Lin, 15)
.Cells(linha, 16) = Sheets(I).Cells(Lin, 16)

🙂

[Antonio Augusto Crovador]

Estou com um problema parecido também não deu certo..

segue código

 

Plan2.Cells(I + 1, 5) = NumberFormat(ListView1.ListItems(I).ListSubItems(5), "#.##0,00")

Edited June 5, 2020 at 03:45 AM by Antonio Augusto Crovador

[Rhysand]

Bom dia,

Como não tenho todo o seu código, não consegui escrever a correcção completa, mas tente adaptar o seguinte ao seu código:

(Testado em Office 2013 e funciona) 

Dim NValue As Double
Dim xCell As Range

NValue = ListView1.ListItems(I).ListSubItems(5)

With Application.ThisWorkbook.Worksheets("Plan2")    
    '.Cells(I + 1, 5)  = ListView1.ListItems(I).ListSubItems(5)   
   .Cells(I + 1, 5)  = NValue   
    .Cells(I + 1, 5).Select  ' -> modificar esta parte se necessário para:  exemplo:    .range("A1:A20).Select
        With Selection            
            For Each xCell In Selection
                On Error Resume Next
                xCell.Value = CDec(xCell.Value) 
            Next xCell
        End With
End With

🙂

[Antonio Augusto Crovador]

Bom dia Rhysand, primeiramente obrigado pela força.

segue código inteiro abaixo...

Private Sub cmd_exportar_Click()
On Error Resume Next
Application.ScreenUpdating = False
Dim I, j As Integer
Dim Item As ListItem
Dim linha As Integer
linha = 2
cmd_salvar.Locked = True

Sheets("Relatorios").Select
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Clear

Range("A1:F1").Value = Array("CÓD", "DATA", "PRODUTOS", "PREÇO CUSTO", "PREÇO VENDA", "LUCRO")
Range("A1:F1").HorizontalAlignment = xlCenter
Range("A1:F1").Select
Selection.Font.Bold = True

With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = -4.99893185216834E-02
.PatternTintAndShade = 0
End With

'Loop as lignes
For I = 1 To ListView1.ListItems.Count
   
'Loop as colunas
For j = 1 To 1
Plan2.Cells(I + 1, 1) = ListView1.ListItems(I).ListSubItems(1).Text
Plan2.Cells(I + 1, 2) = CDate(ListView1.ListItems(I).ListSubItems(2))
Plan2.Cells(I + 1, 3) = ListView1.ListItems(I).ListSubItems(3).Text
Plan2.Cells(I + 1, 4) = CDec(ListView1.ListItems(I).ListSubItems(4))
Plan2.Cells(I + 1, 5) = CDec(ListView1.ListItems(I).ListSubItems(5))
Plan2.Cells(I + 1, 6) = CDec(ListView1.ListItems(I).ListSubItems(6))

linha = linha + 1


Sheets("RELATORIOS").Cells(linha, 1) = ""
Sheets("RELATORIOS").Cells(linha, 2) = ""
Sheets("RELATORIOS").Cells(linha, 3) = ""
Sheets("RELATORIOS").Cells(linha, 4) = CDec(RELATORIOS_PRODUTOS.lb_total2)
Sheets("RELATORIOS").Cells(linha, 5) = CDec(RELATORIOS_PRODUTOS.lb_total3)
Sheets("RELATORIOS").Cells(linha, 6) = CDec(RELATORIOS_PRODUTOS.lb_total)
        
Next j
Next I

Range("A1").Select
Selection.CurrentRegion.Select
With Selection.Font
.Name = "Thaoma"
.Size = 8
End With

Call Bordas

Columns("A:F").EntireColumn.AutoFit
       
Sheets("Principal").Select

Application.ScreenUpdating = True

MsgBox "RELATÓRIO GERADO COM SUCESSO!", 0 + vbInformation, "RELATÓRIO"

Plan2.Activate
Application.Visible = True
Unload Me
MENU_PRINCIPAL.Hide
Application.Dialogs(xlDialogPrintPreview).Show
Application.Visible = False
Plan1.Activate
MENU_PRINCIPAL.Show