مشكل در گزارش گيري

[sohrabahmadi]

باسلام و درود به اساتيد و دوستان گرامي
فايلي دارم كه از شيت 1 آن ميخوام گزارش بگيرم .فرمول اجرا ميشه منتها ميخوام گزارشم تو شيت 2 و توي دو صفحه بياد .يه اشكال كوچيكي داره كه نتونستم درستش كنم .اگه دوستان يه نگاهي بندازن و راهنماييم كنن ممنون ميشم .

http://persiandrive.com/429637

[Amirsayyafi]

RE: مشكل در گزارش گيري

اگر مشکل سرستون دارید چرا از page setup/Sheet استفاده نمیکنید؟

[sohrabahmadi]

RE: مشكل در گزارش گيري

اگر مشکل سرستون دارید چرا از page setup/Sheet استفاده نمیکنید؟

با سلام و تشكر از شما ، دليلش اينه كه ميخوام تو صفحه اول 30 رديف باشه و تو صفحه دوم 29 رديف. و رديف 1 از صفحه 2 واسه انتقال جمع صفحه اولم باشه.البته محاسبات سلولهاي خالي رو من تو فرم نياوردم و اون سطرهاي بالا و پايين صفحه رو واسه محاسبات ديگه اي ميخوام. بازم ممنون

[Amirsayyafi]

RE: مشكل در گزارش گيري

با فرمول میشه کاری انجام داد. البته به شرطی که تعداد چکهای تاریخ مورد نظر از سطرهای انتخاب شده هیچوقت بیشتر نباشه. قبلاً موارد مشابه رو داشتیم.
اگر میخواهید که با فرمول انجام بشه فایل را برایتان درست کنم چون ظاهراً علاقه دارید که با وی بی انجام بشه.

[sohrabahmadi]

RE: مشكل در گزارش گيري

با فرمول میشه کاری انجام داد. البته به شرطی که تعداد چکهای تاریخ مورد نظر از سطرهای انتخاب شده هیچوقت بیشتر نباشه. قبلاً موارد مشابه رو داشتیم.
اگر میخواهید که با فرمول انجام بشه فایل را برایتان درست کنم چون ظاهراً علاقه دارید که با وی بی انجام بشه.

بسيار ممنون ميشم اگه لطف بفرماييد.مشكل من هم اينه كه از رديف 30ام به بعد بره تو صفحه 2 و بتونم تو سلولهاي ديگه محاسبات مربوطه رو انجام بدم.

[sohrabahmadi]

RE: مشكل در گزارش گيري

با سلام كسي از دوستان نيست يه كمكي به ما بكنه ؟ ممنون ميشم .

[Amirsayyafi]

RE: مشكل در گزارش گيري

با سلام كسي از دوستان نيست يه كمكي به ما بكنه ؟ ممنون ميشم .

من خیلی گرفتار شدم. امروز روی فایلتون کار میکنم.[hr]
به این فایل نگاهی بندازید. البته حتماً میتونه کاملتر بشه. فعلاً به عنوان یه فایل ابتدایی بهش نگاه کنید.

http://persiandrive.com/452411

[sohrabahmadi]

RE: مشكل در گزارش گيري

بسيار ممنونم از شما جناب آقاي سيافي عزي ز. با pivot table تا حدودي اشنايي دارم . ولي مشكل اينه كه اين عمليات يه قسمت از يه فرمي هستش كه در پايان بايد ازش گزارش بگيرم و نياز هستش كه با وي بي انجام بشه.فرمولي رو هم كه تو وي بي فايل هست جوابگوست فقط يه مشكل داره و اونم اينه كه حتمٍاً صفحه اول 30 تا رو بياره و تو صفحه دوم 29 تا.به همون ترتيبي كه شما با توابع زحمتش رو كشيدين.اگه براتون زحمتي نيست يه نگاه دوباره به فرمول بندازين شايد بشه تكميلش كرد.بينهايت بابت زحمتي كه كشيدين ممنون.

[Amirsayyafi]

RE: مشكل در گزارش گيري

بسيار ممنونم از شما جناب آقاي سيافي عزي ز. با pivot table تا حدودي اشنايي دارم . ولي مشكل اينه كه اين عمليات يه قسمت از يه فرمي هستش كه در پايان بايد ازش گزارش بگيرم و نياز هستش كه با وي بي انجام بشه.فرمولي رو هم كه تو وي بي فايل هست جوابگوست فقط يه مشكل داره و اونم اينه كه حتمٍاً صفحه اول 30 تا رو بياره و تو صفحه دوم 29 تا.به همون ترتيبي كه شما با توابع زحمتش رو كشيدين.اگه براتون زحمتي نيست يه نگاه دوباره به فرمول بندازين شايد بشه تكميلش كرد.بينهايت بابت زحمتي كه كشيدين ممنون.

خواهش میکنم. راستش من وی بی بلد نیستم بنابراین یا دوستان زحمتشو میکشن یا صبر کنید کلاسهای وی بی آقای علی محمدی برگزار بشه و بعد روی فایل شما کار کنم!

ضمناً من آقای سیافی عزیز نیستم خانم امیرسیافی عزیز هستم. تصور کنم برای نام کاربری ام باید یه فکر جدی بکنم! شاید با یه آواتار زنونه هم مشکل حل بشه.

