İkİ Makroyu Tek DÜĞme Ye Atadim Ancak Basİt Bİr Kodda Takildim

[hakpin]

kod hatasına bir yardım lütfen

Değerli üstadlarım;
iki ayrı makroyu tek düğme altında birleştirdim.Yalnız kodda olan bir eksiklik veya yanlışlık yüzünden müşteri sayfasına aktardığımızda benim istediğim gibi
aktarmamakta .Ayrıntılı bilgiyi ekteki proğramın giriş sayfasındaki açıklamada anlatmaya çalıştım.Yardımcı olursanız çok seviniri. Ellerinize ve bilginize sağlık.

 

[Mahmut Kök]

Sheets(sayfa).Cells(sOn + 7, "am") = Date
yeni = eski + [aj31]
Sheets(sayfa).Cells(sOn + 7, "an") = [aj31] - eski
Sheets(sayfa).Cells(sOn + 7, "ao") = [ac35]
Range("ac35:bg35").ClearContents
MsgBox "Bilgileriniz aktarılmıştır"


yukarıdaki koddaki ikinci satırı silin ve üçüncü satırdaki kodda bulunan [aj31] ifadesini 'yeni' ile değiştirin.

yani;


Sheets(sayfa).Cells(sOn + 7, "am") = Date

Sheets(sayfa).Cells(sOn + 7, "an") = yeni - eski
Sheets(sayfa).Cells(sOn + 7, "ao") = [ac35]
Range("ac35:bg35").ClearContents
MsgBox "Bilgileriniz aktarılmıştır"