DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Revize ettiğiniz şekilde tekrar önceki modulü silip yeni modul olarak çalıştırdım. Ancak bu kez hata vermedi. Ama hiçbirşey de yapmadı. Yani makroyu çalıştırdım ama hiçbir hareket olmadı maalesef. F8 yapıp adım adım baktım orda da bir hata yok.
Hocam gönderdiğiniz dosyada sayfalardaki formüllerin güncellenmesini istediğini anladığınız belirtmişsiniz. Aslında bizim F2 ve ENTER mantığını kullanma mantığı da tam olarak burdan kaynaklanıyordu. Yani siz son kod çalışmanızda aslında sayfalara "F9" işlemi yaptırıyorsunuz. Ama, hayır. Hücrelerde yer alan formüller için bu işlemiyor. Hücrelerin içerine girip ENTER yapmak gerekiyor Sıfırlanması için. İlk çalışmanızda yani "Has.Formula" şeklinde yazmış olduğunuz kodlar tam olarak F2>>ENTER mantığını karşılıyor ve istenilen sütun ve satırlarda hücreleri sanki F2>ENTER yapmış gibi oluyordu. Ama şu anki "Calculate" şeklinde kodladığınız makro sayfaya aslında "F9" yaptırıyor o nedenle de belirtlien hücre aralıklarındaki hücreler F2>ENTER gibi sıfırlanmıyor aslında. Durumu daha iyi anlaşılır olması için bana gönderdiğiniz bu son dosyada A-B-C sayfalarında R ve S sütunlarında bazı hücreleri geçmiş tarihe çevirdim. Makroyu çalıştırdığınızda tarihlerin şimdiki tarihle güncellenmediğini eski tarihte kaldığını görüceksiniz. Ancak o eski tarihli hücrelerin içine girip ENTER yaptığınızda şimdi tarih sonucu veredğini görüceksiniz. Saygılarımla. Dosya ekte.Dosya Burda.FreezeTimeGeri
Ömer Hocam, size daha önce söylemiş miydim hiç???
Ömer Hocam ondan bahsetmiyorum. Size daha önce söylemiş miydim? Yani; Harika olduğunuzu
Son dediğiniz değişikliklerle kod ekteki gibi oldu. Tekrar tekrar sağolun. Allah razı olsun. 
Sub SIFIRLAMA()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For Each shf In ActiveWorkbook.Sheets
Set s = Sheets(shf.Name)
If shf.Name <> "MAKRO AYARLAR" And shf.Name <> "TABLO" Then
If s.[A1].HasFormula Then s.[A1].Formula = s.[A1].Formula
For sat = 25 To 54
For sut = 18 To 19
If s.Cells(sat, sut).HasFormula Then s.Cells(sat, sut).Formula = s.Cells(sat, sut).Formula
Next
Next
End If
Next
Set s = Nothing
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
MsgBox "İşlem tamamlandı.", vbInformation, "..:: Ömer BARAN ::.."
End SubEyvallah, tarz olarak bir şeyi tamamlamadan peşini bırakmak gibi bir huyum yoktur.Ömer Hocam ondan bahsetmiyorum. Size daha önce söylemiş miydim? Yani; Harika olduğunuzu
Hocam harikasınız. Allah razı olsun. Dediğiniz şekilde revize ettikten sonra artık asıl dosyamda 30 sayfayı tam olarak 3-4 saniye içersinde kusursuz olarak neticelendirdi. Hiçbir hata yok. Nasıl istiyorsak öyle çalışıyor. Çalışmasını istemediğimiz sayfalarda da çalışmıyor. Nasıl mutluyum
Benim için harcadığınız mesai için de teşekkür ederim gerçekten. Hakkınızı ödeyemeyiz.
Rich (BB code):Sub SIFIRLAMA() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual For Each shf In ActiveWorkbook.Sheets Set s = Sheets(shf.Name) If shf.Name <> "MAKRO AYARLAR" And shf.Name <> "TABLO" Then If s.[A1].HasFormula Then s.[A1].Formula = s.[A1].Formula For sat = 25 To 54 For sut = 18 To 19 If s.Cells(sat, sut).HasFormula Then s.Cells(sat, sut).Formula = s.Cells(sat, sut).Formula Next Next End If Next Set s = Nothing Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic MsgBox "İşlem tamamlandı.", vbInformation, "..:: Ömer BARAN ::.." End Sub
Evet hocam, tabiki dosyamı bir gün Teamweaver aracılığı ile sizinle paylaşırım. Bu arada 3-4 dakika değil 3-4 saniye içinde neticelendirdiğimi yazmıştım önceki mesajımda kodda yaptığımız son revize sonrası. Tekrar tekrar çok teşekkür ederim. Geceniz hayırlı olsun. İleride dosyam bittiğinde tüm dosyamı Makrolandırmak istiyorum aslında. Çünkü şu anda biraz hantal çalşıyor. Ama şu andaki asıl amacım da aslında Algoritmik işleyişini, Fonksiyon ve Formüllerle projeyi tamamlamak. O bittiğinde tüm dosyayı Makrolandırma konusunda eğer olursa ilk sizden yararlanmak isterim (ücreti mukabilinde olmak kaydıyla) , şayet siz eğer müsait olamazsanız tavsiyelerinizi dinlerim mutlaka. Hayırlı geceler tekrardan . Çok ama çok teşekkürler yardımlarınız için tekrardan.
İyi geceler.Private Sub Workbook_AfterSave(ByVal Success As Boolean)
Application.Iteration = False
End Sub
Private Sub Workbook_Open()
Application.Iteration = True
End SubTeşekkürler hocam. Bu kodu kaydedip dosyamda istemediğim bir değişikliğe neden olmazsa eğer dediğiniz gibi yapacağım. Çok sağolun tekrardan. İyi geceler.