Excel :: Lazzaro

Questa sezione è riservata a Lazzaro prego gli altri utenti di postare quì consigli, suggerimenti esempi ma non altre problematiche…. Grazie ••• Ritorna alla pagina precedente •••

Questo è il quesito posto:

Ho creato un modello di fatturazione in excel alla ho aggiunto sullo stesso foglio dei pulsanti con dei codici vba per automizzare un pò le procedure. I codici funzionano.
In seguito ho avuto l’esigenza di spostare i suddetti pulsanti in un altro foglio della stessa cartella e qui le cose non hanno iniziato a funzionare. Ti faccio un esempio più specifico questo è il codice del pulsante salva:

Private Sub CommandButton1_Click()
Range(”G36″).Select
Selection.Copy
Range(”Z1″).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range(”a6″).Select
Dim Riga
With Sheets(”riepilogo”)
Riga = 1
While .Cells(Riga, 1) “”
Riga = Riga + 1
Wend
End With
Application.CutCopyMode = False
a = Cells(10, 3)
b = Cells(1, 12)
b = a
Cells(10, 3) = a
Cells(1, 12) = b
Sheets(1).Copy **************** ->
Dim X As String
X = “Fattura N°” & Range(”C10″).Value
ActiveWorkbook.SaveAs Filename:=”C:\Documents and Settings\utente\Desktop\Fatture2008\Fatture2008\” & X & “.xls”, FileFormat:= _
xlNormal, Password:=””, WriteResPassword:=””, ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWindow.Close
End sub
Il mio problema sta nel fatto che non riesco a far funzionare il codice del pulsante che è posizionato nel “Foglio1″ ma che deve eseguire delle operazioni nel “Foglio2″. Ho gia provato con i comandi sheets.select e Worksheets(”fogliox”).Activate
ma mi viene fuori errori del tipo ‘Errore nel metodo activate per la classe range Ti sarei grato se potresti darmi un aiuto o delle coordinate dove potermi informare a riguardo