Jump to content
Rubenaldo

Formato de Número e Valor

Recommended Posts

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

Share this post


Link to post
Share on other sites
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)

:)

Share this post


Link to post
Share on other sites
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 by Antonio Augusto Crovador

Share this post


Link to post
Share on other sites
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

:)

Share this post


Link to post
Share on other sites
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

 

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.