grazie di nuovo per la risposta iper veloce ed efficace, se riesci a risolvermi questi due problemi, non disturbo più. forse
1 problema, quando scarico i dati mi da i valori nelle celle A4, B4, C4 in valore doppio, a me servirebbero in valore singolo, no ad es 4%4%. Quindi,non essendo un grande esperto di vba, col registratore ho provato a cambiarli in questo modo:
- Codice: Seleziona tutto
Sub CORREGGIPERC()
'
' CORREGGIPERC Macro
'
'
Range("A4").Select
ActiveCell.FormulaR1C1 = "94%"
Range("B4").Select
ActiveCell.FormulaR1C1 = "0%"
Range("C4").Select
ActiveCell.FormulaR1C1 = "6%"
Range("A10").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "93%"
Range("B10").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "4%"
Range("C10").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "4%"
Range("A16").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "94%"
Range("B16").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "5%"
Range("C16").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "1%"
Range("A22").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "5%"
Range("B22").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "2%"
Range("C22").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "94%"
Range("A28").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "57%"
Range("B28").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "17%"
Range("C28").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "27%"
Range("A34").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "" & Chr(10) & "" & Chr(13) & "94%"
Range("B34").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "" & Chr(10) & "" & Chr(13) & "3%"
Range("C34").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "" & Chr(10) & "" & Chr(13) & "" & Chr(10) & "" & Chr(13) & "2%"
Range("B34").Select
ActiveWindow.SmallScroll Down:=12
Range("A40").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "43%"
Range("B40").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "25%"
Range("C40").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "32%"
Range("A46").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "14%"
Range("B46").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "11%"
Range("C46").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "75%"
Range("A52").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "6%"
Range("B52").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "3%"
Range("C52").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "90%"
Range("A58").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "" & Chr(13) & "98%"
Range("B58").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "" & Chr(13) & "1%"
Range("C58").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "" & Chr(13) & "1%"
Range("A64").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "89%"
Range("B64").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "4%"
Range("C64").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "6%"
Range("A70").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "" & Chr(13) & "86%"
Range("B70").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "" & Chr(10) & "" & Chr(13) & "5%"
Range("B70").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "" & Chr(13) & "5%"
Range("C70").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "9%"
Range("A76").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "97%"
Range("B76").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "1%"
Range("C76").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "2%"
Range("A82").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "16%"
Range("B82").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "14%"
Range("C82").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "70%"
Range("A88").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "87%"
Range("B88").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "2%"
Range("C88").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "11%"
Range("A94").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "3%"
Range("B94").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "97%"
Range("A100").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "97%"
Range("B100").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "3%"
Range("A106").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "91%"
Range("B106").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "4%"
Range("C106").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "6%"
Range("A112").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "86%"
Range("B112").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "3%"
Range("C112").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "11%"
Range("A118").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "" & Chr(13) & "79%"
Range("B118").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "" & Chr(13) & "13%"
Range("C118").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "" & Chr(13) & "8%"
Range("A124").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "92%"
Range("B124").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "4%"
Range("C124").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "4%"
Range("A130").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "93%" & Chr(13) & "" & Chr(10) & "" & Chr(13) & ""
Range("B130").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "" & Chr(10) & "" & Chr(13) & "" & Chr(10) & "" & Chr(13) & "" & Chr(10) & "1%" & Chr(13) & "" & Chr(10) & "" & Chr(13) & "" & Chr(10) & "1%"
Range("B130").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "1%"
Range("A130").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "93%" & Chr(13) & ""
Range("C130").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "6%"
Range("A136").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "9%"
Range("B136").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "2%"
Range("C136").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "89%"
Range("A142").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "5%"
Range("B142").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "5%"
Range("C142").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "" & Chr(13) & "90%"
Range("A148").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "" & Chr(13) & "14%"
Range("B148").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "" & Chr(13) & "0%"
Range("C148").Select
ActiveCell.FormulaR1C1 = "" & Chr(13) & "" & Chr(13) & "86%"
Range("A151").Select
ActiveWindow.SmallScroll Down:=-159
Range("A151:I186").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-21
End Sub
,ma è una gran caxata,perche quando scarico i nuovi dati e correggo con questa macro, mi inserisce le vecchie perc.
quesito 2
è possibile scaricare anche i dati che spuntano a tendina sul sito, quando mi avvicino alle percentuali
https://www.dropbox.com/home?preview=Immagine.png