I figli d'arte sono all'altezza dei genitori? Vieni a parlarne su Award & Oscar.
 
Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

FORM: INSERIMENTO E RECUPERO DATI IN E DA FOGLIO CALCOLO

Ultimo Aggiornamento: 15/11/2016 18:27
Post: 63
Registrato il: 09/04/2015
Età: 45
Utente Junior
2013
OFFLINE
15/11/2016 16:16

Ciao a tutti,

ho un problema con un paio di form.
Spiego il funzionamento.
1. form Inserimento: attivo con macro associata al pulsante NUOVO, inserisco i dati relativi ad un ordine (22 voci). macro SALVA DATI mi va a prendere la prima riga libera e incolla tutti i dati nell'ordine specificato nel codice.
(Appena fatto funzionava alla grande tutto perfetto)

2. Creo 2° form Modifica: attivo con macro pulsante MODIFICA, funzionamento: inserendo o "n° container" o "n° rif." vorrei che mi andasse a cercare la riga corrispondente e mi riportasse tutti i valori nelle relative textbox di qs 2° form.

2 problemi rilevati fino a questo punto:
1. appena creato e lanciato il 2° form il 1° a smesso di funzionare. ossia inserisco tutti i dati clikko SALVA e non mi inserisce più nulla nel foglio di calcolo;
2. per ricercare la riga relativa all'ordine utilizzo un VLookUp che però mi restituisce un "error 2043" che non capisco come raggirare.

Nel codice troverete che ancora non è stato sviluppato il codice per il "n° container" ma il funzionamento sarà uguale al "n° rif."

Allego file

Grazie mille a tutti
Post: 956
Registrato il: 06/04/2013
Utente Senior
2010
OFFLINE
15/11/2016 16:30

Ciao
non ti scrive nulla perché i nomi scritti nella macro save_click legata al pulsante "diciamo" che non esistono, o più precisamente sono sovrapposti, cioè se in struttura sposti una text box, sotto ce n'è un'altra uguale e tu scrivi sulla prima che ha un nome diverso.
Probabilmente il tutto deriva da qualche copia/incolla....

Es:
macro > Worksheets("ELENCO").Cells(iRR, 1).Value = Inserimento.TextTFA.Value

UserFor > quel campo dove scrivi si chiama TextBox24

ecc

saluti
[Modificato da dodo47 15/11/2016 16:38]
Domenico
Win 10 - Excel 2016
Post: 63
Registrato il: 09/04/2015
Età: 45
Utente Junior
2013
OFFLINE
15/11/2016 16:57

Ciao Dodo,

grz ovviamente adesso il primo form funziona a dovere.

però il vlookup sul 2° quello genera erre 2042 (nn 2043 come scritto prima) di conseguenza non mi restituisce nessun valore....

hai qualche idea sul da farsi?

grazie mille

PS. allego file pulito da celle doppie
Post: 957
Registrato il: 06/04/2013
Utente Senior
2010
OFFLINE
15/11/2016 17:49

Ciao
perché RicTFA in realtà è un numero (e così lo dovresti dimensionare) non una stringa così come la prendi dalla txtBox, (le txtBox restituiscono stringhe...). Quindi o trasformi la stringa in numero (se sono sempre numeri) oppure vedi tu.

Fai una prova: al posto del numero in col. A scrivicui "pippo" (comunque una stringa) e vedrai che l'errore non si manifesta.

Saluti

(ci sarebbero un po' di cosine da sistemare, per esempio un find al posto del vlookup e un find al posto di ciclare tutta la colonna per trovare il dato, le dim sono errate.....ma....)
[Modificato da dodo47 15/11/2016 17:55]
Domenico
Win 10 - Excel 2016
Post: 64
Registrato il: 09/04/2015
Età: 45
Utente Junior
2013
OFFLINE
15/11/2016 18:02

Grazie in effetti così funziona, nella mia ignoranza, non è possibile far leggere un numero (serie di numeri) come stringa?
Post: 958
Registrato il: 06/04/2013
Utente Senior
2010
OFFLINE
15/11/2016 18:27

ciao
se sono numeri soltanto, trasforma la ricerca:
TFA = Application.VLookup(CLng(RicTFA), RNG, 1, False)

saluti

Edit: oppure usi il find come detto:

TFA = RNG.Find(RicTFA, , , xlWhole)
[Modificato da dodo47 15/11/2016 18:37]
Domenico
Win 10 - Excel 2016
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 07:07. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com