• DİKKAT

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

Soru For Next Döngüsüne Çevirme

  • Konbuyu başlatan Konbuyu başlatan okan32
  • Başlangıç tarihi Başlangıç tarihi
okan32

okan32

Katılım
12 Mayıs 2016
Mesajlar
386
Excel Vers. ve Dili
Ofis 2019- 32 Bit - Türkçe
Merhaba Arkadaşlar Kolay Gelsin Aşağıdaki makroları kısaltmak için nasıl bir döngüye alabiliriz. Yapmaya çalıştım ama yapamadım.

Kod: 
Sub TEMİZLE()
    cls = MsgBox("ÖDEME KAYITLARINI SİLMEDEN ÖNCE GELECEK YILA DEVİR İŞLEMİNİ YAPINIZ. KAYITLARI SİLMEK İSTEDİĞİNİZDEN EMİNMİSİNİZ!!!?", vbYesNo + vbInformation, "ALİ KOÇ")
If cls = vbYes Then Sheets("Sayfa2").Range("B7:C18").ClearContents
If cls = vbYes Then Sheets("Sayfa3").Range("B7:C18").ClearContents
If cls = vbYes Then Sheets("Sayfa4").Range("B7:C18").ClearContents
If cls = vbYes Then Sheets("Sayfa5").Range("B7:C18").ClearContents
If cls = vbYes Then Sheets("Sayfa6").Range("B7:C18").ClearContents
If cls = vbYes Then Sheets("Sayfa7").Range("B7:C18").ClearContents
If cls = vbYes Then Sheets("Sayfa8").Range("B7:C18").ClearContents
If cls = vbYes Then Sheets("Sayfa9").Range("B7:C18").ClearContents
If cls = vbYes Then Sheets("Sayfa10").Range("B7:C18").ClearContents
If cls = vbYes Then Sheets("Sayfa11").Range("B7:C18").ClearContents
If cls = vbYes Then Sheets("Sayfa12").Range("B7:C18").ClearContents
If cls = vbYes Then Sheets("Sayfa13").Range("B7:C18").ClearContents
If cls = vbYes Then Sheets("Sayfa14").Range("B7:C18").ClearContents
If cls = vbYes Then Sheets("Sayfa15").Range("B7:C18").ClearContents
If cls = vbYes Then Sheets("Sayfa16").Range("B7:C18").ClearContents
If cls = vbYes Then Sheets("Sayfa17").Range("B7:C18").ClearContents
If cls = vbYes Then Sheets("Sayfa18").Range("B7:C18").ClearContents
If cls = vbYes Then Sheets("Sayfa19").Range("B7:C18").ClearContents
If cls = vbYes Then Sheets("Sayfa20").Range("B7:C18").ClearContents
If cls = vbYes Then Sheets("Sayfa21").Range("B7:C18").ClearContents
If cls = vbYes Then Sheets("Sayfa22").Range("B7:C18").ClearContents
If cls = vbYes Then Sheets("Sayfa23").Range("B7:C18").ClearContents
If cls = vbYes Then Sheets("Sayfa24").Range("B7:C18").ClearContents
If cls = vbYes Then Sheets("Sayfa25").Range("B7:C18").ClearContents
If cls = vbYes Then Sheets("Sayfa26").Range("B7:C18").ClearContents
If cls = vbYes Then Sheets("Sayfa27").Range("B7:C18").ClearContents
If cls = vbYes Then Sheets("Sayfa28").Range("B7:C18").ClearContents
If cls = vbYes Then Sheets("Sayfa29").Range("B7:C18").ClearContents
If cls = vbYes Then Sheets("Sayfa30").Range("B7:C18").ClearContents
If cls = vbYes Then Sheets("Sayfa31").Range("B7:C18").ClearContents
If cls = vbYes Then Sheets("Sayfa32").Range("B7:C18").ClearContents
If cls = vbYes Then Sheets("Sayfa33").Range("B7:C18").ClearContents
If cls = vbYes Then Sheets("Sayfa34").Range("B7:C18").ClearContents
If cls = vbYes Then Sheets("Sayfa35").Range("B7:C18").ClearContents
If cls = vbYes Then Sheets("Sayfa36").Range("B7:C18").ClearContents
If cls = vbYes Then Sheets("Sayfa37").Range("B7:C18").ClearContents
If cls = vbYes Then Sheets("Sayfa38").Range("B7:C18").ClearContents
If cls = vbYes Then Sheets("Sayfa39").Range("B7:C18").ClearContents
If cls = vbYes Then Sheets("Sayfa40").Range("B7:C18").ClearContents
If cls = vbYes Then Sheets("Sayfa41").Range("B7:C18").ClearContents
If cls = vbYes Then Sheets("Sayfa42").Range("B7:C18").ClearContents
If cls = vbYes Then Sheets("Sayfa42").Range("B7:C18").ClearContents
If cls = vbYes Then Sheets("Sayfa43").Range("B7:C18").ClearContents
If cls = vbYes Then Sheets("Sayfa44").Range("B7:C18").ClearContents
If cls = vbYes Then Sheets("Sayfa45").Range("B7:C18").ClearContents
If cls = vbYes Then Sheets("Sayfa46").Range("B7:C18").ClearContents
If cls = vbYes Then Sheets("Sayfa47").Range("B7:C18").ClearContents
If cls = vbYes Then Sheets("Sayfa48").Range("B7:C18").ClearContents
If cls = vbYes Then Sheets("Sayfa49").Range("B7:C18").ClearContents
     If cls = vbYes Then MsgBox ("KAYITLAR SİLİNDİ..!!")
