Döngüyü Saglayamıyorum

[Falkent]

http://rapidshare.com/files/292331320/KrediTaksitlendirme.xls.html

Arkadaşlar Şu Exel Dosyası İcin Her satır İcin Kod Yazmam Gerekiyor Bun döngü haline Getirebilecek olan varmı 1 sayfa icin her satıra kod yazmam gerekiyor

 

[uzmanamele]

merhaba

sorularınızı mesajınız içersinde açıklamaya çalışınız.
çözebilecek olan arkadaşlar dosyayı indirir, bizi aşıyorsa ilgilenmeyiz.
sorunuzun ne olduğunu anlayabilmemiz için rapidden dosyanızı indirmemizi beklemeyiniz!

 

[Falkent]

Şöyle Anlatıyım Ozaman Şimdi Exele Ben Bitane Buton Attım Butan Tıklanınca kİşinin Borcu Ve Vadesini Hesaplıyor Hesaplama İşleminde Her Satır İcin Kod Yazmam Gerekiyor Bunu Yazmadan Dongu Halıne Nasıl Donusturebilirim

Kod :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("h111")) Is Nothing Then Exit Sub
TableauAnTrimestre1
End Sub

Sub TableauAnTrimestre1()
'Sil
Range("h2").Select
Range("h2:ae21").Select
Selection.ClearContents
'Taksitlendir
For An = 1 To [g2]
Cells(2, An + 7).Value = [Int(f2 / g2)]
Next An
Range("h2").Select
'Farkları ilk aya yükleme
Range("h2").Value = Range("f2").Value - ([Int(f2 / g2)]) * (Range("g2").Value - 1)
End Sub

Sub TableauAnTrimestre2()
'Taksitlendir
For An = 1 To [g3]
Cells(3, An + 7).Value = [Int(f3 / g3)]
Next An
Range("h3").Select
'Farkları ilk aya yükleme
Range("h3").Value = Range("f3").Value - ([Int(f3 / g3)]) * (Range("g3").Value - 1)
End Sub

Sub TableauAnTrimestre3()
'Taksitlendir
For An = 1 To [g4]
Cells(4, An + 7).Value = [Int(f4 / g4)]
Next An
Range("h4").Select
'Farkları ilk aya yükleme
Range("h4").Value = Range("f4").Value - ([Int(f4 / g4)]) * (Range("g4").Value - 1)
End Sub

 

[Falkent]

Module1 için Kod :

Sub Makro1()

Application.Run "KrediTaksitlendirme.xls!Sayfa1.TableauAnTrimestre1"
Application.Run "KrediTaksitlendirme.xls!Sayfa1.TableauAnTrimestre2"
Application.Run "KrediTaksitlendirme.xls!Sayfa1.TableauAnTrimestre3"

End sub

 

[Falkent]

Arkadaşlar Ne Olur Yardım Edin

 

[Falkent]

Neyse Anlaşılan Yapabilen Yok Yenede Herkesten Allah Razı Olsun Teşekkürler

 

[uzmanamele]

Neyse Anlaşılan Yapabilen Yok Yenede Herkesten Allah Razı Olsun Teşekkürler

merhaba
bir kez daha söylemekte fayda var sanıyorum.
zahmet olmazsa örnek dosyanızı rapid üzerinden göndermeyiniz, mesajınıza ek yapınız.

 

[Falkent]

Hım Anladım Hocam kusura bakmayın yeni farkettim dosya ekleme komutunu özür dilerim )

 

[Falkent]

? yapabilen

 

[onlineshow]

İşlem Tamam

Makroyu döngüye göre düzenledim. İstersen 65000 satıra kadar yazıp işlem yapabilirsin.

Umarım işine yarar. İşin içine döngü girince kod bayağı kısaldı ama iadre edersin.

 

[Falkent]

Teşekkür Ederim Allah Muradına Erdirsin Cok Makbule Gecti Gercekten