Kod açıklaması

[Erdinç FIRTINA]

Değerli üyeler,

Sorduğum koddaki satır açıklaması ile ilgili cevap alamadım. Hiç değilse şu kodun genel olarak açıklamasını yaparak gelişmemize katkıda bulunacak olabilir mi?

Şimdiden teşekkürler!!!

Sub aktar()
Dim sno As Long, sat2 As Long, sat As Long, sonsat As Long
Dim i As Integer, k As Long
Application.ScreenUpdating = False
Sheets("GELİRLER").Range("A3:E65536").ClearContents
sno = 1: sat2 = 3
For i = 1 To Worksheets.Count
If Sheets(i).Name >= 1 And Sheets(i).Name <= 31 Then
sat = Sheets(i).Cells(15, "H").End(xlUp).Row
If sat >= 4 Then
For k = 4 To sat
adr1 = Range(Cells(k, "G"), Cells(k, "I")).Address
adr2 = Range(Cells(sat2, "B"), Cells(sat2, "D")).Address
Cells(sat2, "A").Value = sno
Sheets("GELİRLER").Range(adr2).Value = Sheets(i).Range(adr1).Value
Sheets("GELİRLER").Cells(sat2, "E").Value = Sheets(i).Range("F1").Value
sat2 = sat2 + 1
sno = sno + 1
Next k
End If
End If
Next i
sonsat = Sheets("GELİRLER").Cells(65536, "C").End(xlUp).Row
Sheets("GELİRLER").Cells(sonsat + 1, "C").Value = "TOPLAM...YTL...:"
Sheets("GELİRLER").Cells(sonsat + 1, "D").Value = _
WorksheetFunction.Sum(Sheets("GELİRLER").Range("D3" & sonsat))
Application.ScreenUpdating = True
MsgBox "İŞLEM TAMAMLANDI..!!"
End Sub

 

[hamitcan]

Aşağıdaki açıklamaları inceleyin.

Sub aktar()
Dim sno As Long, sat2 As Long, sat As Long, sonsat As Long 'Değişkenler tanımlanıyor
Dim i As Integer, k As Long ' Değişkenler tanımlanıyor
Application.ScreenUpdating = False 'Kodun çalışmasını gösterme
Sheets("GELİRLER").Range("A3:E65536").ClearContent s 'Gelirler sayfasında A3:e65536 arasını sil (içeriği)
sno = 1: sat2 = 3
For i = 1 To Worksheets.Count 'Sayfa sayısı kadar dön
If Sheets(i).Name >= 1 And Sheets(i).Name <= 31 Then 'Sayfa isimleri 1-31 arasında ise
sat = Sheets(i).Cells(15, "H").End(xlUp).Row 'i nolu sayfada H sütununda son satırı bul
If sat >= 4 Then 'Satır 4 dan büyük ve eşitse
For k = 4 To sat 'k yı 4 den sat a kadar döndür
adr1 = Range(Cells(k, "G"), Cells(k, "I")).Address 'Alan  tespiti
adr2 = Range(Cells(sat2, "B"), Cells(sat2, "D")).Address 'Alan  tespiti
Cells(sat2, "A").Value = sno
Sheets("GELİRLER").Range(adr2).Value = Sheets(i).Range(adr1).Value 'Gelirler sayfasında adr2 alanını,i nolu sayfadaki adr1 sayfasına eşitle
Sheets("GELİRLER").Cells(sat2, "E").Value = Sheets(i).Range("F1").Value
sat2 = sat2 + 1 'sat2 değerini 1 attır.
sno = sno + 1
Next k
End If
End If
Next i
sonsat = Sheets("GELİRLER").Cells(65536, "C").End(xlUp).Row 'Gelirler sayfasında C sütununda son satırı bul
Sheets("GELİRLER").Cells(sonsat + 1, "C").Value = "TOPLAM...YTL...:" 'Gelirler sayfasında C sütununda son hücreden sonraki hücrenin değerine "TOPLAM...YTL...:" yaz
Sheets("GELİRLER").Cells(sonsat + 1, "D").Value = _
WorksheetFunction.Sum(Sheets("GELİRLER").Range("D3  " & sonsat)) 'Gelirler sayfasında D sütununda son hücreden sonraki hücrenin değerine d3:d sütununda son hücre arasını topla
Application.ScreenUpdating = True ' Kodun çalışmasını gösterme
MsgBox "İŞLEM TAMAMLANDI..!!"
End Sub

 

[Erdinç FIRTINA]

Say&#305;n hamitcan te&#351;ekk&#252;rler,

Kodda yapmak istedi&#287;im de&#287;i&#351;iklik konusunda say&#305;n Orion2 de yard&#305;mc&#305; oluyor.
Bir de a&#351;a&#287;&#305;daki sat&#305;r&#305; a&#231;&#305;klayabilir misiniz?

sno = 1: sat2 = 3

 

[Skorpiyon]

Say&#305;n sefkatim,

sno ve sat2 diye 2 de&#287;i&#351;kene de&#287;er atanm&#305;&#351;. Yani ilk sno'yu g&#246;rd&#252;&#287;&#252;n zaman onun de&#287;erini 1 olarak tan&#305;, ilk sat2'yi g&#246;rd&#252;&#287;&#252;n zaman onun de&#287;erini 3 olarak tan&#305; denilmi&#351;.

Sayg&#305;lar&#305;mla...

 

[Erdinç FIRTINA]

Say&#305;n Sertkaya,

&#199;ok &#231;ok te&#351;ekk&#252;r ederim.

Sayg&#305;lar!!!