End Sub


Sub yıldevir()
cls = MsgBox("KALAN BAKİYEYİ GELECEK YILA DEVİR YAPMAK İSTEDİĞİNİZDEN EMİNMİSİNİZ!!!?", vbYesNo + vbInformation, "ALİ KOÇ")
If cls = vbYes Then Sheets("Sayfa2").Range("b4").Value = Sheets("Sayfa2").Range("b3").Value
If cls = vbYes Then Sheets("Sayfa3").Range("b4").Value = Sheets("Sayfa3").Range("b3").Value
If cls = vbYes Then Sheets("Sayfa4").Range("b4").Value = Sheets("Sayfa4").Range("b3").Value
If cls = vbYes Then Sheets("Sayfa5").Range("b4").Value = Sheets("Sayfa5").Range("b3").Value
If cls = vbYes Then Sheets("Sayfa6").Range("b4").Value = Sheets("Sayfa6").Range("b3").Value
If cls = vbYes Then Sheets("Sayfa7").Range("b4").Value = Sheets("Sayfa7").Range("b3").Value
If cls = vbYes Then Sheets("Sayfa8").Range("b4").Value = Sheets("Sayfa8").Range("b3").Value
If cls = vbYes Then Sheets("Sayfa9").Range("b4").Value = Sheets("Sayfa9").Range("b3").Value
If cls = vbYes Then Sheets("Sayfa10").Range("b4").Value = Sheets("Sayfa10").Range("b3").Value
If cls = vbYes Then Sheets("Sayfa11").Range("b4").Value = Sheets("Sayfa11").Range("b3").Value
If cls = vbYes Then Sheets("Sayfa12").Range("b4").Value = Sheets("Sayfa12").Range("b3").Value
If cls = vbYes Then Sheets("Sayfa13").Range("b4").Value = Sheets("Sayfa13").Range("b3").Value
If cls = vbYes Then Sheets("Sayfa14").Range("b4").Value = Sheets("Sayfa14").Range("b3").Value
If cls = vbYes Then Sheets("Sayfa15").Range("b4").Value = Sheets("Sayfa15").Range("b3").Value
If cls = vbYes Then Sheets("Sayfa16").Range("b4").Value = Sheets("Sayfa16").Range("b3").Value
If cls = vbYes Then Sheets("Sayfa17").Range("b4").Value = Sheets("Sayfa17").Range("b3").Value
If cls = vbYes Then Sheets("Sayfa18").Range("b4").Value = Sheets("Sayfa18").Range("b3").Value
If cls = vbYes Then Sheets("Sayfa19").Range("b4").Value = Sheets("Sayfa19").Range("b3").Value
If cls = vbYes Then Sheets("Sayfa20").Range("b4").Value = Sheets("Sayfa20").Range("b3").Value
If cls = vbYes Then Sheets("Sayfa21").Range("b4").Value = Sheets("Sayfa21").Range("b3").Value
If cls = vbYes Then Sheets("Sayfa22").Range("b4").Value = Sheets("Sayfa22").Range("b3").Value
If cls = vbYes Then Sheets("Sayfa23").Range("b4").Value = Sheets("Sayfa23").Range("b3").Value
If cls = vbYes Then Sheets("Sayfa24").Range("b4").Value = Sheets("Sayfa24").Range("b3").Value
If cls = vbYes Then Sheets("Sayfa25").Range("b4").Value = Sheets("Sayfa25").Range("b3").Value
If cls = vbYes Then Sheets("Sayfa26").Range("b4").Value = Sheets("Sayfa26").Range("b3").Value
If cls = vbYes Then Sheets("Sayfa27").Range("b4").Value = Sheets("Sayfa27").Range("b3").Value
If cls = vbYes Then Sheets("Sayfa28").Range("b4").Value = Sheets("Sayfa28").Range("b3").Value
If cls = vbYes Then Sheets("Sayfa29").Range("b4").Value = Sheets("Sayfa29").Range("b3").Value
If cls = vbYes Then Sheets("Sayfa30").Range("b4").Value = Sheets("Sayfa30").Range("b3").Value
If cls = vbYes Then Sheets("Sayfa31").Range("b4").Value = Sheets("Sayfa31").Range("b3").Value
If cls = vbYes Then Sheets("Sayfa32").Range("b4").Value = Sheets("Sayfa32").Range("b3").Value
If cls = vbYes Then Sheets("Sayfa33").Range("b4").Value = Sheets("Sayfa33").Range("b3").Value
If cls = vbYes Then Sheets("Sayfa34").Range("b4").Value = Sheets("Sayfa34").Range("b3").Value
If cls = vbYes Then Sheets("Sayfa35").Range("b4").Value = Sheets("Sayfa35").Range("b3").Value
If cls = vbYes Then Sheets("Sayfa36").Range("b4").Value = Sheets("Sayfa36").Range("b3").Value
If cls = vbYes Then Sheets("Sayfa37").Range("b4").Value = Sheets("Sayfa37").Range("b3").Value
If cls = vbYes Then Sheets("Sayfa38").Range("b4").Value = Sheets("Sayfa38").Range("b3").Value
If cls = vbYes Then Sheets("Sayfa39").Range("b4").Value = Sheets("Sayfa39").Range("b3").Value
If cls = vbYes Then Sheets("Sayfa40").Range("b4").Value = Sheets("Sayfa40").Range("b3").Value
If cls = vbYes Then Sheets("Sayfa41").Range("b4").Value = Sheets("Sayfa41").Range("b3").Value
If cls = vbYes Then Sheets("Sayfa42").Range("b4").Value = Sheets("Sayfa42").Range("b3").Value
If cls = vbYes Then Sheets("Sayfa43").Range("b4").Value = Sheets("Sayfa43").Range("b3").Value
If cls = vbYes Then Sheets("Sayfa44").Range("b4").Value = Sheets("Sayfa44").Range("b3").Value
If cls = vbYes Then Sheets("Sayfa45").Range("b4").Value = Sheets("Sayfa45").Range("b3").Value
If cls = vbYes Then Sheets("Sayfa46").Range("b4").Value = Sheets("Sayfa46").Range("b3").Value
If cls = vbYes Then Sheets("Sayfa47").Range("b4").Value = Sheets("Sayfa47").Range("b3").Value
If cls = vbYes Then Sheets("Sayfa48").Range("b4").Value = Sheets("Sayfa48").Range("b3").Value
If cls = vbYes Then Sheets("Sayfa49").Range("b4").Value = Sheets("Sayfa49").Range("b3").Value
If cls = vbYes Then MsgBox ("KALAN BAKİYE BAŞARI İLE DEVREDİLDİ..!!")
End Sub
 
