Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim ws As Worksheet, i As Long, r As Long, lr As Long, m As Long
    If Target.Address = "$B$1" Then
        Cancel = True
        m = 4
        With ActiveSheet
            .Range("B3").CurrentRegion.Offset(1).ClearContents
            For i = 1 To 3
                Set ws = ThisWorkbook.Worksheets(i)
                lr = ws.Cells(Rows.Count, "B").End(xlUp).Row
                For r = 11 To lr
                    If ws.Cells(r, "F").Value <> Empty Then
                        .Cells(m, 2).Value = m - 3
                        .Cells(m, 3).Value = ws.Cells(r, 2).Value
                        .Cells(m, 4).Value = ws.Cells(r, 6).Value
                        .Cells(m, 5).Value = ws.Cells(r, 7).Value / 100
                        .Cells(m, 6).Value = ws.Range("C1").Value
                        m = m + 1
                    End If
                Next r
            Next i
        End With
    End If
End Sub

            Next i
            .Range("I4").Value = Format(Date, "yyyy/mm/dd")

المشاركة الأصلية كتبت بواسطة: YasserKhalil بتاريخ: 09-05-2024 09:13 مساءًجرب السطر التالي

CODE

            Next i
            .Range("I4").Value = Format(Date, "yyyy/mm/dd")