ho un problema con una tua macro postata qualche annetto fà.
era collegata ad una cella,adesso la vorrei collegare ad una casella di selezione,il problema è che ogni volta che voglio attivare la macro deve andare sulla cella,ho provato a modificare qualcosa ma niente.
ti posto la macro
Private Sub Worksheet_Calculate()
If ActiveCell.Column <> 6 Then GoTo salta
If ActiveCell.Row > 2 Then GoTo salta
Application.EnableEvents = False
On Error GoTo gerr
Scomp = Range("CA1").Value
Range("CB2").Activate
ActiveSheet.Range([CB2], [CB2].End(xlToRight)).Select
Selection.Clear
ActiveCell.Value = Scomp
Range("CB2").Select
Selection.TextToColumns Destination:=Range("CB2"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="-", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1)), _
TrailingMinusNumbers:=True
Range("Bg97").Select
gerr:
If Err.Number <> 0 Then
Msg = "Errore " & Str(Err.Number) & " generato da " _
& Err.Source & Chr(13) & Err.Description
MsgBox Msg, , "Errore", Err.HelpFile, Err.HelpContext
End If
Application.EnableEvents = True
salta:
End Sub
il controllo della casella di selezione BG97
in CA1 la stringa da dividere
in CA2 dove verrano visualizzati i caratteri estratti cella per cella
If ActiveCell.Column <> 6 Then GoTo salta
quì devo modificare la colonna in 78 ?
