[حل شده] کپی کردن

[habib100]

با سلام و خسته نباشید در این فایل میخواهم هر آنچه را در شیت 1 فیلتر شده است یک کپی بر داشته شود و در این شیت (شیت 2 محل مشخص شده )پیست شود ، در ضمن میخواهم قبل از اینکه این کار انجام شود داده های قبلی در شیت 2 پاک شوند سپس جایگذاری گردد که بعد pivot بگیرم. ممنونم

[iranweld]

با سلام

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

Sub Macro1()

z2 = Sheet2.Cells(Sheet2.Rows.Count, "B").End(xlUp).Row + 1

Sheet2.Range("B3:D" & z2).ClearContents

z1 = Cells(Rows.Count, "A").End(xlUp).Row

For I = 2 To z1

    If Rows(I & ":" & I).EntireRow.Hidden = False Then
    
    z2 = Sheet2.Cells(Sheet2.Rows.Count, "B").End(xlUp).Row + 1
    
    Range("A" & I & ":c" & I).Copy Destination:=Sheet2.Range("B" & z2)
    
    
    
    End If
    
    Next
    
End Sub 

[habib100]

سلام ممنونم . ولی یه ردیف اضافی همیشه کپی میکنه ؟

[iranweld]

سلام ممنونم . ولی یه ردیف اضافی همیشه کپی میکنه ؟

این خط از کد را اصلاح کنید B3 به B2 تبدیل شود

Sheet2.Range("B2:D" & z2).ClearContents 

[habib100]

سلام . خیلی زحمت کشیدید
اگر بخواهم این عملیات به فایل جدیدی (نه شیت 2 ) با نام مشخصی انجام شود یعنی با فیلتر در شیت 1 ، و کپی برداری وانتقال به شیتی دیگر از فایلی با نام مشخص صورت بگیرد آدرس آن چگونه تغییر میکند؟

[iranweld]

سلام . خیلی زحمت کشیدید
اگر بخواهم این عملیات به فایل جدیدی (نه شیت 2 ) با نام مشخصی انجام شود یعنی با فیلتر در شیت 1 ، و کپی برداری وانتقال به شیتی دیگر از فایلی با نام مشخص صورت بگیرد آدرس آن چگونه تغییر میکند؟

در کدهای ارسالی هر کجا sheet2 دارید با

sheets("نام شیت مورد نظر") 

جایگزین کنید

[habib100]

زحمت کشیدید ممنونم.