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

okan32

okan32

Altın Üye
Katılım
12 Mayıs 2016
Mesajlar
386
Excel Vers. ve Dili
Ofis 2019- 32 Bit - Türkçe
Altın Üyelik Bitiş Tarihi
16-04-2026
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
 
E

EmrExcel16

Destek Ekibi
Destek Ekibi
Katılım
1 Kasım 2012
Mesajlar
1,524
Excel Vers. ve Dili
Office 365 Türkçe
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
 
H

hamitcan

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,761
Excel Vers. ve Dili
Excel 2019 Türkçe
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
 
muygun

muygun

Özel Üye
Katılım
6 Temmuz 2004
Mesajlar
9,224
Excel Vers. ve Dili
Excel-2003 Türkçe
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.
 
okan32

okan32

Altın Üye
Katılım
12 Mayıs 2016
Mesajlar
386
Excel Vers. ve Dili
Ofis 2019- 32 Bit - Türkçe
Altın Üyelik Bitiş Tarihi
16-04-2026
İlginiz için sayın hamitcan, muygun, EmrExel16 çok teşekkür ederim
 
okan32

okan32

Altın Üye
Katılım
12 Mayıs 2016
Mesajlar
386
Excel Vers. ve Dili
Ofis 2019- 32 Bit - Türkçe
Altın Üyelik Bitiş Tarihi
16-04-2026
Ç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
 
okan32

okan32

Altın Üye
Katılım
12 Mayıs 2016
Mesajlar
386
Excel Vers. ve Dili
Ofis 2019- 32 Bit - Türkçe
Altın Üyelik Bitiş Tarihi
16-04-2026
Yardım Lütfen!!
 
halit3

halit3

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,873
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
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:
E

EmrExcel16

Destek Ekibi
Destek Ekibi
Katılım
1 Kasım 2012
Mesajlar
1,524
Excel Vers. ve Dili
Office 365 Türkçe
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
 
okan32

okan32

Altın Üye
Katılım
12 Mayıs 2016
Mesajlar
386
Excel Vers. ve Dili
Ofis 2019- 32 Bit - Türkçe
Altın Üyelik Bitiş Tarihi
16-04-2026
Ç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.
Üst