پیرو تاپیک سلول متناظر

[kazem1359]

سلام کد ماکرو را اقا هادی زحمت کشیدن نوشتن ولی یک مشکل پیش اومده
در کدماکرو کلمه نام در خط ششم در بعضی از سیستمها فارسی نمیشه و اجرا ماکرو با خطا مواجه میشه ایا راهکاری هست.
ایا این امکان هست که جستجو بر اساس نام برای چیز دیگری تعریف شود که این مشکل فارسی نبودن پیش نیاد البته فرمت سلولهای تاریخ همیشه deta هست و سلولها بدون رنگ هستند فایل قبلا ضمیمه شده اگر این مساله را هم حل نمائید ممنون می شم.

[iranweld]

با سلام

فایل پیوست را بررسی کنید


Sub Macro3()

Cells.UnMerge

For Each cell In ActiveSheet.UsedRange

If cell = ChrW(1585) & ChrW(1583) & ChrW(1740) & ChrW(1601) Then

Range(cell.Offset(1, 1), cell.Offset(10, 2)).Select

Selection.Copy
Sheets("Sheet2").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True



Sheets("Sheet1").Select

Range(cell.Offset(1, 3), cell.Offset(7, 4)).Select

Selection.Copy
Sheets("Sheet2").Select
Range("k1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True

End If

Next
End Sub