Merhaba Temizle için aşağıdaki kodu dener misin?
Kod: 
Sub Temizle()
'Emre
Dim i As Long, sayfa As String, cls As String

cls = MsgBox("ÖDEME KAYITLARINI SİLMEDEN ÖNCE GELECEK YILA DEVİR İŞLEMİNİ YAPINIZ. KAYITLARI SİLMEK İSTEDİĞİNİZDEN EMİNMİSİNİZ!!!?", vbYesNo + vbInformation, "ALİ KOÇ")
If cls = vbYes Then
    For i = 1 To Worksheets.Count
        sayfa = Worksheets(i).Name
        Sheets(sayfa).Range("B7:C18").ClearContents
    Next
    MsgBox ("KAYITLAR SİLİNDİ..!!")
End If
End Sub
 
Böyle deneyin.
Kod: 
Sub TEMİZLE()
    cls = MsgBox("ÖDEME KAYITLARINI SİLMEDEN ÖNCE GELECEK YILA DEVİR İŞLEMİNİ YAPINIZ. KAYITLARI SİLMEK İSTEDİĞİNİZDEN EMİNMİSİNİZ!!!?", vbYesNo + vbInformation, "ALİ KOÇ")
For i = 2 To 49
    If cls = vbYes Then
        Sheets(i).Range("B7:C18").ClearContents
    End If
