change_calculate_Modul bu modüle ekledim diğer kodları ve değişiklik yapacaksanız sadece ordan yapacaksınız.
Kimya sayfası son sütun no kod ile otmatik bulundu ve eklendi.
Reçete sayfası b ve D son satır no otomatik bulunup eklendi B sütununda SU yazmak zorunda buna göre buldurdum.
Reçete sayfası son sütun no otomatik bulundu ve Reçete sayfası 2.satırda Fiyat yazmak zorunda buna göre buldurdum sonradan eklemişsiniz bunu ve fiyatın solunda rakam var.
Kısaca teferruatlıca test edein ve bu dosyaya göre yeni konu açın önceki dosyada her sayfa kodunda aynı kod olduğu için bir değişiklikte 200 sayfa varsa hepsinden değiştirmek zorunda kalacaktınız.
Alttaki kodlar sayfa kodları ve bunlarla işiniz olmayacak.Esasen her sayfa koduna bunlarıda yazmadan boş bırakıp Private Sub Workbook_SheetCalculate(ByVal Sh As Object) ve Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) kodları içine alınıp tek burdan işlem yapılabilinirdi ama şartlar koymak gerekecekti uygulamadım.
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
' Eðer B4:B18 arasýnda bir deðiþiklik yapýldýysa
If hucreTargetB = "" Then sonSatirRecelerBveDSutunNo ActiveSheet
If hucreTargetD = "" Then sonSatirRecelerBveDSutunNo ActiveSheet
If Not Intersect(Target, Range(hucreTargetB)) Is Nothing Then change_sayfa_B_Sutun ActiveSheet
If Not Intersect(Target, Range(hucreTargetD)) Is Nothing Then change_sayfa_D_Sutun ActiveSheet
If Not Intersect(Target, Range(hucreTargetG2)) Is Nothing Then change_sayfa_G2 ActiveSheet
End Sub
Private Sub Worksheet_Calculate()
CalculateHesapla ActiveSheet
End Sub
