=IFERROR(IFERROR(IFERROR(INDEX(Table1[نام شرکت];MATCH(0;COUNTIF(A1:$A$1;Table1[نام شرکت])+IF(COUNTIF(Table1[نام شرکت];Table1[نام شرکت])>1;0;1);0));INDEX(Table2[نام شرکت];MATCH(0;COUNTIF(A1:$A$1;Table2[نام شرکت])+IF((COUNTIF(Table2[نام شرکت];Table2[نام شرکت])+COUNTIF(Table1[نام شرکت];Table2[نام شرکت]))>1;0;1);0)));INDEX(Table3[نام شرکت];MATCH(0;COUNTIF(A$1:$A1;Table3[نام شرکت])+IF((COUNTIF(Table3[نام شرکت];Table3[نام شرکت])+COUNTIF(Table1[نام شرکت];Table3[نام شرکت])+COUNTIF(Table2[نام شرکت];Table3[نام شرکت]))>1;0;1);0)));"")
Table1[نام شرکت]
[1]Sheet1!Table1[نام شرکت]
Sub CommandButton1_Click()
Dim i, j, k, z, x, y, r As Integer, rng As Range
z = 2
'================================================
x = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row
y = Sheet2.Cells(Sheet2.Rows.Count, "A").End(xlUp).Row
r = Sheet3.Cells(Sheet3.Rows.Count, "A").End(xlUp).Row
'=================================================
Sheet4.Select
Sheet4.Columns("A:d").Select
Selection.ClearContents
Range("A1").Select
'=================================================
For i = 2 To x
For j = 2 To y
For k = 2 To r
If Sheet1.Cells(i, 1).Value = Sheet2.Cells(j, 1).Value Then
If Sheet2.Cells(j, 1).Value = Sheet3.Cells(k, 1).Value Then
Sheet4.Cells(z, 1).Value = Sheet1.Cells(i, 1).Value
Sheet4.Cells(z, 2).Value = Sheet1.Cells(i, 2).Value
Sheet4.Cells(z, 3).Value = Sheet2.Cells(j, 2).Value
Sheet4.Cells(z, 4).Value = Sheet3.Cells(k, 2).Value
'گ========================================================================
Sheet4.Cells(1, 1).Value = ChrW(1606) & ChrW(1575) & ChrW(1605) & ChrW(32) & ChrW(1588) & ChrW(1585) & ChrW(1705) & ChrW(1578)
Sheet4.Cells(1, 2).Value = ChrW(1588) & ChrW(1740) & ChrW(1578) & ChrW(32) & ChrW(1575) & ChrW(1608) & ChrW(1604)
Sheet4.Cells(1, 3).Value = ChrW(1588) & ChrW(1740) & ChrW(1578) & ChrW(32) & ChrW(1583) & ChrW(1608) & ChrW(1605)
Sheet4.Cells(1, 4).Value = ChrW(1588) & ChrW(1740) & ChrW(1578) & ChrW(32) & ChrW(1587) & ChrW(1608) & ChrW(1605)
z = z + 1
End If
End If
Next k
Next j
Next i
End Sub
کامنت