[Risolto]Tastiera numerica ad uso su cella selezionata

[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

[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 

[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"

[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 340 volte

.

[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

[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 307 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 307 volte

.

[ferro0099]

Grazie Lucky63 .........è perfetto