Salve a tutti,
ho cercato sul forum ma non ho trovato niente di simile.
ho questo elenco:
e vorrei ottenere dal primo elenco il risultato del secondo.
si può fare senza dover necessariamente sviluppare tutto a mano?
grazie a tutti
Moderatori: Anthony47, Flash30005
=SE(CONTA.PIÙ.SE($B:$B;$N2;$C:$C;$O2;$D:$D;$P2;$E:$E;$Q2;$F:$F;$R2;H:H;"X")>0;"X";"")
Option Explicit
Sub Elenco_Univoco()
Dim ur As Long, i As Long, w As Long, j As Long, k As Long
Dim A As String, B As String
ur = Cells(Rows.Count, 2).End(xlUp).Row
Range(Cells(2, 2), Cells(ur, 7)).Copy
Range("M2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.Range("$M$2:$R$" & ur).RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6) _
, Header:=xlYes
For i = 2 To ur
For w = 13 To 18
A = A & Cells(i, w)
Next w
If A = "" Then Exit Sub
For j = 2 To ur
For w = 2 To 7
B = B & Cells(j, w)
Next w
If A = B Then
For k = 8 To 11
If Cells(j, k) = "X" Then Cells(i, k + 11) = "X"
Next k
End If
B = ""
Next j
A = ""
Next i
End Sub
Torna a Applicazioni Office Windows
Inserire 2 valori nella stessa cella Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 2 |
Excel: formula automatica per evidenziare prodotto scaduto Autore: gamma_ray |
Forum: Applicazioni Office Windows Risposte: 3 |
Salvare file excel in formato html escludendo le immagini Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 10 |
formula excel non visualizza risultato Autore: tommasog |
Forum: Applicazioni Office Windows Risposte: 6 |
Excel 2016 - Funzione SCARTO + INDIRETTO Autore: pl1957 |
Forum: Applicazioni Office Windows Risposte: 2 |
Visitano il forum: Nessuno e 98 ospiti