با درود فراوان
بله چک کردم یک کلمه sheet2 اضافی خورده شده حذف کنید درست میشه
کد PHP:
Sub Macro2()
Dim c As Range
Dim s As Range
Dim i As Integer
Dim m, n
n = Sheet2.Range("e2").Value
m = Sheet2.Range("e3").Value
Sheet2 این سطر حذف بشه
For i = n To m
For Each c In Sheet1.Range("a4:a100").Offset(0, i)
If c.Value <> "" And c.Value <> "-" Then
For Each s In Sheet2.Range("d7:d1000")
If s.Value = "" Then
s.Value = c.Value
s.Offset(0, 1).Value = Sheet1.Range("A3").Offset(0, i).Value
s.Offset(0, -2).Value = s.Row - 6
Exit For
End If
Next
End If
Next
Next
End Sub
علاقه مندی ها (Bookmarks)