ho un problema con una macro che stò cercando di finire.
Praticamente dovrei posizionarmi sul foglio attivo corrente, ciclare su determinate colonne per riga (e fin qui tutto bene)
per ogni riga dovrei salvarmi il valore, ricercare il valore su un altro foglio exel al range A1:A999. A questo punto dovrei prendermi il valore B1 e confrontarlo con quello del ciclo precedente.
Se la cella ha il valore vuoto vorrei uscire dal 2* ciclo e proseguire con il 1* ciclo.
Vi posto il codice inserendo il maiuscolo le parti che non riesco a completare.
- Codice: Seleziona tutto
Windows(oldfile).Activate
'Sheets(foglioatt).Activate
Worksheets(foglioatt).Activate
Dim myVal As String
Dim myVal2 As String
'legge il primo valore
myVal = Range("d1").Value
Set D = Worksheets("Base")
'inizia il ciclo dalla riga 1 all'ultima della colonna A
For r = 3 To Range("e78").End(xlUp).Row
Range("e" & r).Select
ActiveCell.Interior.ColorIndex = 3 'rosso
myVal2 = Range("a" & r).Value
[b]
********** PARTE DA FINIRE *************************
QUI DOVREI CICLARE SU UN ALTRO FOGLIO CHE SI CHIAMA "BASE"[/b]
For g = 2 To Range("a9999").End(xlUp).Row
[b]CONFRONTO I VALORI DEL 2* FOGLIO CON QUELLI DEL PRIMO[/b]
If Range("a" & g).Value = myVal2 Then
[b]SE TROVO IL VALORE VERIFICO SE B1 DEL PRIMO FOGLIO è UGUALE A QUESTO (B1 LO SALVO IN UNA VARIABILE) [/b]
Else
If Range("a" & g).Value = "" Then
[b]SE TROVO VUOTO FOTTEI USCIRE SOLO DAL CICLO FOR G MA PROSEGUIRE CON FOR R[/b]
End If
End If
Next g
Next r
Range("E1:E78").Interior.ColorIndex = 2 'bianco
Attendo un aiutino da chi ne capisce più di me :-) io qui mi sono arenata e non riesco a proseguire.
grazie mille
