[حل شده] پیرو تاپیک سلول متناظر

[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