• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Döngüyü Saglayamıyorum

  • Konbuyu başlatan Konbuyu başlatan Falkent
  • Başlangıç tarihi Başlangıç tarihi
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!
 
Şö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
 
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
 
Neyse Anlaşılan Yapabilen Yok Yenede Herkesten Allah Razı Olsun Teşekkürler
 
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.
 
Hım Anladım Hocam kusura bakmayın yeni farkettim dosya ekleme komutunu özür dilerim :))
 

Ekli dosyalar

İş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.
 

Ekli dosyalar

Teşekkür Ederim Allah Muradına Erdirsin Cok Makbule Gecti Gercekten :)
 
Geri
Üst