Next
End Sub

Sub yıldevir()
cls = MsgBox("KALAN BAKİYEYİ GELECEK YILA DEVİR YAPMAK İSTEDİĞİNİZDEN EMİNMİSİNİZ!!!?", vbYesNo + vbInformation, "ALİ KOÇ")

For i = 2 To 49
    If cls = vbYes Then
        Sheets(i).Range("b4").Value = Sheets(i).Range("b3").Value
    End If
Next
End Sub
 
Merhaba;
Deneme yapmadım ama;

Sub TEMİZLE()
On Error Resume Next
cls = MsgBox("ÖDEME KAYITLARINI SİLMEDEN ÖNCE GELECEK YILA DEVİR İŞLEMİNİ YAPINIZ. KAYITLARI SİLMEK İSTEDİĞİNİZDEN EMİNMİSİNİZ!!!?", vbYesNo + vbInformation, "ALİ KOÇ")
If cls = vbYes Then
For i = 2 To 49
Sheets("Sayfa" & i).Range("B7:C18").ClearContents
Next i
End If
If cls = vbYes Then MsgBox ("KAYITLAR SİLİNDİ..!!")
End Sub

Sub yıldevir()
On Error Resume Next
cls = MsgBox("KALAN BAKİYEYİ GELECEK YILA DEVİR YAPMAK İSTEDİĞİNİZDEN EMİNMİSİNİZ!!!?", vbYesNo + vbInformation, "ALİ KOÇ")
If cls = vbYes Then
For i = 2 To 49
Sheets("Sayfa" & i).Range("b4").Value = Sheets("Sayfa" & i).Range("b3").Value
Next i
End If
If cls = vbYes Then MsgBox ("KALAN BAKİYE BAŞARI İLE DEVREDİLDİ..!!")
End Sub

Kodlarını deneyin.
İyi çalışmalar.
 
İlginiz için sayın hamitcan, muygun, EmrExel16 çok teşekkür ederim
 
ÇOK OLUYORUM AMA KUSURUMA BAKMAYIN AŞAĞIDAKİ KODLARI DÖNGÜYE NASIL ALABİLİRİM.

