Newsgroup: it.comp.lang.visual-basic
Titolo: (vb excel)

     Salve a tutti
se il codice sottostante (stralcio) parte con la scelta tasti rapidi tutto
ok
Se inserisco un pulsante di comando nello stesso foglio e lancio ho errore.
In pratica non si sposta sul foglio appoggio.
Qualcuno sa spiegarmi il perchè e il rimedio
grazie
 
 For j = 2 To 1200
     If Cells(i, 26) = Cells(j, 1) Then
     Range(Cells(j, 1), Cells(j, 21)).Select
     Selection.Copy
     Sheets("appoggio").Select
     Range(Cells(j, 1), Cells(j, 21)).Select
     ActiveSheet.Paste
     Selection.Cut Destination:=Range(Cells(j, 1), Cells(j, 21))
     Sheets("importa_top").Select
     A = Cells(j, 1)
    End If
 
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/


Questo codice(parzialmente modificato
per poter essere testato) funziona
anche da pulsante:
Public Sub hh()
Dim j As Long
Dim i As Long
Dim a As Variant
For j = 2 To 1200
     If Cells(3, 26) = Cells(j, 1) Then
     Range(Cells(j, 1), Cells(j, 21)).Select
     Selection.Copy
     Sheets("Foglio1").Select
     Range(Cells(j, 1), Cells(j, 21)).Select
     ActiveSheet.Paste
     Selection.Cut Destination:=Range(Cells(j, 1), Cells(j, 21))
     Sheets("Foglio2").Select
     a = Cells(j, 1)
    End If
Next
End Sub
Sarebbe interessante sapere cosa c'è prima e dopo....
Per Excel ed il suo vba ci sarebbe anche:
microsoft.public.it.office.excel
-- 
----------------------------
Mauro Gamberini

                    Il 01 Dic 2005, 12:17, "Mauro Gamberini"
<maurogsc...@RIMUOVEREaliceposta.it> ha scritto:

Sei sicuro che il codice che hai scritto funziona?
Il pulsante è definito?
Il codice di sopra comunque comincia semplicemente con
Private Sub CommandButton1_Click()
   poi si ferma al range.


 Questo codice(parzialmente modificato

Sei sicuro che il codice che hai scritto funziona?
Il pulsante è definito?
Il codice di sopra comunque comincia semplicemente con
Private Sub CommandButton1_Click()
   poi si ferma al range.



Sě.
Su qual si voglia foglio io metta il mio
CommandButton, mi esegue il codice.
Prova anche tu. Metti il codice in un Modulo
e poi chiamalo da pulsante:
Private Sub CommandButton1_Click()
    Call hh
End Sub
-- 
----------------------------
Mauro Gamberini

 
il tuo codice, ma niente.
excel 2002
Grazie cmq
Private Sub CommandButton1_Click()
Call hh
End Sub
Public Sub hh()
Dim j As Long
Dim i As Long
Dim a As Variant
For j = 2 To 1200
     If Cells(3, 26) = Cells(j, 1) Then
     Range(Cells(j, 1), Cells(j, 21)).Select
     Selection.Copy
     Sheets("Foglio1").Select
     Range(Cells(j, 1), Cells(j, 21)).Select
     ActiveSheet.Paste
     Selection.Cut Destination:=Range(Cells(j, 1), Cells(j, 21))
     Sheets("Foglio2").Select
     a = Cells(j, 1)
    End If
Next
End Sub


     Dimenticavo l'errore
errore di run time 1004
errore nel metodo select per la classe range



Ferma lě.
Niente cosa?
Non va?
Da errore?
-- 
----------------------------
Mauro Gamberini
/


Intanto spero tu metta qualcosa per fermare
tutto il va e vieni che hai sullo schermo, tipo:
Application.ScreenUpdating = False
Application.ScreenUpdating = True
all'inizio e alla fine della routine....
Io non ho errore con ExcelXP(2002) e 2003.
Stiamo andando forse OT.
Non riesci a postare su:
microsoft.public.it.office.excel ?
-- 
----------------------------
Mauro Gamberini

Anche sul pc da casa con il vecchio 97 è la stessa cosa.
Dunque il problema è che con la scelta rapida va tutto ok senza cambiare
nulla (anche a casa).
Stavo pensando se qualche impostazione del pulsante potesse rompere, ma non
mi viene altro.
Per i prossimi problemi andro sul forum che mi hai detto
Grazie


[cut]
Per chi avesse seguito questo thread,
problema risolto mettendo la Sub incriminata
in un Modulo. Flo aveva la routine nel modulo
del foglio e quindi i pulsanti esterni al foglio
non la vedevano.
-- 
----------------------------
Mauro Gamberini