La consultazione del forum è libera per tutti.
Per poter porre un quesito è invece necessario essere un utente registrato (clicca qui se non lo sei).
Tutti gli utenti che richiedono un supporto, come da REGOLAMENTO, sono caldamente invitati ad allegare un file di esempio con l'indicazione di quello che si desidera ottenere.
Buona sera a tutti
sono nuova nel forum e nell'ambiente excel sono totalmente un' autodidatta, grazie per chi mi può aiutare.
ho creato un file, per lavoro, dove vengono riassunti dei dati in più fogli, grazie a registra macro ho creato molti automatismi nella registrazione, ora mi sono bloccata su una fantasia.
su un foglio chiamato maschera iniziale c'è una tabella analisi.
dove mettendo un codice alfanumerico mi si estrapolano una serie di dati da un'altro foglio chiamato Inserimento dati.
io vorrei che inserendo questo codice lo stesso venga confrontato in una colonna A:A nel foglio analisi e una volta trovato vengano copiate le due celle che io inserisco manualmente nel foglio MASCHERA INIZIALE.
Si può fare secondo voi?
VI HO ALLEGATO PARTE DEL FILE, L'HO DOVUTO PULIRE DAI DATI SENSIBILI.
ciao
non ho capito una cosa
ma in foglio analisi il numero rapporto di intervento
è già scritto o lo devi inserire con la macro?
Ciao grazie della risposta,
il numero rapporto di intervento nel foglio analisi è già registrato con una formula che lo prende da un'altro foglio....io inserisco nella tabella controllo immetto in numero del rapporto intervento (gia esistente nel foglio analisi) nella casella H3 del figlio maschera iniziale, lo scopo è inserire manualmente, nella maschera iniziale, il codice campione e risultato H9 - H10 poi con un tasto tipo integra..o qualcosa del genere quei due valori si vadano a registrare nelle rispettive colonna rella riga relativa al rapporto di intervento nel foglio analisi, così da apparire nella pivot....ora lo sto facendo manualmente perché sono dati che ho successivamente alla registrazione del rapporto intervento.
ciao
in pratica cerca in foglio analisi il codice
se lo trovi mettimi i due dati mancanti
VBA..
spero i vbaisti si sveglino dal loro torpore 😀
nel frattempo cercherò di farlo io.ma mi ci vuole tempo 😑
sono lentissimo con il vba
SIIIIIIII.....Detto cosi sembra facilissimo 😶 😶 😶 😶
una domanda nella formula se.errore se metto "" perchè nelle celle mi appare 0 invece della cella vuota?
bello parlare con voi che almeno mi capite....
ciao
codice da mettere su un pulsante
io userei il preesistente ANALISI visto che apre il report
Sub ANALSI()
Dim riga As Integer
Set Lista = Sheets("ANALISI").Range("A2:A500")
Application.EnableEvents = False
For Each cl In Lista
If cl = Cells(2, 2).Value And Cells(2, 2).Value <> "" Then
Sheets("ANALISI").Select
cl.Offset(0, 10) = Sheets("MASCHERA INIZIALE").Range("H9")
cl.Offset(0, 11) = Sheets("MASCHERA INIZIALE").Range("H10")
End If
Next
Application.EnableEvents = True
End Sub
in alternativa al doppio click su una qualsiasi cella del foglio MASCHERA
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim riga As Integer
Set Lista = Sheets("ANALISI").Range("A2:A500")
Application.EnableEvents = False
For Each cl In Lista
If cl = Cells(2, 2).Value And Cells(2, 2).Value <> "" Then
Sheets("ANALISI").Select
cl.Offset(0, 10) = Sheets("MASCHERA INIZIALE").Range("H9")
cl.Offset(0, 11) = Sheets("MASCHERA INIZIALE").Range("H10")
End If
Next
Application.EnableEvents = True
End Sub
che formule è che ti danno 0 io ho tutto errore visto che fanno riferimento a fogli esterni
che non ho
comunque puoi formattare
0;-0;;@
e lo 0 non lo vedi più
GRAZIEIEEEEEE FUNZIONA SEI STATA LA MIA SALVEZZA!!!!!!
ciao
bene l'ho indovinato 😀
se hai risolto gentilmente chiudi la discussione
ti ringrazio
OK LA CHIUDO....SEI STATO VERAMENTE GENTILE E NON SO COME RINGRAZIARTI VERAMENTE
ciao
Sub ANALSI()
Dim riga As Integer
Set Lista = Sheets("ANALISI").Range("A2:A500")
Application.EnableEvents = False
For Each cl In Lista
If cl = Cells(2, 2).Value And Cells(2, 2).Value <> "" Then
Sheets("ANALISI").Select
cl.Offset(0, 10) = Sheets("MASCHERA INIZIALE").Range("H9")
cl.Offset(0, 11) = Sheets("MASCHERA INIZIALE").Range("H10")
End If
Next
Application.EnableEvents = True
Sheets("MASCHERA INIZIALE").Select
End Sub
ho aggiunto
Sheets("MASCHERA INIZIALE").Select
