FORMÜL SONUCU DEĞİŞEN RAKAMLAR

[met07]

FORMÜL SONUCU DEÐÝÞEN RAKAMLAR

herkese kolay gelsin
formüller sonucunda çıkan toplamı d10 dan başlayarak aşağıya doğru boş olan ilk satıra yazdırmak istiyorum. makroyu çalıştırınca benim sonucumu boş olan satıra yazdırsın.
yardımlarınızı bekliyorum. teşekkürler :hey:

 

[xxrt]

formüller sonucunda çıkan toplamı

Bu Formüller nerede?

çıkan toplamı d10 dan başlayarak aşağıya doğru boş olan ilk satıra yazdırmak istiyorum.

D10 Hücresinden sonraki ilk satıra birinci aşamada Sonucu yazdırdıktan sonra o sonuç duracakmı?Biraz detaylandırırsanız veya çalışmanızı ataçlarsanız Güzel olacak.

 

[met07]

makro

işlemleri formülledim. örneğin sonucu b15 e yazıyor. ikinci bir işlem yaptığım zaman sonuç değişiyor haliyle. ben her işlemin sonucunu bir liste halinde yan tarafta görmek istiyorum. üstte yazanlar kalacak.

 

[Hüseyin]

Sayın met07,
bu şekilde bilmece çözmeye benzeyecek.
Anlatmak istediğinizi bir dosya olarak örnekleyip ekleyebilirmisiniz.

 

[met07]

genel toplamı ve vadesiz toplamını yandaki listeye yazdırmak istiyorum. birkaç farklı işlem sonucunu görebilmem için teşekkürler

 

[xxrt]

Sorumuz:Belli Bir Hücredeki formüllü/formülsüz toplam/verileri,Aynı veya Ayrı sayfanın Bir Hücresine Aktarmak.Aktarma şekli altalta olmalı

Ã?rnek Dosyada :

Sub Kopyala()
Range("d35").Select
Selection.Copy
Range("g12").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveSheet.Paste
Range("d35").Select
Application.CutCopyMode = False
End Sub

Düzeltme:Hek İki Sayfa içinse

Sub Kopyala()
Range("d35").Select
Selection.Copy
Range("g12").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveSheet.Paste
Range("d35").Select
Application.CutCopyMode = False
Sheets("VADESİZ").Select
Range("d35").Select
Selection.Copy
Sheets("VADELİ").Select
Range("j12").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveSheet.Paste
Range("d35").Select
Application.CutCopyMode = False
Range("A1").Select

MyQ = MsgBox("Vadeli Yekün=" & Sheets("VADELİ").Range("G35"), vbYesNo, "Dikkat !")

Range("a1").Select
If MyQ = vbYes Then
MyQ = MsgBox("Vadesiz Yekün=" & Sheets("VADELİ").Range("J35"), vbCritical, "Dikkat !")
End If
End Sub

 

[met07]

bu kodlarla aynı sayfadaki sonuçlar tamam. ama başka sayfadan formülle alınan değerleri yine formülle atıyor. bunu sedace değerleri atacak şekilde nasıl yazarız.
ilginize teşekkürler :hey:

 

[met07]

SORUN ÇÃ?ZÜLDÜ TEÞEKÜR EDERİM

 

[met07]

SELAM
Bir problem çıktı çözemedim. Ataçla gönderiyorum. Bakmamız mümkünmü?

 

[Levent Menteşoğlu]

Sn met07

Ekteki örnekte düzenleme yaptım. Sanırım isteğinizi karşılar. Fakat tabloda birleştirilmiş hücreler olması biraz sorun oldu. Bu tabloyu ayrı bir sayfada düzenlerseniz kod dahada kısalır.


selamlar

 

[met07]

Sn leventm teşekkür ederim. Yazdıklarınız işimi görür. Ama yinede ayrı bir sayfada daha fazla satır için
ne yapmam gerekir diye sorsam çok şeymi isterim.

 

[Levent Menteşoğlu]

Sn met07

yardımcı olabildiysem ne mutlu bana, ayrı bir sayfa için bir örnek gönderirseniz. Yardımcı olmaya çalışırım.


selamlar