پیدا کردن آخرین سطر

**amir_ts** · 2016/09/21, 18:40

با سلام
فرض کنید میخواهید رنج a1:l18 شیت 1 رو در شیت list از ردیف 41 به بعد کپی کنید:

کد:

[LEFT]
Sub test()
Dim lr As Integer
Dim sh As Worksheet
Set sh = Sheets("list")
    lr = sh.Cells(sh.Rows.Count, "A").End(xlUp).Row + 1
        If lr < 41 Then
        lr = 41
        Else: lr = sh.Cells(sh.Rows.Count, "A").End(xlUp).Row + 1
        End If
Range("A1:L18").Copy Destination:=sh.Range("a" & lr)
End Sub
[/LEFT]

**aliooali** · 2016/09/21, 22:22

با نشکر از شما دوست عزیز

ولی من میخوام هر بار که اطلاعات رو میخوام تویه شیت دیگه کپی بشه با یک ردیف فاصله کپی بشه

به طور مثال :

من اطلاعات را در شیت اصلی وارد میکنم و وقتی کپی میکنه تو شیت دوم
حالا اطلاعات جدیدی رو وارد میکنیم
بعد از اطلاعات قبلی یک ردیف خالی یا فاصله باشه
و اطلاعات جدید کپی و همین تور تا بی نهایت این کار ادامه داشته باشه

با تشکر

**amir_ts** · 2016/09/21, 22:37

تو کد ارسالی عدد 1 رو به 2 تغییر بدید.(دو خط کد)

lr = sh.Cells(sh.Rows.Count, "A").End(xlUp).Row + 2

**aliooali** · 2016/09/21, 22:53

دوست عزیز اینکه کار نداد

من میخوام که یه لیستی دارم که هرباز بزنم بک آپ بگیره ( کپی بشه ) و هربار که بزنم پشت سرهم دیگه ذخیره بشه

**amir_ts** · 2016/09/21, 23:01

نوشته اصلی توسط aliooali

دوست عزیز اینکه کار نداد

من میخوام که یه لیستی دارم که هرباز بزنم بک آپ بگیره ( کپی بشه ) و هربار که بزنم پشت سرهم دیگه ذخیره بشه

فایل پیوستی را ملاحظه کنید.

فایل های پیوست شده

Copy_02.rar (17.1 کیلو بایت, مشاهدات 14)

**aliooali** · 2016/09/21, 23:46

دوست عزیز من تست کردم چون من جدول بکار بردم اینکار رو انجام نمیده

فایل های پیوست شده

test02.xlsx (18.9 کیلو بایت, مشاهدات 8)

**amir_ts** · 2016/09/22, 00:09

دوست عزیز بهتر بود از ابتدا فایل نمونه خودتون رو قرار میدادید.
محدوده که میخواهید کپی بشه رو نامگذاری کنید.(data)

کد:

[LEFT]
Sub test()
Dim lr As Integer
Dim sh As Worksheet
Set sh = Sheets("list")
    lr = sh.Cells(sh.Rows.Count, "B").End(xlUp).Row + 2
      
Range("data").Copy Destination:=sh.Range("A" & lr)
End Sub
[/LEFT]

فایل های پیوست شده