Kod: 
Sub boclulargucelle()
cls = MsgBox("BORÇLULAR LİSTESİNİ GÜNCELLEMEK İSTEDİĞİNİZDEN EMİNMİSİNİZ!!!?", vbYesNo + vbInformation, "ALİ KOÇ")
If cls = vbYes Then Sheets("Borçlular").Range("c3").Value = Sheets("Sayfa2").Range("b3").Value
If cls = vbYes Then Sheets("Borçlular").Range("c4").Value = Sheets("Sayfa3").Range("b3").Value
If cls = vbYes Then Sheets("Borçlular").Range("c5").Value = Sheets("Sayfa4").Range("b3").Value
If cls = vbYes Then Sheets("Borçlular").Range("c6").Value = Sheets("Sayfa5").Range("b3").Value
If cls = vbYes Then Sheets("Borçlular").Range("c7").Value = Sheets("Sayfa6").Range("b3").Value
If cls = vbYes Then Sheets("Borçlular").Range("c8").Value = Sheets("Sayfa7").Range("b3").Value
If cls = vbYes Then Sheets("Borçlular").Range("c9").Value = Sheets("Sayfa8").Range("b3").Value
If cls = vbYes Then Sheets("Borçlular").Range("c10").Value = Sheets("Sayfa9").Range("b3").Value
If cls = vbYes Then Sheets("Borçlular").Range("c11").Value = Sheets("Sayfa10").Range("b3").Value
If cls = vbYes Then Sheets("Borçlular").Range("c12").Value = Sheets("Sayfa11").Range("b3").Value
If cls = vbYes Then Sheets("Borçlular").Range("c13").Value = Sheets("Sayfa12").Range("b3").Value
If cls = vbYes Then Sheets("Borçlular").Range("c14").Value = Sheets("Sayfa13").Range("b3").Value
If cls = vbYes Then Sheets("Borçlular").Range("c15").Value = Sheets("Sayfa14").Range("b3").Value
If cls = vbYes Then Sheets("Borçlular").Range("c16").Value = Sheets("Sayfa15").Range("b3").Value
If cls = vbYes Then Sheets("Borçlular").Range("c17").Value = Sheets("Sayfa16").Range("b3").Value
If cls = vbYes Then Sheets("Borçlular").Range("c18").Value = Sheets("Sayfa17").Range("b3").Value
If cls = vbYes Then Sheets("Borçlular").Range("c19").Value = Sheets("Sayfa18").Range("b3").Value
If cls = vbYes Then Sheets("Borçlular").Range("c20").Value = Sheets("Sayfa19").Range("b3").Value
If cls = vbYes Then Sheets("Borçlular").Range("c21").Value = Sheets("Sayfa20").Range("b3").Value
If cls = vbYes Then Sheets("Borçlular").Range("c22").Value = Sheets("Sayfa21").Range("b3").Value
If cls = vbYes Then Sheets("Borçlular").Range("c23").Value = Sheets("Sayfa22").Range("b3").Value
If cls = vbYes Then Sheets("Borçlular").Range("c24").Value = Sheets("Sayfa23").Range("b3").Value
If cls = vbYes Then Sheets("Borçlular").Range("c25").Value = Sheets("Sayfa24").Range("b3").Value
If cls = vbYes Then Sheets("Borçlular").Range("c26").Value = Sheets("Sayfa25").Range("b3").Value
If cls = vbYes Then Sheets("Borçlular").Range("c27").Value = Sheets("Sayfa26").Range("b3").Value
If cls = vbYes Then Sheets("Borçlular").Range("c28").Value = Sheets("Sayfa27").Range("b3").Value
If cls = vbYes Then Sheets("Borçlular").Range("c29").Value = Sheets("Sayfa28").Range("b3").Value
If cls = vbYes Then Sheets("Borçlular").Range("c30").Value = Sheets("Sayfa29").Range("b3").Value
If cls = vbYes Then Sheets("Borçlular").Range("c31").Value = Sheets("Sayfa30").Range("b3").Value
If cls = vbYes Then Sheets("Borçlular").Range("c32").Value = Sheets("Sayfa31").Range("b3").Value
If cls = vbYes Then Sheets("Borçlular").Range("c33").Value = Sheets("Sayfa32").Range("b3").Value
If cls = vbYes Then Sheets("Borçlular").Range("c34").Value = Sheets("Sayfa33").Range("b3").Value
If cls = vbYes Then Sheets("Borçlular").Range("c35").Value = Sheets("Sayfa34").Range("b3").Value
If cls = vbYes Then Sheets("Borçlular").Range("c36").Value = Sheets("Sayfa35").Range("b3").Value
If cls = vbYes Then Sheets("Borçlular").Range("c37").Value = Sheets("Sayfa36").Range("b3").Value
If cls = vbYes Then Sheets("Borçlular").Range("c38").Value = Sheets("Sayfa37").Range("b3").Value
If cls = vbYes Then Sheets("Borçlular").Range("c39").Value = Sheets("Sayfa38").Range("b3").Value
If cls = vbYes Then Sheets("Borçlular").Range("c40").Value = Sheets("Sayfa39").Range("b3").Value
If cls = vbYes Then Sheets("Borçlular").Range("c41").Value = Sheets("Sayfa40").Range("b3").Value
If cls = vbYes Then Sheets("Borçlular").Range("c42").Value = Sheets("Sayfa41").Range("b3").Value
If cls = vbYes Then Sheets("Borçlular").Range("c43").Value = Sheets("Sayfa42").Range("b3").Value
If cls = vbYes Then Sheets("Borçlular").Range("c44").Value = Sheets("Sayfa43").Range("b3").Value
If cls = vbYes Then Sheets("Borçlular").Range("c45").Value = Sheets("Sayfa44").Range("b3").Value
If cls = vbYes Then Sheets("Borçlular").Range("c46").Value = Sheets("Sayfa45").Range("b3").Value
If cls = vbYes Then Sheets("Borçlular").Range("c47").Value = Sheets("Sayfa46").Range("b3").Value
If cls = vbYes Then Sheets("Borçlular").Range("c48").Value = Sheets("Sayfa47").Range("b3").Value
If cls = vbYes Then Sheets("Borçlular").Range("c49").Value = Sheets("Sayfa48").Range("b3").Value
If cls = vbYes Then Sheets("Borçlular").Range("c50").Value = Sheets("Sayfa49").Range("b3").Value
If cls = vbYes Then MsgBox ("BORÇLULAR LİSTESİ BAŞARI İLE GÜNCELLENDİ..!!")
End Sub


 Sub gelir_gider()
 Sheets("Sayfa50").Range("c3").Value = Sheets("Sayfa2").Range("c19").Value
 Sheets("Sayfa50").Range("c4").Value = Sheets("Sayfa3").Range("c19").Value
 Sheets("Sayfa50").Range("c5").Value = Sheets("Sayfa4").Range("c19").Value
 Sheets("Sayfa50").Range("c6").Value = Sheets("Sayfa5").Range("c19").Value
 Sheets("Sayfa50").Range("c7").Value = Sheets("Sayfa6").Range("c19").Value
 Sheets("Sayfa50").Range("c8").Value = Sheets("Sayfa7").Range("c19").Value
 Sheets("Sayfa50").Range("c9").Value = Sheets("Sayfa8").Range("c19").Value
 Sheets("Sayfa50").Range("c10").Value = Sheets("Sayfa9").Range("c19").Value
 Sheets("Sayfa50").Range("c11").Value = Sheets("Sayfa10").Range("c19").Value
 Sheets("Sayfa50").Range("c12").Value = Sheets("Sayfa11").Range("c19").Value
 Sheets("Sayfa50").Range("c13").Value = Sheets("Sayfa12").Range("c19").Value
 Sheets("Sayfa50").Range("c14").Value = Sheets("Sayfa12").Range("c19").Value
 Sheets("Sayfa50").Range("c15").Value = Sheets("Sayfa14").Range("c19").Value
 Sheets("Sayfa50").Range("c16").Value = Sheets("Sayfa15").Range("c19").Value
 Sheets("Sayfa50").Range("c17").Value = Sheets("Sayfa16").Range("c19").Value
 Sheets("Sayfa50").Range("c18").Value = Sheets("Sayfa17").Range("c19").Value
 Sheets("Sayfa50").Range("c19").Value = Sheets("Sayfa18").Range("c19").Value
 Sheets("Sayfa50").Range("c20").Value = Sheets("Sayfa19").Range("c19").Value
 Sheets("Sayfa50").Range("c21").Value = Sheets("Sayfa20").Range("c19").Value
 Sheets("Sayfa50").Range("c22").Value = Sheets("Sayfa21").Range("c19").Value
 Sheets("Sayfa50").Range("c23").Value = Sheets("Sayfa22").Range("c19").Value
 Sheets("Sayfa50").Range("c24").Value = Sheets("Sayfa23").Range("c19").Value
 Sheets("Sayfa50").Range("c25").Value = Sheets("Sayfa24").Range("c19").Value
 Sheets("Sayfa50").Range("c26").Value = Sheets("Sayfa25").Range("c19").Value
 Sheets("Sayfa50").Range("c27").Value = Sheets("Sayfa26").Range("c19").Value
 Sheets("Sayfa50").Range("c28").Value = Sheets("Sayfa27").Range("c19").Value
 Sheets("Sayfa50").Range("c29").Value = Sheets("Sayfa28").Range("c19").Value
 Sheets("Sayfa50").Range("c30").Value = Sheets("Sayfa29").Range("c19").Value
 Sheets("Sayfa50").Range("c31").Value = Sheets("Sayfa30").Range("c19").Value
 Sheets("Sayfa50").Range("c32").Value = Sheets("Sayfa31").Range("c19").Value
 Sheets("Sayfa50").Range("c33").Value = Sheets("Sayfa32").Range("c19").Value
 Sheets("Sayfa50").Range("c34").Value = Sheets("Sayfa33").Range("c19").Value
 Sheets("Sayfa50").Range("c35").Value = Sheets("Sayfa34").Range("c19").Value
 Sheets("Sayfa50").Range("c36").Value = Sheets("Sayfa35").Range("c19").Value
 Sheets("Sayfa50").Range("c37").Value = Sheets("Sayfa36").Range("c19").Value
 Sheets("Sayfa50").Range("c38").Value = Sheets("Sayfa37").Range("c19").Value
 Sheets("Sayfa50").Range("c39").Value = Sheets("Sayfa38").Range("c19").Value
 Sheets("Sayfa50").Range("c40").Value = Sheets("Sayfa39").Range("c19").Value
 Sheets("Sayfa50").Range("c41").Value = Sheets("Sayfa40").Range("c19").Value
 Sheets("Sayfa50").Range("c42").Value = Sheets("Sayfa41").Range("c19").Value
 Sheets("Sayfa50").Range("c43").Value = Sheets("Sayfa42").Range("c19").Value
 Sheets("Sayfa50").Range("c44").Value = Sheets("Sayfa43").Range("c19").Value
 Sheets("Sayfa50").Range("c45").Value = Sheets("Sayfa44").Range("c19").Value
 Sheets("Sayfa50").Range("c46").Value = Sheets("Sayfa45").Range("c19").Value
 Sheets("Sayfa50").Range("c47").Value = Sheets("Sayfa46").Range("c19").Value
 Sheets("Sayfa50").Range("c48").Value = Sheets("Sayfa47").Range("c19").Value
 Sheets("Sayfa50").Range("c49").Value = Sheets("Sayfa48").Range("c19").Value
 Sheets("Sayfa50").Range("c50").Value = Sheets("Sayfa49").Range("c19").Value
 Sheets("gelirgider").Range("d4").Value = Sheets("Sayfa50").Range("c51").Value
 
 MsgBox "AİDAT VE KÖMÜR GELİRLERİ BAŞARI İLE GÜNCELLENDİ.!!!", vbInformation, "ALİ KOÇ"
 
 End Sub
 
