Moderatori: Anthony47, Flash30005
'AGGIORNA Origine Dati per TabellaPivot:
pvtsh = "Foglio16"
datash = "Foglio14"
nwrange = datash & "!" & Sheets(datash).Range("A1:M1").Resize(ultima_riga_casa).Address(ReferenceStyle:=xlR1C1)
Sheets(pvtsh).PivotTables(1).ChangePivotCache _
ThisWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=nwrange)
'Aggiorna Pivot
Sheets(pvtsh).PivotTables(1).PivotCache.Refresh
Sub solocellevisibilifiltrateDUE()
Application.ScreenUpdating = False
''INUTILI:
'' Sheets("Foglio14").Select
'' Range("a1:k2000").Select
'' Selection.ClearContents
Sheets("OrdiniVendita").Select
Rows("1:1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$K$2000").AutoFilter Field:=5, Criteria1:="<>*fr*"
''Approccio diverso:
'' Range("A1").Select
'' Range(Selection, Selection.End(xlDown)).Select
'' Range(Selection, Selection.End(xlToRight)).Select
'' Selection.SpecialCells(xlCellTypeVisible).Select
Range("A:K").Select
Selection.Copy
Sheets("Foglio14").Select
''Per impostare l'origine dell'Incolla:
Range("A1").Select
ActiveSheet.Paste
Cells.Select
Cells.EntireColumn.AutoFit
Rows("1:1").Select
Selection.AutoFilter
Range("F11").Select
'' AREE PROBABILMENTE PARZIALI:
'' ActiveSheet.Range("$A$1:$M$381").AutoFilter Field:=6
'' ActiveSheet.Range("$A$1:$M$381").AutoFilter Field:=6, Criteria1:="*can*"
'' ActiveSheet.Range("$A$1:$M$381").AutoFilter Field:=6, Criteria1:="*cav*"
ActiveSheet.Range("$A$1:$M$2000").AutoFilter Field:=6
ActiveSheet.Range("$A$1:$M$2000").AutoFilter Field:=6, Criteria1:="*can*"
ActiveSheet.Range("$A$1:$M$2000").AutoFilter Field:=6, Criteria1:="*cav*"
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.EntireRow.Delete
''idem:
'' ActiveSheet.Range("$A$1:$M$259").AutoFilter Field:=6, Criteria1:="*che*"
ActiveSheet.Range("$A$1:$M$2000").AutoFilter Field:=6, Criteria1:="*che*"
''PERCHE' DA a6??
'' Range("A6").Select
'' Range(Selection, Selection.End(xlToRight)).Select
Range(Range("A2"), Range("A2").End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.EntireRow.Delete
Rows("1:1").Select
Selection.AutoFilter
Dim I As Long, J As Long, mySplit, xPos
Range("j:k").Clear
For I = 2 To Cells(Rows.Count, 1).End(xlUp).Row
mySplit = Split(Replace(Cells(I, "F").Value & " A E", ".", ",", , , vbTextCompare), " ", , vbTextCompare)
For J = 0 To UBound(mySplit)
xPos = InStr(1, mySplit(J), "x", vbTextCompare)
If xPos > 0 Then
'' ROUND SU VALORI single SI COMPORTA MALE!
'' Cells(I, "j").Value = Round(CSng(Left(mySplit(J), xPos - 1)), 3)
'' Cells(I, "k").Value = Round(CSng(Mid(mySplit(J), xPos + 1)), 3)
Cells(I, "j").Value = Round(CDbl(Left(mySplit(J), xPos - 1)), 3)
Cells(I, "k").Value = Round(CDbl(Mid(mySplit(J), xPos + 1)), 4)
Exit For
End If
Next J
Next I
Cells(1, 10) = "no1"
Cells(1, 11) = "no2"
ultima_riga_casa = Sheets("Foglio14").Range("A" & Rows.Count).End(xlUp).Row
''INULTILE:
''andrea = 2
For andrea = 2 To ultima_riga_casa
Cells(andrea, 12) = Round(Cells(andrea, 10), 3)
Cells(andrea, 13) = Round(Cells(andrea, 11), 4)
Next andrea
Sheets("OrdiniVendita").Select
Rows("1:1").Select
Selection.AutoFilter
Sheets("Foglio14").Select
Cells(1, 1).Select
Application.ScreenUpdating = True
'AGGIORNA Origine Dati per TabellaPivot:
pvtsh = "Foglio16"
datash = "Foglio14"
nwrange = datash & "!" & Sheets(datash).Range("A1:M1").Resize(ultima_riga_casa).Address(ReferenceStyle:=xlR1C1)
Sheets(pvtsh).PivotTables(1).ChangePivotCache _
ThisWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=nwrange)
'Aggiorna Pivot
Sheets(pvtsh).PivotTables(1).PivotCache.Refresh
End Sub
Torna a Applicazioni Office Windows
Inserire dati filtrati da 2 file ad un terzo file Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 14 |
Perchè l'importazione dati con Selenium non fuziona? Autore: aggittoriu |
Forum: Applicazioni Office Windows Risposte: 7 |
copia di dati da un file chiuso e elaborazione Autore: luca62 |
Forum: Applicazioni Office Windows Risposte: 2 |
Visitano il forum: raimea e 20 ospiti