PDA

Visualizza versione completa : eliminazione di un pulsante (attiva macro)


Dejan87
18-06-2008, 17.21.42
ciao a tutti ^^

mi sono registrato oggi, ma dopo essermi :wall: intestardito a provarci nn ce la faccio....

problema.

ho creato un pulsante da excel che mi salva ogni tot minuti un file con nome sempre diverso:

Sub Salvafile()

Dim p As Worksheet
Dim Directory As String
Dim NomeFile As String
Dim Var As String

Set p = Worksheets("Inverter")

Directory = p.Cells(5, 8).Value
NomeFile = p.Cells(6, 8).Value
NomeFile = NomeFile + Format(Now, "ggmmyyyy ora hhmmss")

ChDir Directory
ActiveWorkbook.SaveAs Filename:=Directory + NomeFile, FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
p.Cells(5, 7).Value = Var
p.Cells(6, 7).Value = Var
p.Cells(5, 8).Value = Var
p.Cells(6, 8).Value = Var
End Sub

sarÓ la poca esperienza visto che ho solo 20 anni per˛ volevo chiedere se c'Ŕ la possibilitÓ di creare o una nuova macro.. oppure integrare qualche riga di codice che mi permetta di cancellare questo "bottone"

per spiegare meglio:

ho dei dati che prendo da immagini non editabili tramite un OCR
li formatto con un html e li sparo in un excel. questo file si chiama index.

in questa pagina a lato in 4 celle ho questo:

Directory di Salvataggio: C:\temp\
Nome file: Estrazione dati del

quindi do il percorso e la prima parte del file da salvare
A fianco ho il pulsante che mi lancia la macro.

una volta finito mi salva un file nuovo cosi:
es: Estrazione dati delgg062008 ora 170208

facendo rimanere intatto il file index cosi da poterlo utilizzare sempre.

quindi in temp ho i file salvati e sul Desk il file index.


potevo usare questa istruzione:
p.Cells(5, 7).delete

ma ho preferito usare una var integer.
p.Cells(5, 7).value = var
p.Cells(6, 7).Value = Var
p.Cells(5, 8).Value = Var
p.Cells(6, 8).Value = Var

queste 4 istr. cancellano i 4 campi visti prima...

ma il bottone??? quello che mis erve Ŕ cancellare il bottone durante il salvataggio del nuovo file e mantenerlo solo sull'index

spero di essere stato chiaro.. mi scuso se nn Ŕ cosi.. ^^

Grazie

Daniel :)

miciomao
19-06-2008, 08.38.13
un [nomepulsante].Visible = False a fine istruzione ?

Dejan87
19-06-2008, 09.20.46
un [nomepulsante].Visible = False a fine istruzione ?

ci ho provato ma nn so perchŔ rimane sempre visibile....

quasi quasi.. mi creo una seconda pagina dove metto i dati ed elimino la prima dove ho il pulsante con questa istruzione:

Worksheets("Nome pagina").Delete

grazie mille miciomao ^^

Danil-ho
19-06-2008, 09.37.53
ci ho provato ma nn so perchŔ rimane sempre visibile
Non conosco excel, ma un po' di access ...
se lo premi vuol dire che il "setfocus" va su di lui, e puo darsi che il comando bottone.visible = false non funzioni proprio per quello.
Prova a fare un setfocus da qualche altra parte e poi a renderlo invisibile, magari funziona.

Dejan87
19-06-2008, 09.42.46
Non conosco excel, ma un po' di access ...
se lo premi vuol dire che il "setfocus" va su di lui, e puo darsi che il comando bottone.visible = false non funzioni proprio per quello.
Prova a fare un setfocus da qualche altra parte e poi a renderlo invisibile, magari funziona.


provo ;) grazie...Danil

Dejan87
19-06-2008, 09.46.33
Non conosco excel, ma un po' di access ...
se lo premi vuol dire che il "setfocus" va su di lui, e puo darsi che il comando bottone.visible = false non funzioni proprio per quello.
Prova a fare un setfocus da qualche altra parte e poi a renderlo invisibile, magari funziona.


FUNZIONA ;) l'ho settato e funziona.... l'ho messo propio dopo aver salvato il documento nuovo in maniera tale da vedere solo le tabelle e impedire ulteriore salvataggio che mi darebbero copie inutili, oltre a generare cnfusione...

Grazie per l'aiuto ^^

Danil-ho
19-06-2008, 14.38.13
Di niente :)

miciomao
20-06-2008, 09.14.34
....propio....

la gente che dice propio mi sta troppo simpatica :D

Dejan87
24-06-2008, 14.30.57
la gente che dice propio mi sta troppo simpatica :D


Ŕ la fretta di scrivere :P ihihih