- Katılım
- 15 Temmuz 2012
- Mesajlar
- 2,790
- Excel Vers. ve Dili
- Ofis 2021 TR 64 Bit
- Altın Üyelik Bitiş Tarihi
- 29.03.2025
Merhaba hayırlı geceler.
Ekte gönderdiğim excel dosyamda ondalıklı sayılar var aşağıdaki kodu uyguluyorum ama sonuç alamıyorum.
Hücre içerisine mouse ile veya F2 ile girip enter ile çıktığımda sayılar düzeliyor, bunu topluca makro ile düzelte bilir miyiz?
Yardımcı olur musunuz?
Ekte gönderdiğim excel dosyamda ondalıklı sayılar var aşağıdaki kodu uyguluyorum ama sonuç alamıyorum.
Hücre içerisine mouse ile veya F2 ile girip enter ile çıktığımda sayılar düzeliyor, bunu topluca makro ile düzelte bilir miyiz?
Yardımcı olur musunuz?
Kod:
Sub SayılarıDüzelt()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationAutomatic
Range("A1") = 1
Range("A1").Copy
Range("N4:AA500").PasteSpecial Paste:=xlPasteAll, operation:=xlMultiply
Application.CutCopyMode = False
Range("N4:AA500").Replace What:="0", Replacement:="", Lookat:=xlWhole, Searchorder:=xlByRows 'Sıfırları yok et
Application.ScreenUpdating = True
Range("A1").Select
CreateObject("WScript.Shell").Popup "İşlem tamam!..", 1, "A S L A N", vbInformation
End Su
Ekli dosyalar
-
18 KB Görüntüleme: 7