non riesco ad inserire la possibilita' di inserire l filtro di dati in piu' colonne tramite questa macro.
Vorrei come in questo caso che la colonna g mi filtrasse la stringa "differenza" insieme alla colonna b con la stringa "TA"
Grazie Mille come sempre
Codice: Seleziona tutto
Sub Check_DIFF
Sheet3 = ThisComponent.Sheets(3)
If oDialogo2.getControl("CheckBox6").state = 1 Then
Dim oFields(0) As New com.sun.star.sheet.TableFilterField
oRange = Sheet3.getCellRangeByName("A1:G3000")
oFilterDesc = oRange.createFilterDescriptor(true)
With oFields(0)
.Field = 6 ' colonna G, la numerazione parte da zero
.IsNumeric = False ' Use a string, not a number.
.StringValue = ".*DIFFERENZA.*"
.Operator = com.sun.star.sheet.FilterOperator.EQUAL
End With
With oFilterDesc
.UseRegularExpressions = True
.ContainsHeader = FALSE
.setFilterFields(oFields())
End With
oRange.filter(oFilterDesc)
End If
End Sub