Çok eski bir web tarayıcısı kullanıyorsunuz. Bu veya diğer siteleri görüntülemekte sorunlar yaşayabilirsiniz.. Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
biri açılışta merkez bankası kurlarını güncelleyen aşağıdaki makro
Sub Autpen()
'Currency_Refresh
ActiveWorkbook.RefreshAll
End Sub
diğeri kurlarda bazen ondalık hatası oluyor, onu düzelten aşağıdaki makro
Sub Kur_Duzeltme()
Sheets("CUR").Select
Range("F6").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-1]>=10000,RC[-1]/10000,IF(RC[-1]>=1000,RC[-1]/1000,IF(RC[-1]>=100,RC[-1]/100,IF(RC[-1]>=10,RC[-1]/10,IF(RC[-1]<10,RC[-1])))))"
Selection.AutoFill Destination:=Range("F6:F23"), Type:=xlFillDefault
Range("F6:F23").Select
Selection.Copy
Range("E6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Data").Select
End Sub
bu iki makroyu sırayla önce kur güncelleme, sonra düzeltme olarak nasıl çalıştırabilirim?
tşk ederim
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.