Pagina 1 di 1
[Risolto]Tastiera numerica ad uso su cella selezionata
Inviato: martedì 3 settembre 2024, 15:22
da ferro0099
In allegato il mio progetto finito e sotto quello che mi servirebbe
Se aprite il file , nella parte iniziale trovate una tabella che si compila in automatico con le varie caselle di testo e tastierini per i vari numeri.
Guardando sotto , ho ripetuto la tabella e e le varie caselle e taastierini numeri , la tastierina "inserimento lotto " è ok , Mi servirebbe, che la tastiera numerica " la seconda a sx sotto la scritta " Pezzi Toner/Peso Imballo" "quella dove cè il tasto invio mi potesse scrivere la cella che io vado a selezionare ma solo nelle colonne evidenziate in giallo
Re: Tastiera numerica ad uso su cella selezionata
Inviato: martedì 3 settembre 2024, 18:15
da ferro0099
Grazie comunque .... a volte , la soluzione è a portata .....
Per chi può servire la macro è :
Codice: Seleziona tutto
Sub Numero (Evento)
DocNumero = ThisComponent
FoglioAttivoNumero = DocNumero.GetCurrentController.ActiveSheet
cell = FoglioAttivoNumero.getCellRangeByName("R36")
NomePulsanteNumero = Evento.Source.Model.Name
NomeEtichettaNumero = Evento.Source.Model.Label
FormularioNumero = FoglioAttivoNumero.DrawPage.Forms.GetByIndex(0)
ControlloNumero = FormularioNumero.getByName("Numero")
ActiveCell = DocNumero.CurrentSelection
If len(NomeEtichettaNumero)=1 Then
ControlloNumero.Text = ControlloNumero.Text & NomeEtichettaNumero
End if
If Left(NomeEtichettaNumero,1) = "I" and ControlloNumero.Text <> "" Then
ActiveCell.String = ControlloNumero.String
ActiveCell.String = cell.String
End If
If NomeEtichettaNumero = "RESET" Then
ControlloNumero.Text = ""
End If
End Sub
Re: Tastiera numerica ad uso su cella selezionata
Inviato: martedì 3 settembre 2024, 19:11
da ferro0099
Mi rimane un problema, con la macro sopra scrivo il numero dentro la casella di testo lo stesso viene riportato nella cella "r36" e premendo il pulsate invio dopo avere selezionato una cella , mi viene riportato nil valore.
Chiedo se qualcuno riesce a farmi capire come determinare la possibilità di scrivere solo sulle celle evidenziate in giallo nelle rispettive colonne "N pezzi " e "peso kg"
Re: Tastiera numerica ad uso su cella selezionata
Inviato: domenica 8 settembre 2024, 16:32
da lucky63
.
... con una sola "tastierina" ...
Da testare se può andare bene e/o per trarre altri spunti utili per le tue esigenze.
.
- Test - Macro - Tastiera numerica ad uso su cella selezionata.png (16.93 KiB) Visto 482 volte
.
Re: Tastiera numerica ad uso su cella selezionata
Inviato: lunedì 9 settembre 2024, 10:00
da ferro0099
Ciao Lucky63 , non sò come ringraziarti è perfetto , Se volessi agginugere un'altra colonna e quindi un altro controllo , ho provato a mettere un elseif ma ricevo sempre un errore di ritorno , ti allego l'esempio
Codice: Seleziona tutto
If Controllo.name = "TONER" then
Colonna = 3 'Colonna TONER
elseIf
Colonna = 6 ' colonna Imballo
else
Colonna = 10 ' colonna Codice
end if
Re: Tastiera numerica ad uso su cella selezionata
Inviato: lunedì 9 settembre 2024, 12:58
da lucky63
.
Come da tua impostazione “CodiceArticolo” gestibile sia da casella combinata che liberamente anche con tastierino grafico …
.
- Test - Macro - Tastiera numerica ad uso su cella selezionata - 01 A.png (18.78 KiB) Visto 449 volte
.
.
Ho aggiunto un foglio con esempio simile ma di compilazione più semplificata in celle azzurre (da valutare).
.
- Test - Macro - Tastiera numerica ad uso su cella selezionata - 01 B.png (27.48 KiB) Visto 449 volte
.
Re: [Risolto]Tastiera numerica ad uso su cella selezionata
Inviato: martedì 10 settembre 2024, 17:40
da ferro0099
Grazie Lucky63 .........è perfetto