پرسش: انتقال مشروط یک سلول از یک شیت به شیت دیگر
سلام و خسته نباشید خدمت همه دوستان.
یه فایل اکسل دارم که بیش از 1600 تا شیت داره با تعداد ستون های ثابت اما تعداد سطرها در هر شیت متفاوته . میخوام از هر شیت تو آخرین سطری که ستون اولش دارای دیتاست ستونهای 22 و 23 رو چک کنه اگر buy یا sell بود در شیت اول همین فایل یک ستون ایجاد کنه و اسم شیت رو بنویسه و buy یا sell رو مقابلش قرار بده و شیت بعدی رو بررسی کنه و buy و sell بعدی رو در ستون اول شیت یک زیر قبلی قرار بده.
این کد رو نوشتم اما نمی دونم کجای کار اشتباهه لطفا راهنمایی کنید:
یه فایل اکسل دارم که بیش از 1600 تا شیت داره با تعداد ستون های ثابت اما تعداد سطرها در هر شیت متفاوته . میخوام از هر شیت تو آخرین سطری که ستون اولش دارای دیتاست ستونهای 22 و 23 رو چک کنه اگر buy یا sell بود در شیت اول همین فایل یک ستون ایجاد کنه و اسم شیت رو بنویسه و buy یا sell رو مقابلش قرار بده و شیت بعدی رو بررسی کنه و buy و sell بعدی رو در ستون اول شیت یک زیر قبلی قرار بده.
این کد رو نوشتم اما نمی دونم کجای کار اشتباهه لطفا راهنمایی کنید:
()Sub app1
Dim i As Integer
Dim lastcount As Integer
Dim sheet As Worksheet
i = 2
Sheet1.Columns(1).Insert
For Each sheet In Worksheets
lastcount = sheet.Cells(Rows.Count, 1).End(xlUp).Row
If sheet.Cells(lastcount, 22).Value = "BUY" Then
Sheet1.Cells(i, 1) = Sheets(i).Name
Sheet1.Cells(i, 2).Value = "BUY"
End If
If sheet.Cells(lastcount, 23).Value = "SELL" Then
Sheet1.Cells(i, 1) = Sheets(i).Name
Sheet1.Cells(i, 2).Value = "SELL"
End If
i = i + 1
Next sheet
End Sub
Dim i As Integer
Dim lastcount As Integer
Dim sheet As Worksheet
i = 2
Sheet1.Columns(1).Insert
For Each sheet In Worksheets
lastcount = sheet.Cells(Rows.Count, 1).End(xlUp).Row
If sheet.Cells(lastcount, 22).Value = "BUY" Then
Sheet1.Cells(i, 1) = Sheets(i).Name
Sheet1.Cells(i, 2).Value = "BUY"
End If
If sheet.Cells(lastcount, 23).Value = "SELL" Then
Sheet1.Cells(i, 1) = Sheets(i).Name
Sheet1.Cells(i, 2).Value = "SELL"
End If
i = i + 1
Next sheet
End Sub