Zeroton

Funcionou!! Muito obrigado!

Eu estou com problemas pro excel 2003 ler os dados eu tenho um valor 0,93 numa celula, mas na hora do VBA ler esse valor, ele so esta lendo o 0, porem se eu boto 0.93, ele le corretamente já verifiquei as configurações regionais, e elas estao corretas Aqui vai um exemplo do que eu estou programando Dim Proj(500, 500) As Double Proj(3, L) = Val(Cells(21 + L, "N").Value) alguém sabe como solucionar? :unsure:

to tentando adaptar esse codigo pra transformar uma matriz 2xN para 1xN e depois armazenar num array e devolver já em ordem decrescente, mas está dando erro no arraysize vocês podem me ajudar? Public Sub org() Dim tempVar As Integer Dim anotherIteration As Boolean Dim I As Integer Dim arraySize As Integer Dim myArray(), myArray2(), quente(), frio(), frio2() As Integer '‘——————————— '‘Get the array size. '‘——————————— I = 3 If Cells(I, "E").Value = "Quente" Then Do arraySize = J arraySize = arraySize + 1 I = I + 1 J = J + 1 Loop Until Cells(I, "E").Value = "" End If ReDim myArray(arraySize - 1) '‘————————————————————- '‘Get the values. Convert text to numbers. '‘————————————————————- For I = 0 To arraySize If Cells(I, "E").Value = "Quente" Then For J = 0 To arraySize myArray(I) = Val(Cells(3 + J, "B").Value) myArray(I + 1) = Val(Cells(3 + J, "c").Value) I = I + 2 J = J + 1 Next J End If Next I Do anotherIteration = False For I = 0 To arraySize - 2 If myArray(I) > myArray(I + 1) Then tempVar = myArray(I) myArray(I) = myArray(I + 1) myArray(I + 1) = tempVar anotherIteration = True End If Next I Loop While anotherIteration = True '‘———————————— '‘Write data to column J. '‘———————————— For I = 3 To arraySize Cells(I, "j").Value = myArray(I - 1) Next I End Sub

Valeu!!

Opa, galera, tudo bom? Eu to começando agora em vba, e tava querendo fazer umas comparações nas células Eu queria o seguinte: que depois que inicia a function, ele faça uma comparação com as colunas b e c, e na e retorne um valor eu já comecei a montar o prog ele está assim Private Sub Calcular_Click() With ActiveSheet Dim tc As String Dim I, ttc, m1 As String tc = "=count(a3:a200)" .Range("F5").Value = tc ttc = Range("f5").Value m1 = "ttc + 3" For I = 3 To m1 If Cells(I, "B").Value > Cells(I, "C").Value Then Cells(I, "E").Value = "quente" End If Next I For I = 3 To m1 Cells(I, "E").Value = "Frio" Next I End With End Sub mas sempre está retornando erro queria uma ajuda de vocês pra montar isso corretamente