merhabalar,
aşağıdaki macroyu çalıştırdığımda dosya kaydedilip kapatılıyor. tekrar açıldığında dosyaya sadece benim müdahele edip içinde değişiklik yapmama için ne öneririsniz. teşekkürler.
Sub auto_open()
Dim i, k, l As Integer
i = 1
k = 0
Do While i < Worksheets.Count
Worksheets(i).Select
Range("a11:a100").Select
k = k + Application.Count(Selection)
If k > 200 Then
MsgBox (" 1 ve 2 Gruplarında Aylık Limitlerdeki değişim Sayısını Aşmış bulunmaktasınız")
ActiveWorkbook.Save
ActiveWorkbook.Close
GoTo g
End If
i = i + 1
Loop
aciklama = "Bu ayki Asortman değişim sürecinde 1 ve 2 Grubunda Toplam " & k & " Tane ürün değişikliği talep edilmiştir"
dugme = vbCritical
baslik = "Toplam Değişimi İştenilen ürün sayısı"
cevap = MsgBox(aciklama, dugme, baslik)
GoTo g
g:
End Sub
aşağıdaki macroyu çalıştırdığımda dosya kaydedilip kapatılıyor. tekrar açıldığında dosyaya sadece benim müdahele edip içinde değişiklik yapmama için ne öneririsniz. teşekkürler.
Sub auto_open()
Dim i, k, l As Integer
i = 1
k = 0
Do While i < Worksheets.Count
Worksheets(i).Select
Range("a11:a100").Select
k = k + Application.Count(Selection)
If k > 200 Then
MsgBox (" 1 ve 2 Gruplarında Aylık Limitlerdeki değişim Sayısını Aşmış bulunmaktasınız")
ActiveWorkbook.Save
ActiveWorkbook.Close
GoTo g
End If
i = i + 1
Loop
aciklama = "Bu ayki Asortman değişim sürecinde 1 ve 2 Grubunda Toplam " & k & " Tane ürün değişikliği talep edilmiştir"
dugme = vbCritical
baslik = "Toplam Değişimi İştenilen ürün sayısı"
cevap = MsgBox(aciklama, dugme, baslik)
GoTo g
g:
End Sub