[sohrabahmadi]

RE: مشكل در گزارش گيري

معذرت ميخوام خانم امير سيافي .نميدونستم .و ممنون بابت زحمتي كه كشيديد و قتي كه گذاشتيد .

[shamsololama]

RE: مشكل در گزارش گيري

باسلام و درود به اساتيد و دوستان گرامي
فايلي دارم كه از شيت 1 آن ميخوام گزارش بگيرم .فرمول اجرا ميشه منتها ميخوام گزارشم تو شيت 2 و توي دو صفحه بياد .يه اشكال كوچيكي داره كه نتونستم درستش كنم .اگه دوستان يه نگاهي بندازن و راهنماييم كنن ممنون ميشم .

http://persiandrive.com/429637

با درود فراوان

در صورتی که صفحه بندی شما همیشه یکسان بوده و تغییری نمیکند یعنی همیشه تا سطر سی ام نیاز داری برای صفحه اول و در صفحه دوم همیشه از سطر چهل و یکم به بعد باید پر بشه
با گذاشتن یک کانتر n=N+1 و یک شرط که اگر n از 30 بیشتر بشه بجای سلکت کردن سل A5 از آن به بعد سل A41 را سلکت کند فکر میکنم چیزی باشد که شما مد نظرتان باشد
و اگر غیر این بود بفرمائید تا دوباره چک کنم

Private Sub CommandButton1_Click()
Dim r As Integer
Sheet1.Activate
Sheet1.Range("N1").Value = TextBox1.Value
Sheet1.Select
r = Sheet1.Cells(Rows.Count, "a").End(xlUp).Row

For i = 1 To r

If Sheet1.Range("N1").Value = Sheet1.Cells(i, 6).Text Then
Sheet2.Select

If n < 30 Then
Range("a5").Select
Else
Range("a41").Select
End If

With Selection
Do

If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
ActiveCell.Offset(0, 0) = WorksheetFunction.Max(Range("a1:a1500")) + 1
ActiveCell.Offset(0, 1) = Sheet1.Cells(i, 2).Value
ActiveCell.Offset(0, 2) = Sheet1.Cells(i, 3).Value
ActiveCell.Offset(0, 3) = Sheet1.Cells(i, 5).Value
ActiveCell.Offset(0, 4) = Sheet1.Cells(i, 6).Value
ActiveCell.Offset(0, 5) = Sheet1.Cells(i, 7).Value
ActiveCell.Offset(0, 6) = Sheet1.Cells(i, 8).Value
n = n + 1
End With
End If
Next
Sheet2.Activate
End Sub


فایل نمونه:

[attachment=938]

[sohrabahmadi]

RE: مشكل در گزارش گيري

از لطف استاد عزيز بي اندازه ممنونم . بله درسته . فقط واسه اطلاعات عمومي اينكه اگه تعداد صفحات به سه يا بيشتر برسه چكار بايد كرد .به شرطي كه صفحات 3 به بعد هم مثل صفحه 2 تعداد رديفهاش 29 باشه ؟.با سپاس از استاد شمس العلماي عزيز.

[shamsololama]

RE: مشكل در گزارش گيري

از لطف استاد عزيز بي اندازه ممنونم . بله درسته . فقط واسه اطلاعات عمومي اينكه اگه تعداد صفحات به سه يا بيشتر برسه چكار بايد كرد .به شرطي كه صفحات 3 به بعد هم مثل صفحه 2 تعداد رديفهاش 29 باشه ؟.با سپاس از استاد شمس العلماي عزيز.

با درود فراوان

یک اینه که همون ایفی که قرار دادیم با اضاف کردن Elseif برای صفحه های بعدی نیز با شرط اینکه تعداد n به مقدار مورد نظر رسید جای سل مبدا رو تغییر بدیهم همانطور که برای صفحه دوم تغییر دادیم
ولی همانطور که میدانید اینکار زمانی که تعداد صفحه های ما زیاد باشد کار جالبی نخواهد شد که در این صورت می توانیم از متغییر و حلقه ها استفاده کنیم که کار ساده تر و زیباتر خواهد بود




Private Sub CommandButton2_Click()

Dim c As Range
Dim b As Range
For Each c In Sheet1.Range("A2:A1000")
n = 0
If c.Offset(0, 5).Text = TextBox1.Text Then
For Each b In Sheet2.Range("A5:A1000").Offset(0 + p, 0)
n = n + 1
If n = 30 Then
p = p + 36
n = 0
End If
If b.Offset(0, 0).Value = "" Then

M = M + 1

b.Offset(0, 0).Value = M
b.Offset(0, 1).Value = c.Offset(0, 1).Value
b.Offset(0, 2).Value = c.Offset(0, 2).Value
b.Offset(0, 3).Value = c.Offset(0, 4).Value
b.Offset(0, 4).Value = c.Offset(0, 5).Value
b.Offset(0, 5).Value = c.Offset(0, 6).Value
b.Offset(0, 6).Value = c.Offset(0, 7).Value

Exit For
End If
Next

End If
Next
End Sub

فایل نمونه:

[attachment=940]

[sohrabahmadi]

RE: مشكل در گزارش گيري

بسيار عالي .ممنون از استاد گرانقدر جناب آقاي شمس العلماي عزيز .