Yuvarlama makrosu

[kadir78]

İyi günler. Yuvarlama formülünü makro kodlarına çeviremedim. Yardım edermisiniz.

=YUVARLA((EĞER(EHATALIYSA($R5/$Q5*U5);0;($R5/$Q5*U5)));0)

V sütununda 1200 satırda bu formül var bu formülleri makro kodlarına çeviremedim.

 

[Cengiz Demir]

Tam olarak ne istiyorsunuz ? V sütunundaki sonuçlar formülle değil de makro ile mi yazılacak ?
Eğer öyleyse, bu kodlar işinize yarar sanırım.
Formüller 5. satırdan değil de başka satırdan başlıyorsa; For i = 5 To 1200 kodunu isteğinize göre düzenlersiniz.

Dim i, y, r, q, u As Integer


Sub Hesapla()

For i = 5 To 1200

r = Cells(i, "R"): q = Cells(i, "Q"): u = Cells(i, "U")
    
    If q <> 0 Then
    
        y = Round((r / q) * u, 0)
      
         Else: y = 0
    
    End If

Cells(i, "V") = y

Next i

End Sub

 

[Korhan Ayhan]

Bununla ilgili olarak linki inceleyebilirsiniz.

https://www.excel.web.tr/threads/formuelleri-makro-ile-degere-cevirme-uygulamasi.118352/

 

[Haluk]

Dim i, y, r, q, u As Integer

Sadece "u" Integer oldu, diğerleri "Variant"

.

 

[Cengiz Demir]

Haluk üstad, değişken türleri konusuna çok hakim değilim.
Bu makro için doğrusu nasıl olmalı ?

Sadece "u" Integer oldu, diğerleri "Variant"

.

 

[Haluk]

Hepsini ayrı ayrı deklare etmek gerekir....

dim i as integer, y as integer, r as integer ..... gibi.

Ayrıca bilgi için;

Çözüldü - TXT Veri Cekmede Sıkıntı

Merhabalar herkese, Yardimlariniz icin simdiden tesekkur ederim Ekli dosya ile yaptigim txt dosyalarindan veriyi excele aktarmak, excel dosyasi icinde bulundugu klasorde ki tum txt dosyalarini acip verileri her birisi icin ayri acacagi sayfalara aktarmak ( niyetimiz bu sekildeydi, ne kadar...

www.excel.web.tr

.

 

[kadir78]

Tam olarak ne istiyorsunuz ? V sütunundaki sonuçlar formülle değil de makro ile mi yazılacak ?
Eğer öyleyse, bu kodlar işinize yarar sanırım.
Formüller 5. satırdan değil de başka satırdan başlıyorsa; For i = 5 To 1200 kodunu isteğinize göre düzenlersiniz.

Dim i, y, r, q, u As Integer


Sub Hesapla()

For i = 5 To 1200

r = Cells(i, "R"): q = Cells(i, "Q"): u = Cells(i, "U")
   
    If q <> 0 Then
   
        y = Round((r / q) * u, 0)
     
         Else: y = 0
   
    End If

Cells(i, "V") = y

Next i

End Sub

Teşekkür ederim sağolun.

 

[Cengiz Demir]

Teşekkürler bilgilendirme için üstad

Hepsini ayrı ayrı deklare etmek gerekir....

dim i as integer, y as integer, r as integer ..... gibi.

Ayrıca bilgi için;

Çözüldü - TXT Veri Cekmede Sıkıntı

Merhabalar herkese, Yardimlariniz icin simdiden tesekkur ederim Ekli dosya ile yaptigim txt dosyalarindan veriyi excele aktarmak, excel dosyasi icinde bulundugu klasorde ki tum txt dosyalarini acip verileri her birisi icin ayri acacagi sayfalara aktarmak ( niyetimiz bu sekildeydi, ne kadar...

www.excel.web.tr

.

 

[Cengiz Demir]

Rica ederim.
Korhan Ayhan üstadın önerisine de bir bakın derim.
Ben for next döngülerini kullanırım. Ama gözlemlediğime göre with döngüleri daha verimli oluyor gibi.
Bundan sonra ihtiyacım olduğunda, ben de döngüler için; with kullanımını araştırmayı düşünüyorum.

İleride başka kodlama yaparken, işinize yarayabilir sizin de.

Teşekkür ederim sağolun.

 

[kadir78]

Rica ederim.
Korhan Ayhan üstadın önerisine de bir bakın derim.
Ben for next döngülerini kullanırım. Ama gözlemlediğime göre with döngüleri daha verimli oluyor gibi.
Bundan sonra ihtiyacım olduğunda, ben de döngüler için; with kullanımını araştırmayı düşünüyorum.

İleride başka kodlama yaparken, işinize yarayabilir sizin de.

"Bu sayfaya erişim veya bu işlemi gerçekleştirme izniniz yok." Uyarı verdi

 

[Korhan Ayhan]

Forumun ilgili bölümüne erişim için altın üyelik gereklidir.

Benim önerdiğim yöntemde formül belirlenen alana tek seferde yazdırılıp sonrasında değere çevrilmektedir.

Sizin formülü aşağıdaki gibi uygulayabilirsiniz. Hücre aralığını kendinize göre revize edebilirsiniz.

Option Explicit

Sub Test()
    With Range("V5:V1204")
        .Formula = "=ROUND(IFERROR($R5/$Q5*U5,0),0)"
        .Value = .Value
    End With
End Sub

 

[kadir78]

Forumun ilgili bölümüne erişim için altın üyelik gereklidir.

Benim önerdiğim yöntemde formül belirlenen alana tek seferde yazdırılıp sonrasında değere çevrilmektedir.

Sizin formülü aşağıdaki gibi uygulayabilirsiniz. Hücre aralığını kendinize göre revize edebilirsiniz.

Option Explicit

Sub Test()
    With Range("V5:V1204")
        .Formula = "=ROUND(IFERROR($R5/$Q5*U5),0),0)"
        .Value = .Value
    End With
End Sub

Korhan hocam
5 yıllık Altın Üyelik için ödemeyi yaptım aktivasyonu bekliyorum Sağolun

 

[kadir78]

Forumun ilgili bölümüne erişim için altın üyelik gereklidir.

Benim önerdiğim yöntemde formül belirlenen alana tek seferde yazdırılıp sonrasında değere çevrilmektedir.

Sizin formülü aşağıdaki gibi uygulayabilirsiniz. Hücre aralığını kendinize göre revize edebilirsiniz.

Option Explicit

Sub Test()
    With Range("V5:V1204")
        .Formula = "=ROUND(IFERROR($R5/$Q5*U5),0),0)"
        .Value = .Value
    End With
End Sub

Korhan hocam
Run-time error '1004' Hatasını verdi

 

[Korhan Ayhan]

#11 nolu mesajımı revize ettim. Yazarken bir parantez fazla olmuş. Ondan dolayı hata almışsınız.

 

[Zeki Gürsoy]

... değişken türleri konusuna çok hakim değilim.
...

VBA' de pek bilinmeyen veya unutulan ama çok kullanışlı değişken tanımlama özelliği var.

Bakınız... Deftype statements

.

 

[kadir78]

#11 nolu mesajımı revize ettim. Yazarken bir parantez fazla olmuş. Ondan dolayı hata almışsınız.

Korhan hocam hata düzeldi sağolun. Elinize emeğinize sağlık.

 

[Cengiz Demir]

Teşekkürler. Haluk üstad belirttiği linkde, bu tür değişken tipinden de bahsetmiş.

Tanımlama işlemlerini epey kolaylaştırabilecek türde yöntemlermiş.

VBA' de pek bilinmeyen veya unutulan ama çok kullanışlı değişken tanımlama özelliği var.

Bakınız... Deftype statements

.