[حل شده] انتقال اطلاعات از شیت یک به دو

[rayeagni]

سلام دوستان
در شیت یک، 100 واحد داریم (ممکنه در آینده زیاد هم بشن)، می خواهیم اطلاعاتش را مثل جدول مقابل به شیت دو انتقال بدیم. هر ماه این اطلاعات تغییر می کنه و یک دوره به حساب میاد که در شیت دو آرشیو میشه. میخواهم هر ماه اطلاعت جدید در یک ردیف قرارداده بشه.
داده های شیت یک عمودی هستن ولی در شیت دو باید افقی قرار داده بشن
لطفا در مورد نحوه کدنویسی vba و انتقال داده ها راهنمایی بفرمایید...
خیلی ممنون

[Amir Ghasemiyan]

سلام دوست عزيز
اگر قصد داريد ساختار ديتابيسي ايجاد كنيد بايد عرض كنم ساختار مناسبي انتخاب نكرديد اما به هر حال من كد مورد نظر شما رو نوشتم. البته براي فايل اصلي شما قطعا نياز به يكسري تغييرات جزئي داره

Sub EI_bills()
Dim arr() As Long: ReDim arr(0)
For i = 4 To 1000
    If Sheet1.Range("E" & i).Value <> "" Then
        'ReDim Preserve arr(UBound(arr) + 5)
        ar = Sheet1.Range("C" & i + 1, "C" & i + 5)
        arr = add_array(ar, arr)
    End If
Next i


lrow = Sheet2.Range("A" & Sheet2.Rows.Count).End(xlUp).Row
Sheet2.Range("A" & lrow + 1) = Application.WorksheetFunction.Max(Sheet2.Range("A:A")) + 1
Sheet2.Range("B" & lrow + 1, "Z" & lrow + 1) = arr
End Sub


Function add_array(ar1, ar2)
Dim arr()
j = UBound(ar2)
For i = LBound(ar1, 1) To UBound(ar1, 1)
        ar2(j) = ar1(i, 1)
        j = j + 1
        ReDim Preserve ar2(j)
Next i
add_array = ar2
End Function

[rayeagni]

امیرخان دستت درد نکنه. میشه در مورد ساختار فایل کمی راهنمایی بفرمایید... یک دنیا ممنون

[Amir Ghasemiyan]

خواهش ميكنم

ساختار مناسب ساختاريه كه تعداد ستون حداقل تغييرات رو داشته باشه. در مثال شما اگر يك واحد اضافه بشه يا كم بشه پنج ستون كم و زياد ميشه و اين اصلا جالب نيست
بهترين ساختاري كه من به نظرم ميرسه اينطوريه:
رديف / شماره دوره / شماره واحد / هزينه آب / هزينه برق / هزينه گاز / هزينه هاي جانبي / جمع كل

500 ستون شد 8 ستون

حتي ميشه ستون جمع كل رو هم حذف كرد اما براي راحتي كار باشه بهتره به نظرم

هر گزارشي هم كه نياز داشته باشيد ميتونين با pivot table به راحتي بگيريد

[rayeagni]

در اصل قراره برای هر واحد قبض هزینه صادر بشه به همین خاطر مجبور شدم اینطوری طراحیش. تا شبیه قبض های شهر بشه

[rayeagni]

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

[Amir Ghasemiyan]

شما از آخر اومدين اول

شما اطلاعاتتون رو بايد به همون صورتي كه گفتم تو ديتابيستون وارد كنيد بعد يك شيت داشته باشيد كه شبيه قبض باشه و يك سلول باشه كه نشون دهنده شماره واحد و يك سلول هم تاريخ
با داشتن اين دو آيتم ميشه خيلي راحت همه اطلاعات رو از ديتابيس استخراج كرد و در قبضتون قرار داد. اينطوري نيازي نيست براي 100 واحد قبض تهيه كنيد

[rayeagni]

امیرخان راهنمایی خیلی خوبی بود. مرسی
ولی قسمت دیتابیسش رو نمیتونم خوب طراحی کنم. چیز خوبی از کار در نماید ؟؟!!!! 😋
امکانش هست یک فایل نمونه بذارید؟ یک دنیا ممنون 🙏

[Amir Ghasemiyan]

امیرخان راهنمایی خیلی خوبی بود. مرسی
ولی قسمت دیتابیسش رو نمیتونم خوب طراحی کنم. چیز خوبی از کار در نماید ؟؟!!!! ������
امکانش هست یک فایل نمونه بذارید؟ یک دنیا ممنون ������

ساختار ديتابيس حكم خشت اول رو داره براي معمار

ساختار ديتابيسش رو كه عرض كردم خدمتون

رديف / شماره دوره / شماره واحد / هزينه آب / هزينه برق / هزينه گاز / هزينه هاي جانبي / جمع كل

اين بهترين ساختار ديتابيس هست كه من به ذهنم ميرسه

شما با اين ساختار ديتابيس رو طراحي كنيد و تو يك شيت ديگه يك قبض برق و آب و گاز طراحي كنيد تا تو فرمول نويسياش راهنماييتون كنم

[rayeagni]

امیرخان ازت ممنونم که وقت میذاری داداش
فایل دیتابیس رو اینجوری درستش کردم، ببینید درسته

[Amir Ghasemiyan]

امیرخان ازت ممنونم که وقت میذاری داداش
فایل دیتابیس رو اینجوری درستش کردم، ببینید درسته

خواهش ميكنم

بله تقريبا درسته. فقط نكته اي كه هست اينه كه در ديتابيس نبايد سلول مرج شده داشته باشيم اما فكر نميكنم تو كار شما خللي ايجاد كنه
همين موارد رو ميتونين براي گاز و برق هم در دو شيت ديگه ايجاد كنيد و با استفاده از تابع vlookup قبض ها رو درست كنيد

[rayeagni]

دست شما درد نکنه ساختار دیتابیس کمک خوبی بود

[Amir Ghasemiyan]

دست شما درد نکنه ساختار دیتابیس کمک خوبی بود

خواهش ميكنم.
اگر پاسخ سوالتون رو دريافت كردين لطفا تاپيك رو حل شده كنيد