piccolo aiuto su VB

[ciccio]

Qual'è il codice ,tramite vb di excel, che mi dice

"prendi in considerazione il foglio corrente, la cella A111"?

Grasias

[cik]

dovrebbe essere

ActiveSheet.Cells("A111")
'oppure
ActiveSheet.Cells(1,111)

[ciccio]

Grazie in ativcipo dell'interessamento. Ho provato come dici tu ma non funziona. Qui sotto ti incollo il codice con le parti in rosso che vorrei cambiare dicendogli"prendi in considerazione il foglio corrente" anzichè luglio03. (NON TI SPAVENTARE PER LA LUNGHEZZA - sono solo le parti in rosso).
:master:


Sheets("luglio03").Select
Range("D101").Select
Selection.Copy
Sheets("riepilogo generale").Select
ActiveWindow.SmallScroll Down:=0
Range("A212").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("E212").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("luglio03").Select
Range("B101:C101").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("riepilogo generale").Select
Range("B212").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("luglio03").Select
Range("B102:C102").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("riepilogo generale").Select
Range("F212:G212").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Rows("212:212").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown
Range("A212,E212").Select
Range("E212").Activate
Selection.NumberFormat = "mmmm-yy"
Range("F212:G212").Select
Selection.NumberFormat = "0%"
End Sub

[cik]

Sheets.ActiveSheet non funziona?

[ciccio]

Ho provato a sostituire sheets("luglio03").Select
con Sheets.Activesheet, ma non funziona.

[xegallo]

2 cose il titolo e il codice leggiti il regolamento

[ciccio]

okey ho letto. Sapresti risolvermi il problema?

[cik]

Originariamente inviato da ciccio
Ho provato a sostituire sheets("luglio03").Select
con Sheets.Activesheet, ma non funziona.

al massimo sostituisci

 
sheets("luglio03").Select

con

Sheets.Activesheet.Select

Se metti un breakpoint in un punto del codice e poi continui con l'esecuzione passo passo puoi vedere che valore assumono tutti gli oggetti durante l'esecuzione.

[ciccio]

Caspita mi da "errore di compilazione. impossibile trovare il metodo o il membro dati." :master: