Küsürat aktarma

[Hassy]

Merhabalar, ekteki excel dosyasında küsüratları atıp, atılan küsüratları diğer sütunun üzerine ekleme sorunu var. konu hakkında yardımcı olursanız sevinirim.

 

[Ömer]

Merhaba,

D16:

=D2+E2-E16

E16:

=TABANAYUVARLA(E2;5)

Hücrelerine yazıp alt satırlara kopyalayın.

Eğer farklı bir tabloda değilde aynı tabloda işlemi gerçekleştirmek istiyorsanız makro kullanmak gerekir. Bunu belirtirseniz ona göre yeniden düzenlerim.

 

[Hassy]

hocam ilginize teşekkürler ama, ben aşağıdaki tabloda olması gerekeni örnek olarak verdim, siz formülde onuda kullanmışsınız, o şekil değil de üstteki tabloda ne yapabiliriz acaba, ayrıca tabana yuvarlayınca giden rakam 1,2,3,4lira olduğunu bulup DİĞER alan hücresine yuvarlanan rakamın eklenmesi gerekiyor

 

[Ömer]

Bunun için makro kullanmanız gerekiyor.
Bu şekilde deneyin.

Sub Duzenle()
 
    Dim i As Long, deg As Double
    
    For i = 2 To 8
        deg = WorksheetFunction.Floor(Cells(i, "E"), 5)
        Cells(i, "D") = Cells(i, "D") + Cells(i, "E") - deg
        Cells(i, "E") = deg
    Next i
        
End Sub

.

 

[mustafa1205]

Ömer Hocamın affına sığınarak bir dosya ekliyorum. İnceleyiniz

 

[Hassy]

Değerli hocam ilginize teşekkür ederim, galiba hata bende ben tam anlatamadım,
sanırım sağdan kısmıyla sorunu gidereceğim,
sağdan en son rakamı alıp bir yere yazacam, daha sonra net elegeçen kısmından onu çıkartınca küsüratlar kalkacak, daha sonra o küsüratları da diğer kısmıyla toplayacam, biraz amele işi oldu ama ne yapayım, ben anlatamadım.
olay şöyleydi;
Net elegeçeni mümkün olduğu kadar son haneyi sıfırlayacağım, sıfırlamadan önceki rakamı alıp diğer kısma ekleyecektim, bunu daha kolay daha basit yapabileceğim bir işlem varsa paylaşırsanız sevinirim.

 

[mustafa1205]

Benim anlamadığım birşey var siz benim gönderdiğim eki incelemediniz galiba.Çünkü sizin eklediğiniz dosyanın alt kısmında nasıl olmasını istediğinizi yazmışsınız. Bende olmasını istediğiniz gibi üst kısmı Sevgili Ömer Hocamın formülünü uyarlayarak yaptım. Bir bakın isterseniz...

 

[Ömer]

Değerli hocam ilginize teşekkür ederim, galiba hata bende ben tam anlatamadım,
sanırım sağdan kısmıyla sorunu gidereceğim,
sağdan en son rakamı alıp bir yere yazacam, daha sonra net elegeçen kısmından onu çıkartınca küsüratlar kalkacak, daha sonra o küsüratları da diğer kısmıyla toplayacam, biraz amele işi oldu ama ne yapayım, ben anlatamadım.
olay şöyleydi;
Net elegeçeni mümkün olduğu kadar son haneyi sıfırlayacağım, sıfırlamadan önceki rakamı alıp diğer kısma ekleyecektim, bunu daha kolay daha basit yapabileceğim bir işlem varsa paylaşırsanız sevinirim.

Son verdiğim makro kodlarını denediniz mi? Denediyseniz sonuç neden olumsuz.

 

[Hassy]

Hocam denedim ama çalışmadı, belki benim beceriksizliğimdem kaynaklanmış olabilir, dosya halinde bana gönderebilirseniz duacı olurum.

 

[Ömer]

Hocam denedim ama çalışmadı, belki benim beceriksizliğimdem kaynaklanmış olabilir, dosya halinde bana gönderebilirseniz duacı olurum.

Dosyanız ektedir.
"Yuvarla" butonuna basmanız yeterli olacaktır.

 

[Hassy]

Hocam Çok çok teşekkür ederim. Allah razı olsun sizden