orijinal ve düzenlemeler yapılmış çalışma ektedir
hnakis, 15-10-2009 tarihinden beri AccessTr.neT üyesidir.
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
(26/11/2023, 19:40)feraz yazdı: Son olarak şunu yazayım ve konuyun kapatayım.
Eğer 3 sayfanız(Kimya,Fiyat,SayfaListeleri) sabit olacak ve diğerleri hep reçete sayfası olacak ve aynı formatta olacaksa resimdeki gibi kod Bu çalışma kitabı konuna yazılıp reçete sayfalarına kodlar yazılmazdıç.Dosyayı inceleyebilirsiniz.
Yada reçete sayfa adları Reçete ile başlıyorsa koda onda göre şart eklenebilinirdi.Tercih sizin kolay gelsin.