Bu kodu bir dene

Kod: 
Sub boclulargucelle()
cls = MsgBox("BORÇLULAR LİSTESİNİ GÜNCELLEMEK İSTEDİĞİNİZDEN EMİNMİSİNİZ!!!?", vbYesNo + vbInformation, "ALİ KOÇ")
If cls = vbYes Then
For i = 3 To 50
Sheets("Borçlular").Range("c" & i).Value = Sheets("Sayfa" & i - 1).Range("b3").Value
Next i
MsgBox ("BORÇLULAR LİSTESİ BAŞARI İLE GÜNCELLENDİ..!!")
End If
End Sub


Sub gelir_gider()
sayf = "Sayfa"
For i = 3 To 50
Sheets("Sayfa50").Range("c" & i).Value = Sheets(sayf & i - 1).Range("c19").Value
Next i
MsgBox "AİDAT VE KÖMÜR GELİRLERİ BAŞARI İLE GÜNCELLENDİ.!!!", vbInformation, "ALİ KOÇ"
End Sub
 
Son düzenleme:
Alternatif olarak
Kod: 
Sub boclulargucelle()
    cls = MsgBox("BORÇLULAR LİSTESİNİ GÜNCELLEMEK İSTEDİĞİNİZDEN EMİNMİSİNİZ!!!?", vbYesNo + vbInformation, "ALİ KOÇ")
    If cls = vbYes Then
        For i = 2 To 49
            Sheets("Borçlular").Range("c" & i + 1).Value = Sheets(i).Range("b3").Value
        Next
    End If
End Sub

Sub gelir_gider()
    For i = 2 To 49
        Sheets("Sayfa50").Range("c" & i + 1).Value = Sheets(i).Range("c19").Value
    Next
    Sheets("gelirgider").Range("d4").Value = Sheets("Sayfa50").Range("c51").Value
    MsgBox "AİDAT VE KÖMÜR GELİRLERİ BAŞARI İLE GÜNCELLENDİ.!!!", vbInformation, "ALİ KOÇ"
End Sub
 
Çok teşekkür ederim Halit bey ve EmrExcel16 kodlar gayet güzel çalıştı.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst